Visual Basic.NET - Dar seguimiento a e-mail

 
Vista:

Dar seguimiento a e-mail

Publicado por fer (65 intervenciones) el 14/09/2007 20:32:16
Hola gente como estan?...espero que bien....mi consulta es la siguiente:
Hay alguna forma de darle seguimiento a un correo electrónico que fue enviado...o sea como saber que le llego al destinatario...estoy usando System.Net.Mail en VB .Net 2005...chao y gracias por la ayuda que puedan brindarme...
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder

RE:Dar seguimiento a e-mail

Publicado por Harold V. (411 intervenciones) el 14/09/2007 23:47:00
Hola: Espero esto te pueda ayudar......

Dim m As MailMessage = New MailMessage

Private Sub cmdSend_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmdSend.Click
Enviarmail()
End Sub

Sub EnviarMail
m.From = New MailAddress("[email protected]")
m.To.Add("[email protected]")
m.Subject = "prueba de envio (email)"
m.Body = "Este es un mensaje de prueba de envio de mensaje Asincronicamente!!"
Dim client As SmtpClient = New SmtpClient("smtp.tuserver.com")

AddHandler client.SendCompleted, AddressOf Client_SendCompleted
client.SendAsync(m, Nothing)
End Sub

Sub Client_SendCompleted(ByVal sender As Object, ByVal e As AsyncCompletedEventArgs)
If e.Cancelled Then
MessageBox.Show("Message cancelled.", "Cancelled", _
MessageBoxButtons.OK, MessageBoxIcon.Error)
Else
If Not (e.Error Is Nothing) Then
MessageBox.Show("Error: " + e.Error.ToString, "Error", _
MessageBoxButtons.OK, MessageBoxIcon.Error)
Else
MessageBox.Show("Message sent successfully.", "Success", _
MessageBoxButtons.OK, MessageBoxIcon.Information)
End If
End If
End Sub
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar