Create Email with File Attachment and Save as .eml

Create email with file attachment and save as .eml.

Download: Chilkat .NET Assemblies

Dim email As New Chilkat.Email()

email.Subject = "This is a test"
email.Body = "This is a test"
email.From = "support@chilkatsoft.com"
email.AddTo("Matt","matt@chilkatsoft.com")

Dim success As Boolean

Dim contentType As String
contentType = email.AddFileAttachment("il1120.pdf")
If (contentType = vbNullString ) Then
    TextBox1.Text = TextBox1.Text & email.LastErrorText & vbCrLf
    Exit Sub
End If


success = email.SaveEml("email.eml")
If (success = false) Then
    TextBox1.Text = TextBox1.Text & email.LastErrorText & vbCrLf
    Exit Sub
End If


MsgBox("Saved EML!")