(Excel) Add File Attachments to an Email

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

Download Excel Class Modules Chilkat Excel Class Modules

Dim email As Chilkat.Email
Set email = Chilkat.NewEmail

email.Subject = "This is a test"
email.Body = "This is a test"
email.From = "support@chilkatsoft.com"

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

contentType = email.AddFileAttachment("something.pdf")
If (email.LastMethodSuccess <> True) Then
    Debug.Print email.LastErrorText
    Exit Sub
End If

contentType = email.AddFileAttachment("something.xml")
If (email.LastMethodSuccess <> True) Then
    Debug.Print email.LastErrorText
    Exit Sub
End If

contentType = email.AddFileAttachment("something.zip")
If (email.LastMethodSuccess <> True) Then
    Debug.Print email.LastErrorText
    Exit Sub
End If

success = email.SaveEml("email.eml")
If (success = False) Then
    Debug.Print email.LastErrorText
    Exit Sub
End If

Debug.Print "Saved EML!"