Create Email with File Attachment and Save as .eml

Create email with file attachment and save as .eml.

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)

LOCAL loEmail
LOCAL lnSuccess
LOCAL lcContentType


loEmail = CreateObject('Chilkat.Email2')

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

lcContentType = loEmail.AddFileAttachment("il1120.pdf")
IF (lcContentType = NULL ) THEN
    ? loEmail.LastErrorText
    QUIT
ENDIF

lnSuccess = loEmail.SaveEml("email.eml")
IF (lnSuccess = 0) THEN
    ? loEmail.LastErrorText
    QUIT
ENDIF

=MESSAGEBOX("Saved EML!")