PowerBuilder

Transition from MailMan.GetFullEmail to MailMan.FetchFull

Provides instructions for replacing deprecated GetFullEmail method calls with FetchFull. PowerBuilder

integer li_rc
integer li_Success
oleobject loo_Mailman
oleobject loo_EmailHeader
oleobject loo_FullEmailObj
oleobject loo_FullEmail

li_Success = 0

loo_Mailman = create oleobject
li_rc = loo_Mailman.ConnectToNewObject("Chilkat.MailMan")
if li_rc < 0 then
    destroy loo_Mailman
    MessageBox("Error","Connecting to COM object failed")
    return
end if

// ...
// ...

// Assume the email header was previously downloaded using some other Chilkat method...
loo_EmailHeader = create oleobject
li_rc = loo_EmailHeader.ConnectToNewObject("Chilkat.Email")

// ------------------------------------------------------------------------
// The GetFullEmail method is deprecated:

loo_FullEmailObj = loo_Mailman.GetFullEmail(loo_EmailHeader)
if loo_Mailman.LastMethodSuccess = 0 then
    Write-Debug loo_Mailman.LastErrorText
    destroy loo_Mailman
    destroy loo_EmailHeader
    return
end if

// ...
// ...

destroy loo_FullEmailObj

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

loo_FullEmail = create oleobject
li_rc = loo_FullEmail.ConnectToNewObject("Chilkat.Email")

li_Success = loo_Mailman.FetchFull(loo_EmailHeader,loo_FullEmail)
if li_Success = 0 then
    Write-Debug loo_Mailman.LastErrorText
    destroy loo_Mailman
    destroy loo_EmailHeader
    destroy loo_FullEmail
    return
end if



destroy loo_Mailman
destroy loo_EmailHeader
destroy loo_FullEmail