(PowerBuilder) Bounced Email Handling

Demonstrates how to examine emails and detect which are bounced (automated) replies. Classifies each email according to the type of bounce.

Chilkat ActiveX Downloads ActiveX for 32-bit and 64-bit Windows

integer li_rc
oleobject loo_Bounce
oleobject loo_Mailman
oleobject loo_Bundle
integer i
oleobject loo_Email
integer li_Success

// This example requires the Chilkat API to have been previously unlocked.
// See Global Unlock Sample for sample code.

loo_Bounce = create oleobject
// Use "Chilkat_9_5_0.Bounce" for versions of Chilkat < 10.0.0
li_rc = loo_Bounce.ConnectToNewObject("Chilkat.Bounce")
if li_rc < 0 then
    destroy loo_Bounce
    MessageBox("Error","Connecting to COM object failed")
    return
end if

// The mailman object is used for receiving (POP3) 
// and sending (SMTP) email.
loo_Mailman = create oleobject
// Use "Chilkat_9_5_0.MailMan" for versions of Chilkat < 10.0.0
li_rc = loo_Mailman.ConnectToNewObject("Chilkat.MailMan")

// Set the POP3 server's hostname
loo_Mailman.MailHost = "mail.chilkatsoft.com"

// Set the POP3 login/password.
loo_Mailman.PopUsername = "myLogin"
loo_Mailman.PopPassword = "myPassword"

// Copy the all email from the user's POP3 mailbox 
// into a bundle object.  The email remains on the server.
// (There are other methods for deleting email from a POP3 server.)
loo_Bundle = loo_Mailman.CopyMail()
if loo_Mailman.LastMethodSuccess = 0 then
    Write-Debug loo_Mailman.LastErrorText
    destroy loo_Bounce
    destroy loo_Mailman
    return
end if

i = 0

do while i < loo_Bundle.MessageCount
    loo_Email = loo_Bundle.GetEmail(i)

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

    if loo_Bounce.BounceType = 1 then
        // Hard bounce, log the email address
        Write-Debug "Hard Bounce: " + loo_Bounce.BounceAddress
    end if

    if loo_Bounce.BounceType = 2 then
        // Soft bounce, log the email address
        Write-Debug "Soft Bounce: " + loo_Bounce.BounceAddress
    end if

    if loo_Bounce.BounceType = 3 then
        // General bounce, no email address available.
        Write-Debug "General Bounce: No email address"
    end if

    if loo_Bounce.BounceType = 4 then
        // General bounce, log the email address
        Write-Debug "General Bounce: " + loo_Bounce.BounceAddress
    end if

    if loo_Bounce.BounceType = 5 then
        // Mail blocked, log the email address
        // A bounce occured because the sender was blocked. 
        Write-Debug "Mail Blocked: " + loo_Bounce.BounceAddress
    end if

    if loo_Bounce.BounceType = 6 then
        // Auto-reply, log the email address
        Write-Debug "Auto-Reply: " + loo_Bounce.BounceAddress
    end if

    if loo_Bounce.BounceType = 7 then
        // Transient (recoverable) Failure, log the email address
        Write-Debug "Transient Failure: " + loo_Bounce.BounceAddress
    end if

    if loo_Bounce.BounceType = 8 then
        // Subscribe request, log the email address
        Write-Debug "Subscribe Request: " + loo_Bounce.BounceAddress
    end if

    if loo_Bounce.BounceType = 9 then
        // Unsubscribe Request, log the email address
        Write-Debug "Unsubscribe Request: " + loo_Bounce.BounceAddress
    end if

    if loo_Bounce.BounceType = 10 then
        // Virus Notification, log the email address
        Write-Debug "Virus Notification: " + loo_Bounce.BounceAddress
    end if

    if loo_Bounce.BounceType = 11 then
        // Suspected bounce.
        // This should be rare.  It indicates that the Bounce
        // component found strong evidence that this is a bounced
        // email, but couldn't quite recognize everything it
        // needed to be 100% sure.  Feel free to notify
        // support@chilkatsoft.com regarding emails having this
        // bounce type.
        Write-Debug "Suspected Bounce!"
    end if

    if loo_Bounce.BounceType = 12 then
        // Challenge/Response - Auto-reply message sent by SPAM software 
        // where only verified email addresses are accepted. 
        Write-Debug "Challenge: " + loo_Bounce.BounceAddress
    end if

    if loo_Bounce.BounceType = 13 then
        // Address Change Notification Message.
        Write-Debug "Address Change: " + loo_Bounce.BounceAddress
    end if

    if loo_Bounce.BounceType = 14 then
        // Success DSN indicating that the message was successfully relayed.
        Write-Debug "DSN Successful Relay: "
    end if

    destroy loo_Email

    i = i + 1
loop

destroy loo_Bundle

li_Success = loo_Mailman.Pop3EndSession()


destroy loo_Bounce
destroy loo_Mailman