|
Chilkat • HOME • ASP • Visual Basic • VB.NET • C# • Visual C++ • C • MFC • Delphi • FoxPro • Java • Perl • PHP • Python • Ruby • SQL Server • VBScript
|
Send Multiple File Attachment Email VB.NET code demonstrating how to add several files as attachments to an email. Dim success As Boolean
' Create a mailman object for sending email.
Dim mailman As New Chilkat.MailMan()
' Any string argument automatically begins the 30-day trial.
mailman.UnlockComponent("30-day trial")
' Set the SMTP server host.
mailman.SmtpHost = "smtp.earthlink.net"
' Create a simple email with file attachments.
Dim email As New Chilkat.Email()
' This email will have both a plain-text body and an HTML body.
email.Body = "This is the plain-text alternative"
email.AddHtmlAlternativeBody("<html><body><b><font color='red' size='+1'>This is bold red text.</font></b></html>")
email.Subject = "This email has several file attachments."
email.AddTo("Chilkat Support", "support@chilkatsoft.com")
email.From = "Hello World <hello@chilkatsoft.com>"
' Add a file attachment.
Dim contentType As String
' Returns the content-type of the attachment (determined by the file extension)
' This return value is for informational purposes only.
contentType = email.AddFileAttachment("dude.gif")
If contentType Is Nothing Then
MessageBox.Show(email.LastErrorText)
Return
End If
' To add more attachments, simply call AddFileAttachment for each file to be added.
contentType = email.AddFileAttachment("dude2.gif")
If contentType Is Nothing Then
MessageBox.Show(email.LastErrorText)
Return
End If
' Send email.
success = mailman.SendEmail(email)
If success Then
MessageBox.Show("Sent email with attachments!")
Else
MessageBox.Show(mailman.LastErrorText)
End If
Important: The download for this
example does not contain the ChilkatDotNet.dll which |
Need a specific example? Send a request to support@chilkatsoft.com
© 2000-2007 Chilkat Software, Inc. All Rights Reserved.