![]() |
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
(VBScript) 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 reads an email from an IMAP server, attaches the email to a new email, and sends the new email. Note: This example requires Chilkat v11.0.0 or greater.
Dim fso, outFile Set fso = CreateObject("Scripting.FileSystemObject") 'Create a Unicode (utf-16) output text file. Set outFile = fso.CreateTextFile("output.txt", True, True) success = 0 ' 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. set imap = CreateObject("Chilkat.Imap") ' Connect to an IMAP server. imap.Ssl = 1 imap.Port = 993 success = imap.Connect("imap.example.com") If (success = 0) Then outFile.WriteLine(imap.LastErrorText) WScript.Quit End If ' Login success = imap.Login("myLogin","myPassword") If (success = 0) Then outFile.WriteLine(imap.LastErrorText) WScript.Quit End If ' Select an IMAP mailbox success = imap.SelectMailbox("Inbox") If (success = 0) Then outFile.WriteLine(imap.LastErrorText) WScript.Quit End If numEmails = imap.NumMessages ' Fetch the email at the last sequence number. ' (We are assuming the Inbox has at least 1 email) set email = CreateObject("Chilkat.Email") success = imap.FetchEmail(0,numEmails,0,email) If (success = 0) Then outFile.WriteLine(imap.LastErrorText) WScript.Quit End If ' Disconnect from the IMAP server. success = imap.Disconnect() outFile.WriteLine(email.Subject) ' Create a new email. The email we just read will be attached to this email. set eForward = CreateObject("Chilkat.Email") success = eForward.AddTo("Joe","joe@example.com") eForward.FromAddress = "matt@somewhere.com" eForward.FromName = "Matt" eForward.Subject = "This is an email with another email attached." eForward.SetHtmlBody "<p>Hello, this is an email I'm forwarding to you. See the attached email.</p>" ' Attach the email. success = eForward.AttachEmail(email) ' We could save the .eml, then double-click on it to view in our mail program, such as Outlook or Thunderbird.. success = eForward.SaveEml("qa_output/forward.eml") ' We could send (forward) the email.. set mailman = CreateObject("Chilkat.MailMan") mailman.SmtpHost = "smtp.example.com" mailman.SmtpUsername = "myLogin" mailman.SmtpPassword = "myPassword" mailman.SmtpPort = 587 mailman.StartTLS = 1 success = mailman.SendEmail(eForward) If (success = 0) Then outFile.WriteLine(mailman.LastErrorText) WScript.Quit End If success = mailman.CloseSmtpConnection() If (success <> 1) Then outFile.WriteLine("Connection to SMTP server not closed cleanly.") End If outFile.WriteLine("Mail Sent!") outFile.Close |
© 2000-2025 Chilkat Software, Inc. All Rights Reserved.