Lianja

SMTP Inspection

See more SMTP Examples

Examine an SMTP session to view all communications sent to the SMTP server. Lianja

llSuccess = .F.

loMailman = createobject("CkMailMan")

loMailman.SmtpHost = "smtp.example.com"
loMailman.SmtpUsername = "myUsername"
loMailman.SmtpPassword = "myPassword"

loMailman.SmtpPort = 465
loMailman.StartTLS = .T.

loEmail = createobject("CkEmail")

loEmail.Subject = "This is a test"
loEmail.Body = "This is a test"
loEmail.From = "Alex <alex@example.com>"
loEmail.AddTo("Christoph","christoph@example2.com")
loEmail.AddBcc("Victor","victor@example3.com")

// Generate the MIME that is sent when SendEmail is called
lcMimeStr = loMailman.RenderToMime(loEmail)
? lcMimeStr

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

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

// Examine the SMTP session log.
? "----"
? "Smtp Session Log:"
? loMailman.SmtpSessionLog

// ---------------------------------------------------
// 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


release loMailman
release loEmail