VB.NET

Transition from MailMan.TransferMultipleMime to MailMan.FetchMimeBd

Provides instructions for replacing deprecated TransferMultipleMime method calls with FetchMimeBd. VB.NET

Dim success As Boolean = False

Dim mailman As New Chilkat.MailMan

' ...
' ...

Dim saUidls As New Chilkat.StringArray
saUidls.Append("aaa")
saUidls.Append("bbb")
saUidls.Append("ccc")

Dim stUidls As New Chilkat.StringTable
stUidls.Append("aaa")
stUidls.Append("bbb")
stUidls.Append("ccc")

' ------------------------------------------------------------------------
' The TransferMultipleMime method is deprecated:

Dim sa As Chilkat.StringArray = mailman.TransferMultipleMime(saUidls)
If (mailman.LastMethodSuccess = False) Then
    Debug.WriteLine(mailman.LastErrorText)
    Exit Sub
End If


' ...
' ...



' ------------------------------------------------------------------------
' Do the equivalent using FetchMimeBd.

mailman.ImmediateDelete = False

success = False
Dim bdMime As New Chilkat.BinData
Dim numUidls As Integer = stUidls.Count
Dim i As Integer = 0
While i < numUidls
    success = mailman.FetchMimeBd(stUidls.StringAt(i),bdMime)
    ' ...

    ' Mark the email for deletion.
    success = mailman.DeleteByUidl(stUidls.StringAt(i))
    ' ...

    i = i + 1
End While

' emails marked for deletion will be deleted at this time
success = mailman.Pop3EndSession()