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. uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls, CHILKATMAILLib2_TLB, OleCtrls; ... procedure TForm1.Button1Click(Sender: TObject); var mailman: TChilkatMailMan2; success: Integer; email: CHILKATMAILLib2_TLB.IChilkatEmail2; attachmentContent: String; begin // The mailman object is used for sending and receiving email. mailman := TChilkatMailMan2.Create(Self); // Any string argument automatically begins the 30-day trial. success := mailman.UnlockComponent('30-day trial'); if (success <> 1) then begin ShowMessage('Component unlock failed'); end; // Set the SMTP server. mailman.SmtpHost := 'smtp.comcast.net'; // Create a new email object email := CoChilkatEmail2.Create(); 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'); 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 <> 1) then begin ShowMessage(mailman.LastErrorText); end else begin ShowMessage('Mail Sent!'); end; end; |
© 2000-2010 Chilkat Software, Inc. All Rights Reserved.