Visual Basic 6.0

Demonstrates how to call AddPfxSourceData for an Email Object

Demonstrates how to call AddPfxSourceData for an Email Object Visual Basic 6.0

Dim success As Long
success = 0

Dim fac As New CkFileAccess
Dim pfxBytes() As Byte
pfxBytes = fac.ReadEntireFile("qa_data/pfx/some.pfx")

Dim email As New ChilkatEmail

success = email.AddPfxSourceData(pfxBytes,"PFX_PASSWORD")
If (success <> 1) Then
    Debug.Print email.LastErrorText
    Exit Sub
End If

Debug.Print "Success."