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
Add Email Attachment from String Variable
Adds an text attachment to an email from a string variable. ' The mailman object is used for sending and receiving email. Dim mailman As New Chilkat.MailMan() ' Any string argument automatically begins the 30-day trial. Dim success As Boolean success = mailman.UnlockComponent("30-day trial") If (success <> true) Then MsgBox("Component unlock failed") Exit Sub End If ' Set the SMTP server. mailman.SmtpHost = "smtp.comcast.net" ' Create a new email object Dim email As New Chilkat.Email() email.Subject = "This is a test" email.Body = "This is a test" email.From = "Chilkat Support <support@chilkatsoft.com>" email.AddTo("Chilkat Admin","admin@chilkatsoft.com") Dim attachmentContent As String attachmentContent = "This is the content of a text attachment" ' The last argument indicates the charset to use for the attached text. ' The string is converted to this charset and attached to the email as a text file attachment. ' The charset can be anything: "utf-8", "iso-8859-1", "shift_JIS", "ansi", etc. email.AddStringAttachment2("myFile.txt",attachmentContent,"ansi") success = mailman.SendEmail(email) If (success <> true) Then MsgBox(mailman.LastErrorText) Else MsgBox("Mail Sent!") End If |
© 2000-2012 Chilkat Software, Inc. All Rights Reserved.