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
Attach Message to Email (message/rfc822)
How to create an email with an attached message (content-type = message/rfc822) Dim email As New ChilkatEmail2 email.Subject = "Subject..." email.From = "Chilkat Support <support@chilkatsoft.com>" ' Call AddTo multiple times, once per recipient, or ' call AddMultipleTo with a comma-separated email address string. ' or call AddHeaderField("To","To someone...") email.AddTo "Chilkat Admin","admin@chilkatsoft.com" ' Add our own custom header. email.AddHeaderField "X-MyCompany","testing" email.Body = "This is the email body..." ' The email object now has a very basic plain-text email, ' with a customer header. ' The email we'll add is going to be loaded from a .eml file: Dim success As Long success = email.AddFileAttachment2("email.eml","message/rfc822") If (success <> 1) Then MsgBox email.LastErrorText Else email.SaveEml "out.eml" MsgBox "Success!" End If |
© 2000-2012 Chilkat Software, Inc. All Rights Reserved.