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.

Download Chilkat .NET for 4.0 Framework

Download Chilkat .NET for 64-bit 4.0 Framework (x64)

Download Chilkat .NET for 2.0 / 3.5 Framework

Download Chilkat .NET for 64-bit 2.0 / 3.5 Framework (x64)

Download Chilkat .NET for 1.0 / 1.1 Framework

Dim mime As New Chilkat.Mime()
Dim success As Boolean

success = mime.UnlockComponent("Anything for 30-day trial.")
If (success = false) Then
    TextBox1.Text = TextBox1.Text & mime.LastErrorText & vbCrLf
    Exit Sub
End If


success = mime.SetBodyFromFile("VoiceMessage.wav")
If (success = false) Then
    TextBox1.Text = TextBox1.Text & mime.LastErrorText & vbCrLf
    Exit Sub
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 = ""

Dim strMime As String
strMime = mime.GetMime()
TextBox1.Text = TextBox1.Text & strMime & vbCrLf

'  Now load it into an email object:
Dim email As New Chilkat.Email()
success = email.SetFromMimeText(strMime)
If (success = false) Then
    TextBox1.Text = TextBox1.Text & email.LastErrorText & vbCrLf
    Exit Sub
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 = false) Then
    TextBox1.Text = TextBox1.Text & email.LastErrorText & vbCrLf
    Exit Sub
End If


MsgBox("OK!")