(Tcl) Forward by Attaching the Existing Email to a New Email

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.

Note: This example requires Chilkat v11.0.0 or greater.

Chilkat Tcl Extension Downloads Chilkat Tcl Extension Downloads

load ./chilkat.dll

set success 0

# 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.
set imap [new_CkImap]

# Connect to an IMAP server.
CkImap_put_Ssl $imap 1
CkImap_put_Port $imap 993
set success [CkImap_Connect $imap "imap.example.com"]
if {$success == 0} then {
    puts [CkImap_lastErrorText $imap]
    delete_CkImap $imap
    exit
}

# Login
set success [CkImap_Login $imap "myLogin" "myPassword"]
if {$success == 0} then {
    puts [CkImap_lastErrorText $imap]
    delete_CkImap $imap
    exit
}

# Select an IMAP mailbox
set success [CkImap_SelectMailbox $imap "Inbox"]
if {$success == 0} then {
    puts [CkImap_lastErrorText $imap]
    delete_CkImap $imap
    exit
}

set numEmails [CkImap_get_NumMessages $imap]

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

set email [new_CkEmail]

set success [CkImap_FetchEmail $imap 0 $numEmails 0 $email]
if {$success == 0} then {
    puts [CkImap_lastErrorText $imap]
    delete_CkImap $imap
    delete_CkEmail $email
    exit
}

# Disconnect from the IMAP server.
CkImap_Disconnect $imap

puts [CkEmail_subject $email]

# Create a new email.  The email we just read will be attached to this email.
set eForward [new_CkEmail]

CkEmail_AddTo $eForward "Joe" "joe@example.com"

CkEmail_put_FromAddress $eForward "matt@somewhere.com"
CkEmail_put_FromName $eForward "Matt"
CkEmail_put_Subject $eForward "This is an email with another email attached."

CkEmail_SetHtmlBody $eForward "<p>Hello, this is an email I'm forwarding to you.  See the attached email.</p>"

# Attach the email.
CkEmail_AttachEmail $eForward $email

# We could save the .eml, then double-click on it to view in our mail program, such as Outlook or Thunderbird..
CkEmail_SaveEml $eForward "qa_output/forward.eml"

# We could send (forward) the email..
set mailman [new_CkMailMan]

CkMailMan_put_SmtpHost $mailman "smtp.example.com"
CkMailMan_put_SmtpUsername $mailman "myLogin"
CkMailMan_put_SmtpPassword $mailman "myPassword"
CkMailMan_put_SmtpPort $mailman 587
CkMailMan_put_StartTLS $mailman 1

set success [CkMailMan_SendEmail $mailman $eForward]
if {$success == 0} then {
    puts [CkMailMan_lastErrorText $mailman]
    delete_CkImap $imap
    delete_CkEmail $email
    delete_CkEmail $eForward
    delete_CkMailMan $mailman
    exit
}

set success [CkMailMan_CloseSmtpConnection $mailman]
if {$success != 1} then {
    puts "Connection to SMTP server not closed cleanly."
}

puts "Mail Sent!"

delete_CkImap $imap
delete_CkEmail $email
delete_CkEmail $eForward
delete_CkMailMan $mailman