(AutoIt) Process New Email by Scanning for Senders

Scan email and save application-selected emails to EML files with unique filenames.

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

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

; Fetch messages from the mailbox using a search criteria.
; This example finds NEW emails: these are emails that have the RECENT flag set, but not the SEEN flag:
$oMessageSet = $oImap.Search("NEW",$bFetchUids)
If ($oImap.LastMethodSuccess = False) Then
    ConsoleWrite($oImap.LastErrorText & @CRLF)
    Exit
EndIf

; This example will download headers, and then download
; the full email for those emails sent from a contact
; in our database.

; When downloading headers, each email object contains
; (obviously) the headers, but the body will be missing.
; Also, attachments will not be included.  However, it is
; possible to get information about the attachments
; as well as the complete size of the email.
Local $oBundle
$oBundle = $oImap.FetchHeaders($oMessageSet)
If ($oImap.LastMethodSuccess = False) Then

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

; Loop over the email objects...
Local $i = 0
Local $iNumEmails = $oBundle.MessageCount
While $i < $iNumEmails
Local $oEmail = $oBundle.GetEmail($i)

    ; The sender's email address and name are available
    ; in the From, FromAddress, and FromName properties.
    ; If the sender is "Chilkat Support <support@chilkatsoft.com",
    ; then the From property will hold the entire string.
    ; the FromName property contains"Chilkat Support",
    ; and the FromAddress property contains "support@chilkatsoft.com"
    ConsoleWrite($oEmail.From & @CRLF)
    ConsoleWrite($oEmail.FromAddress & @CRLF)
    ConsoleWrite($oEmail.FromName & @CRLF)

    ; Assume at this point your code checks to see if the sender
    ; is one in your contacts database.  If so, this is
    ; the code you would write to download the entire
    ; email and save it to a file.

    ; 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
        ; You may use the GenerateFilename method to
        ; generate a unique filename...
Local $sFilename
        $sFilename = $oFullEmail.GenerateFilename()

        ; SaveEml saves the entire email, including attachments.
        $bSuccess = $oFullEmail.SaveEml($sFilename)

    EndIf

    ConsoleWrite("--" & @CRLF)

    $i = $i + 1
Wend

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