AutoIt

Upload (Append) Email to an IMAP Mailbox and get the UID of the Appended Email

Upload / append an email to an IMAP mailbox and get the UID of the appended email. AutoIt

Local $bSuccess = False

; This example assumes the Chilkat API to have been previously unlocked.
; See Global Unlock Sample for sample code.

$oImap = ObjCreate("Chilkat.Imap")

; Connect to an IMAP server.
; Use TLS
$oImap.Ssl = True
$oImap.Port = 993
$bSuccess = $oImap.Connect("imap.example.com")
If ($bSuccess <> True) Then
    ConsoleWrite($oImap.LastErrorText & @CRLF)
    Exit
EndIf

; Login
$bSuccess = $oImap.Login("myLogin","myPassword")
If ($bSuccess <> True) Then
    ConsoleWrite($oImap.LastErrorText & @CRLF)
    Exit
EndIf

; Check the capabilities of the IMAP server.
Local $sCap = $oImap.Capability()
ConsoleWrite("IMAP capabilities: " & $sCap & @CRLF)

; If the capabilities string contains the substring "UIDPLUS", then 
; the UID of the appended email will be available in the AppendUid property (see below).

; For example, the GMail IMAP server has these capabilities (at this current time)
; * CAPABILITY IMAP4rev1 UNSELECT IDLE NAMESPACE QUOTA ID XLIST CHILDREN 
; X-GM-EXT-1 UIDPLUS COMPRESS=DEFLATE ENABLE MOVE CONDSTORE ESEARCH UTF8=ACCEPT 
; APPENDLIMIT=35882577 LIST-EXTENDED LIST-STATUS

$oEmail = ObjCreate("Chilkat.Email")

; Load the email from a .eml file.
$bSuccess = $oEmail.LoadEml("myEmail.eml")
If ($bSuccess <> True) Then
    ConsoleWrite($oEmail.LastErrorText & @CRLF)
    Exit
EndIf

$bSuccess = $oImap.AppendMail("Inbox",$oEmail)
If ($bSuccess <> True) Then
    ConsoleWrite($oImap.LastErrorText & @CRLF)
    Exit
EndIf

; If the IMAP server supports the UIDPLUS extension, then the 
; imap.AppendUid will contain the UID of the appended email.
; Otherwise AppendUid will be 0.
ConsoleWrite("UID of appended email: " & $oImap.AppendUid & @CRLF)

; If the IMAP server does NOT have UIDPLUS, then a program can 
; first select the mailbox, get the value of the UidNext property,
; and then append.  The appended email SHOULD have a UID equal to 
; the UidNext that was obtained just prior to appending (assuming no other
; program is simultaneously appending an email to the same mailbox).

; Note: It is not required to select a mailbox to append.  The select is only
; done for the purpose of obtaining the UIDNEXT value.
$bSuccess = $oImap.SelectMailbox("Inbox")
If ($bSuccess <> True) Then
    ConsoleWrite($oImap.LastErrorText & @CRLF)
    Exit
EndIf

Local $iUidNext = $oImap.UidNext

$bSuccess = $oImap.AppendMail("Inbox",$oEmail)
If ($bSuccess <> True) Then
    ConsoleWrite($oImap.LastErrorText & @CRLF)
    Exit
EndIf

ConsoleWrite("The UID of the appended email SHOULD be " & $iUidNext & @CRLF)

ConsoleWrite("Email uploaded to Inbox!" & @CRLF)

; Disconnect from the IMAP server.
$bSuccess = $oImap.Disconnect()