(AutoIt) Create Email with Non-Standard Binary Body

Creates an email where the only body is a binary WAV file. The technique used in the example could be applied to other binary files, such as PDF, MS-WORD docs, Excel docs, etc.

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

; This example requires the Chilkat API to have been previously unlocked.
; See Global Unlock Sample for sample code.

$oMime = ObjCreate("Chilkat.Mime")

Local $bSuccess = $oMime.SetBodyFromFile("VoiceMessage.wav")
If ($bSuccess = False) Then
    ConsoleWrite($oMime.LastErrorText & @CRLF)
    Exit
EndIf

; The MIME has this header:
; Content-Disposition: attachment;
; 	 filename="VoiceMessage.wav"
; Content-Transfer-Encoding: base64
; Content-Type: audio/x-wav;
; 	name="VoiceMessage.wav"

; We don't want the content-disposition to be an
; attachment -- otherwise the email object will self-correct
; and put it in a multipart/mixed format...
$oMime.Disposition = ""
$oMime.Filename = ""

Local $strMime
$strMime = $oMime.GetMime()
ConsoleWrite($strMime & @CRLF)

; Now load it into an email object:
$oEmail = ObjCreate("Chilkat.Email")
$bSuccess = $oEmail.SetFromMimeText($strMime)
If ($bSuccess = False) Then
    ConsoleWrite($oEmail.LastErrorText & @CRLF)
    Exit
EndIf

; Add subject, TO, FROM, etc.
$oEmail.Subject = "This is a test"
$oEmail.From = "support@chilkatsoft.com"
$bSuccess = $oEmail.AddTo("Matt","matt@chilkatsoft.com")

; Your email is ready to send.
; (but for this example, we'll simply save it to a file...)
$bSuccess = $oEmail.SaveEml("email.eml")
If ($bSuccess = False) Then
    ConsoleWrite($oEmail.LastErrorText & @CRLF)
    Exit
EndIf

ConsoleWrite("OK!" & @CRLF)