Envio de email
Publicado por José Vicente (113 intervenciones) el 12/08/2020 09:12:04
Hola, buenos días de nuevo, estoy intentando enviar un email desde mi aplicación vb.net y me da el error de la imagen:
El código que estoy usando es:
¿Puede alguién decirme qué tengo mal?. Gracias
El código que estoy usando es:
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
'Enviamos la captura por correoDim smtp As New System.Net.Mail.SmtpClient
Dim correo As New System.Net.Mail.MailMessage
Dim adjunto As System.Net.Mail.Attachment
With smtp
.Port = 587
.Host = "smtp.office365.com"
.Credentials = New System.Net.NetworkCredential("correo@hotmail.com", "Password")
.EnableSsl = False
.DeliveryMethod = SmtpDeliveryMethod.Network
End With
adjunto = New System.Net.Mail.Attachment("D:\Documentos\Proyecto_tensión\Tensión\Tension\bin\Debug\tension.png")
With correo
.From = New System.Net.Mail.MailAddress("correo@hotmail.com")
.To.Add("correo@yahoo.es")
.Subject = "Tensión de hoy"
.Body = "<strong>Esta es la tensión arterial de hoy</strong>"
.IsBodyHtml = True
.Priority = System.Net.Mail.MailPriority.High
.Attachments.Add(adjunto)
End With
Try
smtp.Send(correo)
MessageBox.Show("El mensaje de correo ha sido enviado con éxito.",
"Correo enviado",
MessageBoxButtons.OK)
Catch ex As Exception
MessageBox.Show("Error: " & ex.Message,
"Error al enviar el correo",
MessageBoxButtons.OK)
End Try
Valora esta pregunta
0
