Hola Con una serie de datos he creado una hoja de Excel, que quiero enviar por correo electrónico. Para ello utilizo el siguiente código:
Código:
Dim mail As New MailMessage()
Dim SmtpServer As New SmtpClient()
SmtpServer.Credentials = New Net.NetworkCredential("[email protected]", "micontraseña")
SmtpServer.Port = 587
SmtpServer.Host = "smtp.gmail.com"
SmtpServer.EnableSsl = True
mail = New MailMessage()
mail.From = New MailAddress("[email protected]", ("El nombre que quiero que aparezca en de:"), System.Text.Encoding.UTF8)
mail.To.Add("[email protected]")
mail.Subject = (Envio de correo desde VB.NET)
mail.Body = ("Cuerpo del correo electroncio")
mail.Attachments.Add(New Attachment("C:\Mis documentos\hojadecalculo.xls"))
mail.ReplyTo = New MailAddress("[email protected]")
SmtpServer.Send(mail)
El problema es que muchas veces por problemas de ADSL o de ordenador tarda en enviarlo, entonces es como que ocurre un Timeout y no se envia. Lo que quería hacer era dejar la instancia abierta intentando enviarlo una y otra vez por lo menos durante unas horillas. Se me había ocurrido probar con un TimeoutExcepcion, pero no se si funcionara. De todas formas tampoco se por donde seguir. ¿Me podeis ayudar?