(Tcl) SMTP Inspection

See more SMTP Examples

Chilkat Tcl Extension Downloads Chilkat Tcl Extension Downloads

load ./chilkat.dll

set success 0

set mailman [new_CkMailMan]

CkMailMan_put_SmtpHost $mailman "smtp.example.com"
CkMailMan_put_SmtpUsername $mailman "myUsername"
CkMailMan_put_SmtpPassword $mailman "myPassword"

CkMailMan_put_SmtpPort $mailman 465
CkMailMan_put_StartTLS $mailman 1

set email [new_CkEmail]

CkEmail_put_Subject $email "This is a test"
CkEmail_put_Body $email "This is a test"
CkEmail_put_From $email "Alex <alex@example.com>"
CkEmail_AddTo $email "Christoph" "christoph@example2.com"
CkEmail_AddBcc $email "Victor" "victor@example3.com"

# Generate the MIME that is sent when SendEmail is called
set mimeStr [CkMailMan_renderToMime $mailman $email]
puts "$mimeStr"

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

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

# Examine the SMTP session log.
puts "----"
puts "Smtp Session Log:"
puts [CkMailMan_smtpSessionLog $mailman]

# ---------------------------------------------------
# Sample output:
# ---------------------------------------------------

# MIME-Version: 1.0
# Date: Fri, 06 Mar 2026 16:21:00 -0600
# Message-ID: <A5DC25990C93EC2676F4FBB2BB3BFA9EB34FF9D3@CHILKAT25>
# Content-Type: text/plain; charset=us-ascii; format=flowed
# Content-Transfer-Encoding: 7bit
# X-Priority: 3 (Normal)
# Subject: This is a test
# From: Alex <alex@example.com>
# To: Christoph <christoph@example2.com>
# Bcc: Victor <victor@example3.com>
# 
# This is a test
# ----
# Smtp Session Log:
# 220 smtp.example.com ESMTP Amazon WorkMail SMTP Service
# EHLO MYCOMPUTER<CRLF>
# 250-smtp.example.com
# 250-8BITMIME
# 250-AUTH PLAIN LOGIN
# 250 Ok
# AUTH LOGIN<CRLF>
# 334 VXNlcm5hbWU6
# YWRtaW5AY2hpbGthdHNvZnQuY29t<CRLF>
# 334 UGFzc3dvcmQ6
# {PasswordOrCredentials}
# 235 Authentication successful.
# MAIL FROM:<alex@example.com><CRLF>
# 250 Ok
# RCPT TO:<christoph@example2.com><CRLF>
# 250 Ok
# RCPT TO:<victor@example3.com><CRLF>
# 250 Ok
# DATA<CRLF>
# 354 End data with <CR><LF>.<CR><LF>
# {388 bytes} <--- The MIME source of the email (examined via RenderToMime) was sent here.
# <CRLF>.<CRLF>
# 250 Ok
# QUIT<CRLF>
# 221 Bye

delete_CkMailMan $mailman
delete_CkEmail $email