VBScript

Make a Copy of an Email

Demonstrates the Chilkat Email.MakeCopy method, which copies the entire state of this email into another Email object — message content, recipients, headers, body representations, attachments, and related items. This example copies an email and reads a couple of fields from the copy.

Background: A deep copy gives you an independent duplicate: changes to one object do not affect the other. This is handy for template-and-tweak workflows — build a base message once, copy it per recipient, then vary only the recipient or a few fields — without risk of one send's edits bleeding into the next.

Chilkat VBScript Downloads

Download Chilkat for VBScript

VBScript

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

'  Demonstrates the MakeCopy method, which copies the entire state of this email into
'  another Email object -- message content, recipients, headers, bodies, attachments, and
'  related items.

set email = CreateObject("Chilkat.Email")
email.Subject = "Original"
email.From = "alice@example.com"
success = email.AddTo("Bob","bob@example.com")
email.Body = "Original body."

'  Copy the entire email into a new Email object.
set copy = CreateObject("Chilkat.Email")

success = email.MakeCopy(copy)
If (success = 0) Then
    outFile.WriteLine(email.LastErrorText)
    WScript.Quit
End If

outFile.WriteLine("Copy subject: " & copy.Subject)
outFile.WriteLine("Copy NumTo: " & copy.NumTo)

outFile.Close