![]() |
Chilkat • HOME • Android™ • AutoIt • C • C# • C++ • Chilkat2-Python • CkPython • Classic ASP • DataFlex • Delphi DLL • Go • Java • Node.js • Objective-C • PHP Extension • Perl • PowerBuilder • PowerShell • PureBasic • Ruby • SQL Server • Swift • Tcl • Unicode C • Unicode C++ • VB.NET • VBScript • Visual Basic 6.0 • Visual FoxPro • Xojo Plugin
(Lianja) Forward by Attaching the Existing Email to a New EmailDemonstrates how to forward an email by attaching the email to a new email. This example uses the AttachEmail method, which is new in Chilkat v9.5.0.87. This example reads an email from an IMAP server, attaches the email to a new email, and sends the new email.
// This example requires the Chilkat API to have been previously unlocked. // See Global Unlock Sample for sample code. // Read the 1st (most recent) email in an Inbox. loImap = createobject("CkImap") // Connect to an IMAP server. loImap.Ssl = .T. loImap.Port = 993 llSuccess = loImap.Connect("imap.someMailServer.com") if (llSuccess <> .T.) then ? loImap.LastErrorText release loImap return endif // Login llSuccess = loImap.Login("myLogin","myPassword") if (llSuccess <> .T.) then ? loImap.LastErrorText release loImap return endif // Select an IMAP mailbox llSuccess = loImap.SelectMailbox("Inbox") if (llSuccess <> .T.) then ? loImap.LastErrorText release loImap return endif lnNumEmails = loImap.NumMessages // Fetch the email at the last sequence number. // (We are assuming the Inbox has at least 1 email) loEmail = loImap.FetchSingle(lnNumEmails,.F.) if (loImap.LastMethodSuccess = .F.) then ? loImap.LastErrorText release loImap return endif // Disconnect from the IMAP server. loImap.Disconnect() ? loEmail.Subject // Create a new email. The email we just read will be attached to this email. loEForward = createobject("CkEmail") loEForward.AddTo("Chilkat Support","support@chilkatsoft.com") loEForward.FromAddress = "matt@someMailServer.com" loEForward.FromName = "Matt" loEForward.Subject = "This is an email with another email attached." loEForward.SetHtmlBody("<p>Hello, this is an email I'm forwarding to you. See the attached email.</p>") // Attach the email. loEForward.AttachEmail(loEmail) // We could save the .eml, then double-click on it to view in our mail program, such as Outlook or Thunderbird.. loEForward.SaveEml("qa_output/forward.eml") // We could send (forward) the email.. loMailman = createobject("CkMailMan") loMailman.SmtpHost = "smtp.someMailServer.com" loMailman.SmtpUsername = "myLogin" loMailman.SmtpPassword = "myPassword" loMailman.SmtpPort = 587 loMailman.StartTLS = .T. llSuccess = loMailman.SendEmail(loEForward) if (llSuccess <> .T.) then ? loMailman.LastErrorText release loImap release loEForward release loMailman return endif llSuccess = loMailman.CloseSmtpConnection() if (llSuccess <> .T.) then ? "Connection to SMTP server not closed cleanly." endif ? "Mail Sent!" release loEmail release loImap release loEForward release loMailman |
© 2000-2025 Chilkat Software, Inc. All Rights Reserved.