Lianja

Transition from MailMan.TransferMultipleMime to MailMan.FetchMimeBd

Provides instructions for replacing deprecated TransferMultipleMime method calls with FetchMimeBd. Lianja

llSuccess = .F.

loMailman = createobject("CkMailMan")

// ...
// ...

loSaUidls = createobject("CkStringArray")
loSaUidls.Append("aaa")
loSaUidls.Append("bbb")
loSaUidls.Append("ccc")

loStUidls = createobject("CkStringTable")
loStUidls.Append("aaa")
loStUidls.Append("bbb")
loStUidls.Append("ccc")

// ------------------------------------------------------------------------
// The TransferMultipleMime method is deprecated:

loSa = loMailman.TransferMultipleMime(loSaUidls)
if (loMailman.LastMethodSuccess = .F.) then
    ? loMailman.LastErrorText
    release loMailman
    release loSaUidls
    release loStUidls
    return
endif

// ...
// ...

release loSa

// ------------------------------------------------------------------------
// Do the equivalent using FetchMimeBd.

loMailman.ImmediateDelete = .F.

llSuccess = .F.
loBdMime = createobject("CkBinData")
lnNumUidls = loStUidls.Count
i = 0
do while i < lnNumUidls
    llSuccess = loMailman.FetchMimeBd(loStUidls.StringAt(i),loBdMime)
    // ...

    // Mark the email for deletion.
    llSuccess = loMailman.DeleteByUidl(loStUidls.StringAt(i))
    // ...

    i = i + 1
enddo

// emails marked for deletion will be deleted at this time
llSuccess = loMailman.Pop3EndSession()


release loMailman
release loSaUidls
release loStUidls
release loBdMime