Envío de Emails
Publicado por Dario (3 intervenciones) el 17/07/2023 18:46:25
Hola tengo un pequeño código de un programa en visual.net que da error de timeout, quisiera saber si alguien puede darme una mano con esto y si hay alguna otra forma de hacer un envío mediante SMTP.
Desde ya muchas gracias por visitar mi consulta.
motor = New SmtpClient(mail.hostinger.com, 465) With {
.EnableSsl = True,
.UseDefaultCredentials = true,
.Timeout = 120000
}
contraseña = Farmasur2023-
mailSaliente = [email protected]
motor.Credentials = New NetworkCredential(mailSaliente, contraseña)
Dim mensaje As New MailMessage(mailSaliente, direccionDestino, asunto, "Adjuntamos Ficha/s de pago")
For Each archivo As String In archivos
Dim comprobante As New Mail.Attachment(archivo, "application/pdf")
mensaje.Attachments.Add(comprobante)
Next
motor.Send(mensaje)
Desde ya muchas gracias por visitar mi consulta.
motor = New SmtpClient(mail.hostinger.com, 465) With {
.EnableSsl = True,
.UseDefaultCredentials = true,
.Timeout = 120000
}
contraseña = Farmasur2023-
mailSaliente = [email protected]
motor.Credentials = New NetworkCredential(mailSaliente, contraseña)
Dim mensaje As New MailMessage(mailSaliente, direccionDestino, asunto, "Adjuntamos Ficha/s de pago")
For Each archivo As String In archivos
Dim comprobante As New Mail.Attachment(archivo, "application/pdf")
mensaje.Attachments.Add(comprobante)
Next
motor.Send(mensaje)
Valora esta pregunta
0