(Visual FoxPro) Transition from MailMan.LoadXmlEmail to Email.SetFromXmlText

Provides instructions for replacing deprecated LoadXmlEmail method calls with Email.SetFromXmlText.

Note: This example requires Chilkat v11.0.0 or greater.

Chilkat ActiveX Downloads ActiveX for 32-bit and 64-bit Windows

LOCAL loMailman
LOCAL lcXmlFilePath
LOCAL loEmailObj
LOCAL loSb
LOCAL lnSuccess
LOCAL loEmail

* For versions of Chilkat < 10.0.0, use CreateObject('Chilkat_9_5_0.MailMan')
loMailman = CreateObject('Chilkat.MailMan')

* ...
* ...

lcXmlFilePath = "c:/test/example.xml"

* ------------------------------------------------------------------------
* The LoadXmlEmail method is deprecated:

loEmailObj = loMailman.LoadXmlEmail(lcXmlFilePath)
IF (loMailman.LastMethodSuccess = 0) THEN
    ? loMailman.LastErrorText
    RELEASE loMailman
    CANCEL
ENDIF

* ...
* ...

RELEASE loEmailObj

* ------------------------------------------------------------------------
* Do the equivalent using Email.SetFromXmlText.

* For versions of Chilkat < 10.0.0, use CreateObject('Chilkat_9_5_0.StringBuilder')
loSb = CreateObject('Chilkat.StringBuilder')
lnSuccess = loSb.LoadFile(lcXmlFilePath,"utf-8")
IF (lnSuccess = 0) THEN
    ? loSb.LastErrorText
    RELEASE loMailman
    RELEASE loSb
    CANCEL
ENDIF

* For versions of Chilkat < 10.0.0, use CreateObject('Chilkat_9_5_0.Email')
loEmail = CreateObject('Chilkat.Email')
lnSuccess = loEmail.SetFromXmlText(loSb.GetAsString())
IF (lnSuccess = 0) THEN
    ? loEmail.LastErrorText
    RELEASE loMailman
    RELEASE loSb
    RELEASE loEmail
    CANCEL
ENDIF

RELEASE loMailman
RELEASE loSb
RELEASE loEmail