Lianja

Forward by Attaching the Existing Email to a New Email

See more Email Object Examples

Demonstrates 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.

Lianja

llSuccess = .F.

// 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.
loImap = createobject("CkImap")

// Connect to an IMAP server.
loImap.Ssl = .T.
loImap.Port = 993
llSuccess = loImap.Connect("imap.example.com")
if (llSuccess = .F.) then
    ? loImap.LastErrorText
    release loImap
    return
endif

// Login
llSuccess = loImap.Login("myLogin","myPassword")
if (llSuccess = .F.) then
    ? loImap.LastErrorText
    release loImap
    return
endif

// Select an IMAP mailbox
llSuccess = loImap.SelectMailbox("Inbox")
if (llSuccess = .F.) then
    ? loImap.LastErrorText
    release loImap
    return
endif

lnNumEmails = loImap.NumMessages

// Fetch the email at the last sequence number.
// (We are assuming the Inbox has at least 1 email)

loEmail = createobject("CkEmail")
llSuccess = loImap.FetchEmail(.F.,lnNumEmails,.F.,loEmail)
if (llSuccess = .F.) then
    ? loImap.LastErrorText
    release loImap
    release loEmail
    return
endif

// Disconnect from the IMAP server.
loImap.Disconnect()

? loEmail.Subject

// Create a new email.  The email we just read will be attached to this email.
loEForward = createobject("CkEmail")

loEForward.AddTo("Joe","joe@example.com")

loEForward.FromAddress = "matt@somewhere.com"
loEForward.FromName = "Matt"
loEForward.Subject = "This is an email with another email attached."

loEForward.SetHtmlBody("<p>Hello, this is an email I'm forwarding to you.  See the attached email.</p>")

// Attach the email.
loEForward.AttachEmail(loEmail)

// We could save the .eml, then double-click on it to view in our mail program, such as Outlook or Thunderbird..
loEForward.SaveEml("qa_output/forward.eml")

// We could send (forward) the email..
loMailman = createobject("CkMailMan")

loMailman.SmtpHost = "smtp.example.com"
loMailman.SmtpUsername = "myLogin"
loMailman.SmtpPassword = "myPassword"
loMailman.SmtpPort = 587
loMailman.StartTLS = .T.

llSuccess = loMailman.SendEmail(loEForward)
if (llSuccess = .F.) then
    ? loMailman.LastErrorText
    release loImap
    release loEmail
    release loEForward
    release loMailman
    return
endif

llSuccess = loMailman.CloseSmtpConnection()
if (llSuccess <> .T.) then
    ? "Connection to SMTP server not closed cleanly."
endif

? "Mail Sent!"


release loImap
release loEmail
release loEForward
release loMailman