Lianja

Transition from Imap.FetchBundleAsMime to Imap.FetchSingleBd

Provides instructions for replacing deprecated FetchBundleAsMime method calls with FetchSingleBd. Lianja

llSuccess = .F.

loImap = createobject("CkImap")

// ...
// ...

loMset = createobject("CkMessageSet")
llSuccess = loImap.QueryMbx("FROM joe@example.com",.T.,loMset)
// ...
// ...

// ------------------------------------------------------------------------
// The FetchBundleAsMime method is deprecated:

loSaObj = loImap.FetchBundleAsMime(loMset)
if (loImap.LastMethodSuccess = .F.) then
    ? loImap.LastErrorText
    release loImap
    release loMset
    return
endif

// ...
// ...

release loSaObj

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

loImap.AutoDownloadAttachments = .T.

loBdMime = createobject("CkBinData")
llBUid = loMset.HasUids
lnNumEmails = loMset.Count
i = 0
do while i < lnNumEmails
    llSuccess = loImap.FetchSingleBd(loMset.GetId(i),llBUid,loBdMime)
    // ...
    // ...

    i = i + 1
enddo


release loImap
release loMset
release loBdMime