Visual FoxPro

Transition from Imap.FetchSequenceAsMime to Imap.FetchSingleBd

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

LOCAL lnSuccess
LOCAL loImap
LOCAL lnStartSeqNum
LOCAL lnCount
LOCAL loSa
LOCAL loBdMime
LOCAL lnBUid
LOCAL i

lnSuccess = 0

loImap = CreateObject('Chilkat.Imap')

* ...
* ...

lnStartSeqNum = 1
lnCount = 5

* ------------------------------------------------------------------------
* The FetchSequenceAsMime method is deprecated:

loSa = loImap.FetchSequenceAsMime(lnStartSeqNum,lnCount)
IF (loImap.LastMethodSuccess = 0) THEN
    ? loImap.LastErrorText
    RELEASE loImap
    CANCEL
ENDIF

* ...
* ...

RELEASE loSa

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

loImap.AutoDownloadAttachments = 1

lnSuccess = 0
loBdMime = CreateObject('Chilkat.BinData')
lnBUid = 0
i = 0
DO WHILE i < lnCount
    lnSuccess = loImap.FetchSingleBd(lnStartSeqNum + i,lnBUid,loBdMime)
    * ...
    * ...

    i = i + 1
ENDDO

RELEASE loImap
RELEASE loBdMime