Lianja

Transition from MailMan.TransferMail to MailMan.FetchAll

Provides instructions for replacing deprecated TransferMail method calls with FetchAll. Lianja

llSuccess = .F.

loMailman = createobject("CkMailMan")

// ...
// ...

// ------------------------------------------------------------------------
// The TransferMail method is deprecated:

loBundleObj = loMailman.TransferMail()
if (loMailman.LastMethodSuccess = .F.) then
    ? loMailman.LastErrorText
    release loMailman
    return
endif

// ...
// ...

release loBundleObj

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

llKeepOnServer = .F.
llHeadersOnly = .F.
// Irrelevent because we are not downloading headers-only.
lnNumBodyLines = 0

loBundleOut = createobject("CkEmailBundle")
llSuccess = loMailman.FetchAll(llKeepOnServer,llHeadersOnly,lnNumBodyLines,loBundleOut)
if (llSuccess = .F.) then
    ? loMailman.LastErrorText
    release loMailman
    release loBundleOut
    return
endif



release loMailman
release loBundleOut