PowerBuilder

SMTP Inspection

See more SMTP Examples

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

integer li_rc
long li_Success
oleobject loo_Mailman
oleobject loo_Email
string ls_MimeStr

li_Success = 0

loo_Mailman = create oleobject
li_rc = loo_Mailman.ConnectToNewObject("Chilkat.MailMan")
if li_rc < 0 then
    destroy loo_Mailman
    MessageBox("Error","Connecting to COM object failed")
    return
end if

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

loo_Mailman.SmtpPort = 465
loo_Mailman.StartTLS = 1

loo_Email = create oleobject
li_rc = loo_Email.ConnectToNewObject("Chilkat.Email")

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

//  Generate the MIME that is sent when SendEmail is called
ls_MimeStr = loo_Mailman.RenderToMime(loo_Email)
Write-Debug ls_MimeStr

li_Success = loo_Mailman.SendEmail(loo_Email)
if li_Success = 0 then
    Write-Debug loo_Mailman.LastErrorText
    destroy loo_Mailman
    destroy loo_Email
    return
end if

li_Success = loo_Mailman.CloseSmtpConnection()
if li_Success <> 1 then
    Write-Debug "Connection to SMTP server not closed cleanly."
end if

//  Examine the SMTP session log.
Write-Debug "----"
Write-Debug "Smtp Session Log:"
Write-Debug loo_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


destroy loo_Mailman
destroy loo_Email