(Tcl) Forward an Email using CreateForward

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.

Chilkat Tcl Extension Downloads Chilkat Tcl Extension Downloads

load ./chilkat.dll

# 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.someMailServer.com"]
if {$success != 1} then {
    puts [CkImap_lastErrorText $imap]
    delete_CkImap $imap
    exit
}

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

# Select an IMAP mailbox
set success [CkImap_SelectMailbox $imap "Inbox"]
if {$success != 1} 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)
# email is a CkEmail
set email [CkImap_FetchSingle $imap $numEmails 0]
if {[CkImap_get_LastMethodSuccess $imap] == 0} then {
    puts [CkImap_lastErrorText $imap]
    delete_CkImap $imap
    exit
}

# Disconnect from the IMAP server.
CkImap_Disconnect $imap

puts [CkEmail_subject $email]

# eForward is a CkEmail
set eForward [CkEmail_CreateForward $email]

# The eForward email has no To or CC recipients yet.
# Add one or more..
CkEmail_AddTo $eForward "Chilkat Support" "support@chilkatsoft.com"

# We also need to specify the From name/address.
CkEmail_put_FromAddress $eForward "matt@someMailServer.com"
CkEmail_put_FromName $eForward "Matt"

# If we wish to add text at the start of the email body:
set sbHtmlBody [new_CkStringBuilder]

if {[CkEmail_HasHtmlBody $eForward] == 1} then {
    CkStringBuilder_Append $sbHtmlBody [CkEmail_getHtmlBody $eForward]
    CkStringBuilder_Prepend $sbHtmlBody "<p>Hello, this is an email I'm forwarding to you...</p>"
    CkEmail_SetHtmlBody $eForward [CkStringBuilder_getAsString $sbHtmlBody]
}

set sbPtBody [new_CkStringBuilder]

if {[CkEmail_HasPlainTextBody $eForward] == 1} then {
    CkStringBuilder_Append $sbPtBody [CkEmail_getPlainTextBody $eForward]
    CkStringBuilder_Prepend $sbPtBody "Hello, this is an email I'm forwarding to you...\r\n\r\n"
    CkEmail_SetTextBody $eForward [CkStringBuilder_getAsString $sbPtBody] "text/plain"
}

# 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.someMailServer.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 != 1} then {
    puts [CkMailMan_lastErrorText $mailman]
    delete_CkImap $imap
    delete_CkStringBuilder $sbHtmlBody
    delete_CkStringBuilder $sbPtBody
    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_CkEmail $eForward

delete_CkEmail $email


delete_CkImap $imap
delete_CkStringBuilder $sbHtmlBody
delete_CkStringBuilder $sbPtBody
delete_CkMailMan $mailman