PowerBuilder

Transition from Imap.ListSubscribed to Imap.MbxList

Provides instructions for replacing deprecated ListSubscribed method calls with MbxList. PowerBuilder

integer li_rc
integer li_Success
oleobject loo_Imap
string ls_Reference
string ls_MbxPattern
oleobject loo_MboxesObj
integer li_Subscribed
oleobject loo_Mboxes

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

// ...
// ...

ls_Reference = ""
ls_MbxPattern = "*"

// ------------------------------------------------------------------------
// The ListSubscribed method is deprecated:

// Lists only subscribed mailboxes.
loo_MboxesObj = loo_Imap.ListSubscribed(ls_Reference,ls_MbxPattern)
if loo_Imap.LastMethodSuccess = 0 then
    Write-Debug loo_Imap.LastErrorText
    destroy loo_Imap
    return
end if

// ...
// ...

destroy loo_MboxesObj

// ------------------------------------------------------------------------
// 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.
li_Subscribed = 1

loo_Mboxes = create oleobject
li_rc = loo_Mboxes.ConnectToNewObject("Chilkat.Mailboxes")

li_Success = loo_Imap.MbxList(li_Subscribed,ls_Reference,ls_MbxPattern,loo_Mboxes)
if li_Success = 0 then
    Write-Debug loo_Imap.LastErrorText
    destroy loo_Imap
    destroy loo_Mboxes
    return
end if



destroy loo_Imap
destroy loo_Mboxes