Visual FoxPro

Transition from Imap.ListSubscribed to Imap.MbxList

Provides instructions for replacing deprecated ListSubscribed method calls with MbxList. Visual FoxPro

LOCAL lnSuccess
LOCAL loImap
LOCAL lcReference
LOCAL lcMbxPattern
LOCAL loMboxesObj
LOCAL lnSubscribed
LOCAL loMboxes

lnSuccess = 0

loImap = CreateObject('Chilkat.Imap')

* ...
* ...

lcReference = ""
lcMbxPattern = "*"

* ------------------------------------------------------------------------
* The ListSubscribed method is deprecated:

* Lists only subscribed mailboxes.
loMboxesObj = loImap.ListSubscribed(lcReference,lcMbxPattern)
IF (loImap.LastMethodSuccess = 0) THEN
    ? loImap.LastErrorText
    RELEASE loImap
    CANCEL
ENDIF

* ...
* ...

RELEASE loMboxesObj

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

* Lists only subscribed mailboxes.
lnSubscribed = 1

loMboxes = CreateObject('Chilkat.Mailboxes')
lnSuccess = loImap.MbxList(lnSubscribed,lcReference,lcMbxPattern,loMboxes)
IF (lnSuccess = 0) THEN
    ? loImap.LastErrorText
    RELEASE loImap
    RELEASE loMboxes
    CANCEL
ENDIF

RELEASE loImap
RELEASE loMboxes