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()