Visual Basic 6.0

Fetch an IMAP Message as MIME Text

Demonstrates the Chilkat Imap.FetchSingleAsMime method, which downloads one message and returns its MIME source as a string. If the second argument (bUid) is true, the first argument is a UID; otherwise it is a sequence number. This example fetches message 1's raw MIME.

Background: Sometimes you want the message exactly as it exists on the server — the raw MIME — rather than a parsed Email object. That is what you save to a .eml file, feed to another parser, or archive verbatim. This method returns the MIME as text; for messages that may contain binary data, the BinData variant FetchSingleBd preserves the exact bytes.

Chilkat Visual Basic 6.0 Downloads

Download Chilkat for Visual Basic 6.0

Visual Basic 6.0

Dim success As Long
success = 0

'  Demonstrates the Imap.FetchSingleAsMime method, which downloads one message and returns
'  its MIME source as a string.  If the 2nd argument (bUid) is 1, the 1st argument is a
'  UID; otherwise it is a sequence number.

Dim imap As New ChilkatImap

imap.Ssl = 1
imap.Port = 993

success = imap.Connect("imap.example.com")
If (success = 0) Then
    Debug.Print imap.LastErrorText
    Exit Sub
End If

success = imap.Login("user@example.com","myPassword")
If (success = 0) Then
    Debug.Print imap.LastErrorText
    Exit Sub
End If

success = imap.SelectMailbox("Inbox")
If (success = 0) Then
    Debug.Print imap.LastErrorText
    Exit Sub
End If

'  Download message sequence number 1 and return its raw MIME.  bUid = 0.
Dim mime As String
mime = imap.FetchSingleAsMime(1,0)
If (imap.LastMethodSuccess = 0) Then
    Debug.Print imap.LastErrorText
    Exit Sub
End If

Debug.Print mime

success = imap.Disconnect()
If (success = 0) Then
    Debug.Print imap.LastErrorText
    Exit Sub
End If