Lianja

Forward an Email using CreateForward

See more Email Object Examples

Reads an email from an IMAP server, creates a forward version of the email using the CreateForward method, and sends the email to another recipient. 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

loEForward = createobject("CkEmail")
llSuccess = loEmail.ToForward(loEForward)
if (llSuccess = .F.) then
    ? loEmail.LastErrorText
    release loImap
    release loEmail
    release loEForward
    return
endif

// The eForward email has no To or CC recipients yet.
// Add one or more..
loEForward.AddTo("Joe","joe@example.com")

// We also need to specify the From name/address.
loEForward.FromAddress = "matt@someMailServer.com"
loEForward.FromName = "Matt"

// If we wish to add text at the start of the email body:
loSbHtmlBody = createobject("CkStringBuilder")
if (loEForward.HasHtmlBody() = .T.) then
    loSbHtmlBody.Append(loEForward.GetHtmlBody())
    loSbHtmlBody.Prepend("<p>Hello, this is an email I'm forwarding to you...</p>")
    loEForward.SetHtmlBody(loSbHtmlBody.GetAsString())
endif

loSbPtBody = createobject("CkStringBuilder")
if (loEForward.HasPlainTextBody() = .T.) then
    loSbPtBody.Append(loEForward.GetPlainTextBody())
    loSbPtBody.Prepend("Hello, this is an email I'm forwarding to you..." + Chr(13) + Chr(10) + Chr(13) + Chr(10))
    loEForward.SetTextBody(loSbPtBody.GetAsString(),"text/plain")
endif

// 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 loSbHtmlBody
    release loSbPtBody
    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 loSbHtmlBody
release loSbPtBody
release loMailman