Append a MIME Message to an IMAP Mailbox

See more IMAP Examples

Demonstrates the Chilkat Imap.AppendMime method, which uploads a complete RFC 822/MIME message to a mailbox. The first argument is the destination mailbox name and the second is the MIME text. This example obtains the MIME from an Email object and uploads it to Drafts.

Dim success As Long
success = 0

'  Demonstrates the Imap.AppendMime method, which uploads a complete MIME message to a mailbox.
'  The 1st argument is the destination mailbox name and the 2nd is the MIME text.

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

'  Build the email to be uploaded.
Dim email As New ChilkatEmail
email.Subject = "Meeting agenda"
email.From = "Alice <alice@example.com>"
success = email.AddTo("Bob","bob@example.com")
email.Body = "Let's meet at 10am to review the agenda."

'  Obtain the MIME text to upload.  Here it is generated from the Email, but it could equally
'  be read from a .eml file.
Dim mimeText As String
mimeText = email.GetMime()
If (email.LastMethodSuccess = 0) Then
    Debug.Print email.LastErrorText
    Exit Sub
End If

'  Append (upload) the MIME to the "Drafts" mailbox.
success = imap.AppendMime("Drafts",mimeText)
If (success = 0) Then
    Debug.Print imap.LastErrorText
    Exit Sub
End If

Debug.Print "Appended UID: " & imap.AppendUid

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