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

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!")