VBScript

Demonstrates how to call AddPfxSourceData for an Email Object

Demonstrates how to call AddPfxSourceData for an Email Object 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 fac = CreateObject("Chilkat.FileAccess")

pfxBytes = fac.ReadEntireFile("qa_data/pfx/some.pfx")

set email = CreateObject("Chilkat.Email")

success = email.AddPfxSourceData(pfxBytes,"PFX_PASSWORD")
If (success <> 1) Then
    outFile.WriteLine(email.LastErrorText)
    WScript.Quit
End If

outFile.WriteLine("Success.")

outFile.Close