Visual FoxPro

SMTP Inspection

See more SMTP Examples

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

LOCAL lnSuccess
LOCAL loMailman
LOCAL loEmail
LOCAL lcMimeStr

lnSuccess = 0

loMailman = CreateObject('Chilkat.MailMan')

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

loMailman.SmtpPort = 465
loMailman.StartTLS = 1

loEmail = CreateObject('Chilkat.Email')

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

lnSuccess = loMailman.SendEmail(loEmail)
IF (lnSuccess = 0) THEN
    ? loMailman.LastErrorText
    RELEASE loMailman
    RELEASE loEmail
    CANCEL
ENDIF

lnSuccess = loMailman.CloseSmtpConnection()
IF (lnSuccess <> 1) 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