![]() |
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 an Email using CreateForwardReads an email from an IMAP server, creates a forward version of the email using the CreateForward method, and sends the email to another recipient. 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) set eForward = CreateObject("Chilkat.Email") success = email.ToForward(eForward) If (success = 0) Then outFile.WriteLine(email.LastErrorText) WScript.Quit End If ' The eForward email has no To or CC recipients yet. ' Add one or more.. success = eForward.AddTo("Joe","joe@example.com") ' We also need to specify the From name/address. eForward.FromAddress = "matt@someMailServer.com" eForward.FromName = "Matt" ' If we wish to add text at the start of the email body: set sbHtmlBody = CreateObject("Chilkat.StringBuilder") If (eForward.HasHtmlBody() = 1) Then success = sbHtmlBody.Append(eForward.GetHtmlBody()) success = sbHtmlBody.Prepend("<p>Hello, this is an email I'm forwarding to you...</p>") eForward.SetHtmlBody sbHtmlBody.GetAsString() End If set sbPtBody = CreateObject("Chilkat.StringBuilder") If (eForward.HasPlainTextBody() = 1) Then success = sbPtBody.Append(eForward.GetPlainTextBody()) success = sbPtBody.Prepend("Hello, this is an email I'm forwarding to you..." & vbCrLf & vbCrLf) eForward.SetTextBody sbPtBody.GetAsString(),"text/plain" End If ' 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.