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 fso, outFile
Set fso = CreateObject("Scripting.FileSystemObject")
Set outFile = fso.CreateTextFile("output.txt", True)


set email = CreateObject("Chilkat.Email2")

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

contentType = email.AddFileAttachment("il1120.pdf")
If (contentType = vbNullString ) Then
    outFile.WriteLine(email.LastErrorText)
    WScript.Quit
End If

success = email.SaveEml("email.eml")
If (success = 0) Then
    outFile.WriteLine(email.LastErrorText)
    WScript.Quit
End If

MsgBox "Saved EML!"
outFile.Close