Visual Basic 6.0

SMTP Inspection

See more SMTP Examples

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

Dim success As Long
success = 0

Dim mailman As New ChilkatMailMan

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

mailman.SmtpPort = 465
mailman.StartTLS = 1

Dim email As New ChilkatEmail

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

' Generate the MIME that is sent when SendEmail is called
Dim mimeStr As String
mimeStr = mailman.RenderToMime(email)
Debug.Print mimeStr

success = mailman.SendEmail(email)
If (success = 0) Then
    Debug.Print mailman.LastErrorText
    Exit Sub
End If

success = mailman.CloseSmtpConnection()
If (success <> 1) Then
    Debug.Print "Connection to SMTP server not closed cleanly."
End If

' Examine the SMTP session log.
Debug.Print "----"
Debug.Print "Smtp Session Log:"
Debug.Print mailman.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