PowerBuilder

Transition from Imap.FetchSequenceAsMime to Imap.FetchSingleBd

Provides instructions for replacing deprecated FetchSequenceAsMime method calls with FetchSingleBd. PowerBuilder

integer li_rc
integer li_Success
oleobject loo_Imap
integer li_StartSeqNum
integer li_Count
oleobject loo_Sa
oleobject loo_BdMime
integer li_BUid
integer i

li_Success = 0

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

// ...
// ...

li_StartSeqNum = 1
li_Count = 5

// ------------------------------------------------------------------------
// The FetchSequenceAsMime method is deprecated:

loo_Sa = loo_Imap.FetchSequenceAsMime(li_StartSeqNum,li_Count)
if loo_Imap.LastMethodSuccess = 0 then
    Write-Debug loo_Imap.LastErrorText
    destroy loo_Imap
    return
end if

// ...
// ...

destroy loo_Sa

// ------------------------------------------------------------------------
// Do the equivalent using FetchSingleBd.

loo_Imap.AutoDownloadAttachments = 1

li_Success = 0
loo_BdMime = create oleobject
li_rc = loo_BdMime.ConnectToNewObject("Chilkat.BinData")

li_BUid = 0
i = 0
do while i < li_Count
    li_Success = loo_Imap.FetchSingleBd(li_StartSeqNum + i,li_BUid,loo_BdMime)
    // ...
    // ...

    i = i + 1
loop


destroy loo_Imap
destroy loo_BdMime