AutoIt

Process New Email by Scanning for Senders

Scan email and save application-selected emails to EML files with unique filenames. 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 = 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

; 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 = ObjCreate("Chilkat.MessageSet")
$bSuccess = $oImap.QueryMbx("NEW",$bFetchUids,$oMessageSet)
If ($bSuccess = 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.
$oBundle = ObjCreate("Chilkat.EmailBundle")
Local $bHeadersOnly = True
$bSuccess = $oImap.FetchMsgSet($bHeadersOnly,$oMessageSet,$oBundle)
If ($bSuccess = False) Then
    ConsoleWrite($oImap.LastErrorText & @CRLF)
    Exit
EndIf

; Loop over the email objects...
$oEmailHeader = ObjCreate("Chilkat.Email")
$oFullEmail = ObjCreate("Chilkat.Email")
Local $i = 0
Local $iNumEmails = $oBundle.MessageCount
While $i < $iNumEmails
    $oBundle.EmailAt($i,$oEmailHeader)

    ; 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($oEmailHeader.From & @CRLF)
    ConsoleWrite($oEmailHeader.FromAddress & @CRLF)
    ConsoleWrite($oEmailHeader.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 = $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

    ; You can use the GenerateFilename method to
    ; generate a unique filename...
Local $sFilename = $oFullEmail.GenerateFilename()

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

    ConsoleWrite("--" & @CRLF)

    $i = $i + 1
Wend

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