Visual FoxPro

Transition from Imap.FetchBundleAsMime to Imap.FetchSingleBd

Provides instructions for replacing deprecated FetchBundleAsMime method calls with FetchSingleBd. Visual FoxPro

LOCAL lnSuccess
LOCAL loImap
LOCAL loMset
LOCAL loSaObj
LOCAL loBdMime
LOCAL lnBUid
LOCAL lnNumEmails
LOCAL i

lnSuccess = 0

loImap = CreateObject('Chilkat.Imap')

* ...
* ...

loMset = CreateObject('Chilkat.MessageSet')
lnSuccess = loImap.QueryMbx("FROM joe@example.com",1,loMset)
* ...
* ...

* ------------------------------------------------------------------------
* The FetchBundleAsMime method is deprecated:

loSaObj = loImap.FetchBundleAsMime(loMset)
IF (loImap.LastMethodSuccess = 0) THEN
    ? loImap.LastErrorText
    RELEASE loImap
    RELEASE loMset
    CANCEL
ENDIF

* ...
* ...

RELEASE loSaObj

* ------------------------------------------------------------------------
* Do the equivalent using FetchSingleBd.

loImap.AutoDownloadAttachments = 1

loBdMime = CreateObject('Chilkat.BinData')
lnBUid = loMset.HasUids
lnNumEmails = loMset.Count
i = 0
DO WHILE i < lnNumEmails
    lnSuccess = loImap.FetchSingleBd(loMset.GetId(i),lnBUid,loBdMime)
    * ...
    * ...

    i = i + 1
ENDDO

RELEASE loImap
RELEASE loMset
RELEASE loBdMime