Visual FoxPro

Transition from MailMan.GetFullEmail to MailMan.FetchFull

Provides instructions for replacing deprecated GetFullEmail method calls with FetchFull. Visual FoxPro

LOCAL lnSuccess
LOCAL loMailman
LOCAL loEmailHeader
LOCAL loFullEmailObj
LOCAL loFullEmail

lnSuccess = 0

loMailman = CreateObject('Chilkat.MailMan')

* ...
* ...

* Assume the email header was previously downloaded using some other Chilkat method...
loEmailHeader = CreateObject('Chilkat.Email')

* ------------------------------------------------------------------------
* The GetFullEmail method is deprecated:

loFullEmailObj = loMailman.GetFullEmail(loEmailHeader)
IF (loMailman.LastMethodSuccess = 0) THEN
    ? loMailman.LastErrorText
    RELEASE loMailman
    RELEASE loEmailHeader
    CANCEL
ENDIF

* ...
* ...

RELEASE loFullEmailObj

* ------------------------------------------------------------------------
* Do the equivalent using FetchFull.
* Your application creates a new, empty Email object which is passed 
* in the last argument and filled upon success.

loFullEmail = CreateObject('Chilkat.Email')
lnSuccess = loMailman.FetchFull(loEmailHeader,loFullEmail)
IF (lnSuccess = 0) THEN
    ? loMailman.LastErrorText
    RELEASE loMailman
    RELEASE loEmailHeader
    RELEASE loFullEmail
    CANCEL
ENDIF

RELEASE loMailman
RELEASE loEmailHeader
RELEASE loFullEmail