Visual FoxPro

Demonstrates how to call AddPfxSourceData for an Email Object

Demonstrates how to call AddPfxSourceData for an Email Object Visual FoxPro

LOCAL lnSuccess
LOCAL loFac
LOCAL loPfxBytes
LOCAL loEmail

lnSuccess = 0

loFac = CreateObject('Chilkat.FileAccess')

loPfxBytes = loFac.ReadEntireFile("qa_data/pfx/some.pfx")

loEmail = CreateObject('Chilkat.Email')

lnSuccess = loEmail.AddPfxSourceData(loPfxBytes,"PFX_PASSWORD")
IF (lnSuccess <> 1) THEN
    ? loEmail.LastErrorText
    RELEASE loFac
    RELEASE loEmail
    CANCEL
ENDIF

? "Success."

RELEASE loFac
RELEASE loEmail