cdosys: Bounced Emails

Hello All,

I am using CDOSYS in my Email Marketing Web Application. Given below is the code that i use to send an email.. and it works, I am not able to detect if the file has bounced back. I am working on the Delivery Report and this is my first step towards it. I know there are lot of components out there that can manage all this for me. but i believe it is possible within the features offered by CDOSYS. The following link seems explaining it.

http://support.microsoft.com/?scid=kb;en-us;302839&spid=6384&sid=67

The code i used.

    Function SendTestMails(ByVal strHTML As String, ByVal strToEmailID As String) As Boolean

        Dim dtMember As DataTable
        Dim strFromMailId, strSMTPserver, strSMTPusername, strSMTPpassword, strSMTPport As String

        Try
            dtMember = pi_obj_Member.GetMembers(2)
        Catch ex As Exception
            System.Diagnostics.Debug.WriteLine(ex.Message)
        End Try

        If dtMember.Rows.Count > 0 Then
            strFromMailId = "me@company.com"
            strSMTPserver = "NNN.NN.NN.NN"
            strSMTPusername = "MyUserName"
            strSMTPpassword = "MyPassword"
            strSMTPport = "25"

            Const cdoSendUsingPickup = 1 'Send message using the local SMTP service pickup directory.
            Const cdoSendUsingPort = 2 'Send the message using the network (SMTP over the network).

            Const cdoAnonymous = 0 'Do not authenticate
            Const cdoBasic = 1 'basic (clear-text) authentication
            Const cdoNTLM = 2 'NTLM

            Dim objMessage As Object
            objMessage = CreateObject("CDO.Message")
            objMessage.Subject = "This is a test message"
            objMessage.From = strFromMailId
            objMessage.To = strToEmailID
            objMessage.HTMLBody = CStr("" & strHTML)

            '==This section provides the configuration information for the remote SMTP server.

            objMessage.Configuration.Fields.Item _
            ("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2

            'Name or IP of Remote SMTP Server
            objMessage.Configuration.Fields.Item _
            ("http://schemas.microsoft.com/cdo/configuration/smtpserver") = strSMTPserver

            'Type of authentication, NONE, Basic (Base64 encoded), NTLM
            objMessage.Configuration.Fields.Item _
            ("http://schemas.microsoft.com/cdo/configuration/smtpauthenticate") = cdoBasic

            'Your UserID on the SMTP server
            objMessage.Configuration.Fields.Item _
            ("http://schemas.microsoft.com/cdo/configuration/sendusername") = strSMTPusername

            'Your password on the SMTP server
            objMessage.Configuration.Fields.Item _
            ("http://schemas.microsoft.com/cdo/configuration/sendpassword") = strSMTPpassword

            'Server port (typically 25)
            objMessage.Configuration.Fields.Item _
            ("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = strSMTPport '25

            'Use SSL for the connection (False or True)
            objMessage.Configuration.Fields.Item _
            ("http://schemas.microsoft.com/cdo/configuration/smtpusessl") = False

            objMessage.Configuration.fields("urn:schemas:mailheader:disposition-notification-to") = "me@company.com"
            objMessage.Configuration.fields("urn:schemas:mailheader:return-receipt-to") = "me@company.com"
            objMessage.Configuration.Fields.Update()

            '==End remote SMTP server configuration section==
            Try
                objMessage.Send()
            Catch ex As Exception
                System.Diagnostics.Debug.WriteLine(ex.Message)
            End Try

            objMessage = Nothing
        End If

    End Function