|
Chilkat •
HOME •
Android™ •
ASP •
Visual Basic •
VB.NET •
C# •
iOS (IPhone) •
Objective-C •
C++ •
C •
MFC •
Delphi •
FoxPro •
Java •
Perl •
PHP Extension •
PHP ActiveX •
Python •
PowerShell •
Ruby •
SQL Server •
VBScript
Send Multiple File Attachment Email
VB.NET code demonstrating how to add several files as attachments to an email.
' Create a mailman object for sending email.
Dim mailman As New Chilkat.MailMan()
' Any string passed to UnlockComponent automatically begins a 30-day trial.
Dim success As Boolean
success = mailman.UnlockComponent("Hello World")
If (success <> true) Then
MsgBox(mailman.LastErrorText)
Exit Sub
End If
' 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
|
© 2000-2012 Chilkat Software, Inc. All Rights Reserved.
