AutoIt

Append a MIME Message to an IMAP Mailbox

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.

Background: Use AppendMime when you already hold a message's raw source — a .eml file, a message you assembled, or one you received. Chilkat sends the text exactly as supplied, without normalizing line endings or re-encoding headers, so every header and MIME boundary is preserved verbatim. The supplied text must be plain text (no raw non-text binary bytes).

Chilkat AutoIt Downloads

Download Chilkat for AutoIt

AutoIt

Local $bSuccess = False

;  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.

$oImap = ObjCreate("Chilkat.Imap")

$oImap.Ssl = True
$oImap.Port = 993

$bSuccess = $oImap.Connect("imap.example.com")
If ($bSuccess = False) Then
    ConsoleWrite($oImap.LastErrorText & @CRLF)
    Exit
EndIf

$bSuccess = $oImap.Login("user@example.com","myPassword")
If ($bSuccess = False) Then
    ConsoleWrite($oImap.LastErrorText & @CRLF)
    Exit
EndIf

;  Build the email to be uploaded.
$oEmail = ObjCreate("Chilkat.Email")
$oEmail.Subject = "Meeting agenda"
$oEmail.From = "Alice <alice@example.com>"
$bSuccess = $oEmail.AddTo("Bob","bob@example.com")
$oEmail.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.
Local $sMimeText = $oEmail.GetMime()
If ($oEmail.LastMethodSuccess = False) Then
    ConsoleWrite($oEmail.LastErrorText & @CRLF)
    Exit
EndIf

;  Append (upload) the MIME to the "Drafts" mailbox.
$bSuccess = $oImap.AppendMime("Drafts",$sMimeText)
If ($bSuccess = False) Then
    ConsoleWrite($oImap.LastErrorText & @CRLF)
    Exit
EndIf

ConsoleWrite("Appended UID: " & $oImap.AppendUid & @CRLF)

$bSuccess = $oImap.Disconnect()
If ($bSuccess = False) Then
    ConsoleWrite($oImap.LastErrorText & @CRLF)
    Exit
EndIf