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.

Dim success As Boolean = False

Dim mime As New Chilkat.Mime
success = mime.SetBodyFromPlainText("This message will be encrypted.")
If (success = False) Then
    Debug.WriteLine(mime.LastErrorText)
    Exit Sub
End If


'  Add a recipient certificate.
Dim cert As New Chilkat.Cert
success = cert.LoadFromFile("qa_data/recipient.cer")
If (success = False) Then
    Debug.WriteLine(cert.LastErrorText)
    Exit Sub
End If

success = mime.AddEncryptCert(cert)
If (success = False) Then
    Debug.WriteLine(mime.LastErrorText)
    Exit Sub
End If


'  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()

Debug.WriteLine("Recipient certificate list cleared.")