VB.NET

Transition from Imap.FetchBundleAsMime to Imap.FetchSingleBd

Provides instructions for replacing deprecated FetchBundleAsMime method calls with FetchSingleBd. VB.NET

Dim success As Boolean = False

Dim imap As New Chilkat.Imap

' ...
' ...

Dim mset As New Chilkat.MessageSet
success = imap.QueryMbx("FROM joe@example.com",True,mset)
' ...
' ...

' ------------------------------------------------------------------------
' The FetchBundleAsMime method is deprecated:

Dim saObj As Chilkat.StringArray = imap.FetchBundleAsMime(mset)
If (imap.LastMethodSuccess = False) Then
    Debug.WriteLine(imap.LastErrorText)
    Exit Sub
End If


' ...
' ...



' ------------------------------------------------------------------------
' Do the equivalent using FetchSingleBd.

imap.AutoDownloadAttachments = True

Dim bdMime As New Chilkat.BinData
Dim bUid As Boolean = mset.HasUids
Dim numEmails As Integer = mset.Count
Dim i As Integer = 0
While i < numEmails
    success = imap.FetchSingleBd(mset.GetId(i),bUid,bdMime)
    ' ...
    ' ...

    i = i + 1
End While