(VB.NET) Add File Attachments to an Email

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

Chilkat .NET Downloads Chilkat .NET Framework Chilkat for .NET Core

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 = 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
    Debug.WriteLine(email.LastErrorText)
    Exit Sub
End If


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


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

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


Debug.WriteLine("Saved EML!")