Xojo Plugin

Demonstrates how to call AddPfxSourceData for an Email Object

Demonstrates how to call AddPfxSourceData for an Email Object Xojo Plugin

Dim success As Boolean
success = False

Dim fac As New Chilkat.FileAccess
Dim pfxBytes As MemoryBlock
pfxBytes = fac.ReadEntireFile("qa_data/pfx/some.pfx")

Dim email As New Chilkat.Email

success = email.AddPfxSourceData(pfxBytes,"PFX_PASSWORD")
If (success <> True) Then
    System.DebugLog(email.LastErrorText)
    Return
End If

System.DebugLog("Success.")