(Xojo Plugin) Add File Attachments to an Email

Demonstrates how to add one or more file attachments to an email.

Chilkat Xojo Plugin Download Xojo Plugin for Windows, Linux, Mac OS X, and ARM, ARM64

Dim email As New Chilkat.Email

email.Subject = "This is a test"
email.Body = "This is a test"
email.From = "support@chilkatsoft.com"
Dim success As Boolean
success = email.AddTo("Chilkat Admin","admin@chilkatsoft.com")

// To add file attachments to an email, call AddFileAttachment
// once for each file to be attached.  The method returns
// the content-type of the attachment if successful, otherwise
// returns cknull
Dim contentType As String

contentType = email.AddFileAttachment("something.pdf")
If (email.LastMethodSuccess <> True) Then
    System.DebugLog(email.LastErrorText)
    Return
End If

contentType = email.AddFileAttachment("something.xml")
If (email.LastMethodSuccess <> True) Then
    System.DebugLog(email.LastErrorText)
    Return
End If

contentType = email.AddFileAttachment("something.zip")
If (email.LastMethodSuccess <> True) Then
    System.DebugLog(email.LastErrorText)
    Return
End If

success = email.SaveEml("email.eml")
If (success = False) Then
    System.DebugLog(email.LastErrorText)
    Return
End If

System.DebugLog("Saved EML!")