AutoIt Requires Chilkat v11.0.0+

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