Clear the S/MIME Recipient Certificate List

See more MIME Examples

Demonstrates ClearEncryptCerts, which empties the recipient-certificate list previously populated by AddEncryptCert. This is useful to start over with a different set of recipients before calling EncryptN.

use strict;
use warnings;
use Chilkat2;

my $mime = Chilkat2::Mime->new;
my $success = $mime->SetBodyFromPlainText('This message will be encrypted.');
if (!$success) {
    print $mime->LastErrorText, "\n";
    exit;
}

# Add a recipient certificate.
my $cert = Chilkat2::Cert->new;
$success = $cert->LoadFromFile('qa_data/recipient.cer');
if (!$success) {
    print $cert->LastErrorText, "\n";
    exit;
}

$success = $mime->AddEncryptCert($cert);
if (!$success) {
    print $mime->LastErrorText, "\n";
    exit;
}

# ClearEncryptCerts empties the recipient-certificate list, for example to start over with a
# different set of recipients before calling EncryptN.  It is a void method.
$mime->ClearEncryptCerts();

print "Recipient certificate list cleared.\n";