(AutoIt) Scan for Emails with Attachments and Save Attachments to Files

Scan for emails with attachments and save attachments.

Chilkat ActiveX Downloads ActiveX for 32-bit and 64-bit Windows

; This example requires 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
Local $bSuccess = $oImap.Connect("imap.someMailServer.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

; Select an IMAP mailbox
$bSuccess = $oImap.SelectMailbox("Inbox")
If ($bSuccess <> True) Then
    ConsoleWrite($oImap.LastErrorText & @CRLF)
    Exit
EndIf

Local $oMessageSet
; We can choose to fetch UIDs or sequence numbers.
Local $bFetchUids = True

; Get the message IDs of all the emails in the mailbox
$oMessageSet = $oImap.Search("ALL",$bFetchUids)
If ($oImap.LastMethodSuccess <> True) Then
    ConsoleWrite($oImap.LastErrorText & @CRLF)
    Exit
EndIf

; Fetch the email headers into a bundle object:
Local $oBundle
$oBundle = $oImap.FetchHeaders($oMessageSet)
If ($oImap.LastMethodSuccess <> True) Then

    ConsoleWrite($oImap.LastErrorText & @CRLF)
    Exit
EndIf

; Scan for emails with attachments, and save the attachments
; to a sub-directory.
Local $i
For $i = 0 To $oBundle.MessageCount - 1
Local $oEmail
    $oEmail = $oBundle.GetEmail($i)

    ; Does this email have attachments?
    ; Use GetMailNumAttach because the attachments
    ; are not actually in the email object because
    ; we only downloaded headers.
    ; (Had we downloaded the full emails by
    ; calling mailman.FetchBundle, we could look
    ; at the email object's NumAttachments property.)
Local $iNumAttach = $oImap.GetMailNumAttach($oEmail)

    If ($iNumAttach > 0) Then
        ; Download the entire email and save the
        ; attachments. (Remember, we 
        ; need to download the entire email because
        ; only the headers were previously downloaded.
        ; If the entire emails were downloaded by
        ; calling FetchBundle instead of FetchHeaders,
        ; this would not be necessary.

        ; The ckx-imap-uid header field is added when
        ; headers are downloaded.  This makes it possible
        ; to get the UID from the email object.
Local $sUidStr = $oEmail.GetHeaderField("ckx-imap-uid")
Local $iUid = Int($sUidStr)

Local $oFullEmail
        $oFullEmail = $oImap.FetchSingle($iUid,True)
        If ($oImap.LastMethodSuccess = True) Then
            $bSuccess = $oFullEmail.SaveAllAttachments("attachmentsDir")

        EndIf

Local $iJ
        For $iJ = 0 To $iNumAttach - 1
Local $sFilename = $oImap.GetMailAttachFilename($oEmail,$iJ)
            ConsoleWrite($sFilename & @CRLF)
        Next

    EndIf

Next

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