|
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
Replace Attachments with a Single Zip File
VB.NET code demonstrating how to add file attachments and then Zip them so that a single Zip file attachment is sent with the email. This only requires Chilkat Mail, and not Chilkat Zip.
' 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 a Zip file attachment.
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 a file attachment."
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
' Add another file attachment.
contentType = email.AddFileAttachment("dude2.gif")
If contentType Is Nothing Then
MessageBox.Show(email.LastErrorText)
Return
End If
' Replace the attachments with a single Zip archive that contains the files already attached.
email.ZipAttachments("dudes.zip")
' Send email, the recipient will receive an email with a single attachment (dudes.zip)
' that contains 2 file: dude.gif and dude2.gif.
success = mailman.SendEmail(email)
If success Then
MessageBox.Show("Sent mail with Zip attachment!")
Else
MessageBox.Show(mailman.LastErrorText)
End If
|
© 2000-2012 Chilkat Software, Inc. All Rights Reserved.
