Xbase++

Create an Inline-Forward Email

Demonstrates the Chilkat Email.ToForward method, which creates an inline-forward email based on this email. The forward is returned in the argument, and the source email is not modified. The returned email can be edited — adding recipients, prepending a note — before sending. This example forwards a message and adds a recipient.

Background: An inline forward quotes the original message's content within the body of the new message — the familiar "---------- Forwarded message ----------" style — as opposed to attaching the original as a message/rfc822 part (which AttachEmail does). Chilkat assembles the quoted body and headers for you, leaving the new message ready to address and send.

Chilkat Xbase++ Downloads

Download Chilkat for Xbase++

Xbase++

LOCAL nSuccess
LOCAL oEmail
LOCAL oFwd

nSuccess := 0

//  Demonstrates the ToForward method, which creates an inline-forward email based on this
//  email.  The forward is returned in the argument; the source email is not modified.

oEmail := CreateObject("Chilkat.Email")
oEmail:Subject := "Quarterly results"
oEmail:From := "alice@example.com"
oEmail:AddTo("Bob", "bob@example.com")
oEmail:Body := "Here are the quarterly results."

//  Create an inline-forward email from this message.
oFwd := CreateObject("Chilkat.Email")

nSuccess := oEmail:ToForward(oFwd)
IF (nSuccess == 0)
    ? oEmail:LastErrorText
    oEmail:destroy()
    oFwd:destroy()
    RETURN
ENDIF

//  The forward can be edited to add recipients before sending.
oFwd:AddTo("Carol", "carol@example.com")

? oFwd:GetMime()

oEmail:destroy()
oFwd:destroy()