AutoIt

Scan for Emails with Attachments and Save Attachments to Files

Scan for emails with attachments and save attachments. AutoIt

Local $bSuccess = False

; 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
$bSuccess = $oImap.Connect("imap.example.com")
If ($bSuccess = False) Then
    ConsoleWrite($oImap.LastErrorText & @CRLF)
    Exit
EndIf

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

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

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

; Get the message IDs of all the emails in the mailbox
$oMessageSet = ObjCreate("Chilkat.MessageSet")
$bSuccess = $oImap.QueryMbx("ALL",$bFetchUids,$oMessageSet)
If ($bSuccess = False) Then
    ConsoleWrite($oImap.LastErrorText & @CRLF)
    Exit
EndIf

; Fetch the email headers into a bundle object:
$oBundle = ObjCreate("Chilkat.EmailBundle")
Local $bHeadersOnly = True
$bSuccess = $oImap.FetchMsgSet($bHeadersOnly,$oMessageSet,$oBundle)
If ($bSuccess = False) Then
    ConsoleWrite($oImap.LastErrorText & @CRLF)
    Exit
EndIf

; Scan for emails with attachments, and save the attachments
; to a sub-directory.
$oFullEmail = ObjCreate("Chilkat.Email")
$oEmailHeader = ObjCreate("Chilkat.Email")
Local $i = 0
While $i < $oBundle.MessageCount
    ; The bundle contains email headers..
    $oBundle.EmailAt($i,$oEmailHeader)

    ; Does this email have attachments?
    ; Use GetMailNumAttach because the attachments
    ; are not actually in the email object because
    ; we only downloaded headers.
Local $iNumAttach = $oImap.GetMailNumAttach($oEmailHeader)

    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.

        ; 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 = $oEmailHeader.GetHeaderField("ckx-imap-uid")
Local $iUid = Int($sUidStr)

        $bSuccess = $oImap.FetchEmail(False,$iUid,True,$oFullEmail)
        If ($bSuccess = False) Then
            ConsoleWrite($oImap.LastErrorText & @CRLF)
            Exit
        EndIf

        $bSuccess = $oFullEmail.SaveAllAttachments("attachmentsDir")

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

    EndIf

    $i = $i + 1
Wend

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