VBScript

Clear the S/MIME Recipient Certificate List

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.

Background. The recipient list is internal state that accumulates across AddEncryptCert calls. ClearEncryptCerts resets it so a subsequent EncryptN encrypts only for the certificates added afterward.

Chilkat VBScript Downloads

Download Chilkat for VBScript

VBScript

Dim fso, outFile
Set fso = CreateObject("Scripting.FileSystemObject")
'Create a Unicode (utf-16) output text file.
Set outFile = fso.CreateTextFile("output.txt", True, True)

success = 0

set mime = CreateObject("Chilkat.Mime")
success = mime.SetBodyFromPlainText("This message will be encrypted.")
If (success = 0) Then
    outFile.WriteLine(mime.LastErrorText)
    WScript.Quit
End If

'  Add a recipient certificate.
set cert = CreateObject("Chilkat.Cert")
success = cert.LoadFromFile("qa_data/recipient.cer")
If (success = 0) Then
    outFile.WriteLine(cert.LastErrorText)
    WScript.Quit
End If

success = mime.AddEncryptCert(cert)
If (success = 0) Then
    outFile.WriteLine(mime.LastErrorText)
    WScript.Quit
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 

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

outFile.Close