Create Email with Non-Standard Binary Body

Download Chilkat MIME ActiveX

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.

Download Chilkat Email ActiveX

Download 32-bit Chilkat IMAP ActiveX (.msi)

Download All 32-bit Chilkat ActiveX Components (.zip)

Download All 64-bit Chilkat ActiveX Components (.zip)

<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=utf-8">
</head>
<body>
<%
set mime = Server.CreateObject("Chilkat.Mime")

success = mime.UnlockComponent("Anything for 30-day trial.")
If (success = 0) Then
    Response.Write "<pre>" & Server.HTMLEncode( mime.LastErrorText) & "</pre>"

End If

success = mime.SetBodyFromFile("VoiceMessage.wav")
If (success = 0) Then
    Response.Write "<pre>" & Server.HTMLEncode( mime.LastErrorText) & "</pre>"

End If

'  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...
mime.Disposition = ""
mime.Filename = ""

strMime = mime.GetMime()
Response.Write "<pre>" & Server.HTMLEncode( strMime) & "</pre>"

'  Now load it into an email object:
set email = Server.CreateObject("Chilkat.Email2")
success = email.SetFromMimeText(strMime)
If (success = 0) Then
    Response.Write "<pre>" & Server.HTMLEncode( email.LastErrorText) & "</pre>"

End If

'  Add subject, TO, FROM, etc.
email.Subject = "This is a test"
email.From = "support@chilkatsoft.com"
email.AddTo "Matt","matt@chilkatsoft.com"

'  Your email is ready to send.
'  (but for this example, we'll simply save it to a file...)
success = email.SaveEml("email.eml")
If (success = 0) Then
    Response.Write "<pre>" & Server.HTMLEncode( email.LastErrorText) & "</pre>"

End If

Response.Write "<pre>" & Server.HTMLEncode("OK!") & "</pre>"

%>
</body>
</html>