Visual FoxPro

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 Visual FoxPro Downloads

Download Chilkat for Visual FoxPro

Visual FoxPro

LOCAL lnSuccess
LOCAL loEmail
LOCAL loCopy

lnSuccess = 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.

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

*  Copy the entire email into a new Email object.
loCopy = CreateObject('Chilkat.Email')

lnSuccess = loEmail.MakeCopy(loCopy)
IF (lnSuccess = 0) THEN
    ? loEmail.LastErrorText
    RELEASE loEmail
    RELEASE loCopy
    CANCEL
ENDIF

? "Copy subject: " + loCopy.Subject
? "Copy NumTo: " + STR(loCopy.NumTo)

RELEASE loEmail
RELEASE loCopy