Buenass, tengo un problema al enviar un mail, a ver si alguien me puede echar una mano.
Dim Correo As MailMessage = New MailMessage
Dim mensaje As String = TBrespuesta.Text.ToString
With Correo
.From = TBde.Text.ToString
.To = TBpara.Text.ToString
.Subject = TBasunto.Text.ToString
.Body = mensaje.ToString
End With
SmtpMail.SmtpServer ="smtp.telefonica.net"
SmtpMail.Send(Correo)
Me da el error siguiente:
Detalles de la excepción: System.Runtime.InteropServices.COMException: El servidor rechazó una o más direcciones de destinatarios. Respuesta del servidor: 530 Delivery not allowed to non-local recipient, try authenticating
Error de código fuente:
Línea 74: End With
Línea 75: SmtpMail.SmtpServer ="smtp.telefonica.net"
Línea 76: SmtpMail.Send(Correo)
Línea 77:
Línea 78: End If
Gracias.
Un saludo
Ciaoooooo
