AutoIt

Save All MIME Attachments to Files

Demonstrates the Chilkat Mime.PartsToFiles method, which recursively traverses the MIME tree and saves each part having a nonempty filename parameter to a directory. The first argument is the destination directory and the second is a StringTable that receives the saved filenames.

Note: The file paths are relative to the application's current working directory. Absolute paths may also be used. Supply the paths appropriate to your own environment.

Background: This extracts every named attachment from a message in one call, walking the whole tree so it finds attachments nested inside multipart containers. It saves only parts that declare a filename — inline body parts without one are skipped — and reports what it wrote via the StringTable, which is handy for logging or follow-up processing. The destination directory must already exist.

Chilkat AutoIt Downloads

Download Chilkat for AutoIt

AutoIt

Local $bSuccess = False

$oMime = ObjCreate("Chilkat.Mime")
$bSuccess = $oMime.LoadMimeFile("qa_data/multipart_message.eml")
If ($bSuccess = False) Then
    ConsoleWrite($oMime.LastErrorText & @CRLF)
    Exit
EndIf

;  Recursively traverse the MIME tree and save each part that has a nonempty "filename" parameter
;  to a directory.  The 1st argument is the destination directory and the 2nd is a StringTable
;  that receives the saved filenames.
$oSavedFiles = ObjCreate("Chilkat.StringTable")
$bSuccess = $oMime.PartsToFiles("qa_output/attachments",$oSavedFiles)
If ($bSuccess = False) Then
    ConsoleWrite($oMime.LastErrorText & @CRLF)
    Exit
EndIf

Local $iN = $oSavedFiles.Count
ConsoleWrite("Saved " & $iN & " files:" & @CRLF)
Local $i
For $i = 0 To $iN - 1
Local $sName = $oSavedFiles.StringAt($i)
    If ($oSavedFiles.LastMethodSuccess = False) Then
        ConsoleWrite($oSavedFiles.LastErrorText & @CRLF)
        Exit
    EndIf

    ConsoleWrite($sName & @CRLF)
Next