Create Email with File Attachment and Save as .eml

Create email with file attachment and save as .eml.

Download Chilkat Email ActiveX

Download Chilkat IMAP ActiveX

Dim email As New ChilkatEmail2

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 Long

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

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

MsgBox "Saved EML!"