SoloCodigo

Buenas noches compañeros del foro. Soy nueva en este foro y bueno ingresé al mismo porque una amiga que también está aquí me lo recomendó.

Les escribo porque estoy intentando enviar email desde vb.net 2003 y no me funciona. me dice que el mensaje ha sido enviado pero nunca llega a mi correo (destinatario)

Si pueden me echan una mano o me dicen que puedo hacer para solucionarlo.

Este es el código que utilizo en un formulario de windows

Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
        Dim a As Boolean
        a = False
        Try
            'Indicamos el servidor smtp que vamos a utilizar
            obj.SmtpServer = ""
            CDO = New System.Web.Mail.MailMessage
            'Indicamos el correo al que se le va a enviar el mensaje
            'si son varios los separamos por ;
            Mailmsg.To = TextBox1.Text

            'Definimos el nombre y correo del que envia el correo
            Mailmsg.From = "" & "Mi Nombre" & " <" & "gaby@gabriela.com" & ">"

            'Especificamos el tipo de formato del body
            If chkHtmlFormat.Checked = True Then
                'Envia el correo en formato HTML
                Mailmsg.BodyFormat = Mail.MailFormat.Html
            Else
                Mailmsg.BodyFormat = Mail.MailFormat.Text
            End If

            ''Si usted desea agregar la propiedad Reply to al correo que envia
            'Mailmsg.Headers.Add("Reply-To", "otro@midominio.net")

            ''Algun header que queramos agregar
            'Mailmsg.Headers.Add("Manoj", "TestHeader")

            Mailmsg.Subject = TextBox2.Text

            ''Si enviamos solo un archivo (Attachment) y el path esta en un text box usamos esta
            'Attachment = New MailAttachment(Me.txtAttach.Text)
            'Mailmsg.Attachments.Add(Attachment)

            'Si vamos a enviar varios archivos (Attachments)
            'Y tenemos los path en in listview, usamos este
            Dim itm As ListViewItem
            For Each itm In Me.lvArchivos.Items
                Attachment = New Mail.MailAttachment(itm.Text)
                Mailmsg.Attachments.Add(Attachment)
            Next

            Mailmsg.Body = Me.txtBody.Text
            obj.Send(Mailmsg)
        Catch ex As SystemException
            'MsgBox(ex.Message)
            'MsgBox(ex.ToString)
            MessageBox.Show("Debe configurar el servidor SMTP")
            a = True
        End Try
        If a = False Then
            MessageBox.Show("El mensaje ha sido enviado")
            Me.Close()
        End If
    End Sub

Cuando ejecuto ésto me dice El mensaje ha sido enviado pero no lo recibo en mi correo.

Si pueden darme una opción de cómo hacerlo ....

Estamos en contacto...