AutoIt
AutoIt
Transition from MailMan.TransferMultipleMime to MailMan.FetchMimeBd
Provides instructions for replacing deprecated TransferMultipleMime method calls with FetchMimeBd.Chilkat AutoIt Downloads
Local $bSuccess = False
$oMailman = ObjCreate("Chilkat.MailMan")
; ...
; ...
$oSaUidls = ObjCreate("Chilkat.StringArray")
$oSaUidls.Append("aaa")
$oSaUidls.Append("bbb")
$oSaUidls.Append("ccc")
$oStUidls = ObjCreate("Chilkat.StringTable")
$oStUidls.Append("aaa")
$oStUidls.Append("bbb")
$oStUidls.Append("ccc")
; ------------------------------------------------------------------------
; The TransferMultipleMime method is deprecated:
Local $oSa = $oMailman.TransferMultipleMime($oSaUidls)
If ($oMailman.LastMethodSuccess = False) Then
ConsoleWrite($oMailman.LastErrorText & @CRLF)
Exit
EndIf
; ...
; ...
; ------------------------------------------------------------------------
; Do the equivalent using FetchMimeBd.
$oMailman.ImmediateDelete = False
$bSuccess = False
$oBdMime = ObjCreate("Chilkat.BinData")
Local $iNumUidls = $oStUidls.Count
Local $i = 0
While $i < $iNumUidls
$bSuccess = $oMailman.FetchMimeBd($oStUidls.StringAt($i),$oBdMime)
; ...
; Mark the email for deletion.
$bSuccess = $oMailman.DeleteByUidl($oStUidls.StringAt($i))
; ...
$i = $i + 1
Wend
; emails marked for deletion will be deleted at this time
$bSuccess = $oMailman.Pop3EndSession()