Visual FoxPro

Transition from MailMan.LoadXmlEmail to Email.SetFromXmlText

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

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

lnSuccess = 0

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.

loSb = CreateObject('Chilkat.StringBuilder')
lnSuccess = loSb.LoadFile(lcXmlFilePath,"utf-8")
IF (lnSuccess = 0) THEN
    ? loSb.LastErrorText
    RELEASE loMailman
    RELEASE loSb
    CANCEL
ENDIF

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