Hola a todos!!!
Quisiera saber como envio correos en vb.net en donde en el To (para) lleve un monton de destinatarios pero que mande el correo si por lo menos una direccion de correo es valida.. Por ke ahorita tengo ya el codigo que lo hace pero el problema esta en que si en el to lleva una direccion de correo que no exista no mas no envia ese correo a todos los destinatarios, y tmb quisiera saber cual o cuales son esos correos que no se pudieron enviar; tipo delivery de hotmail o outlook.
No lo quiero hacer con un for, es decir enviar un correo para cada cliente, debido a que son como 10000 correos al dia, y son como 3000 usuarios a los que hay que enviarles esos 10000 correos, eso saturaria el servidor de correos.
Cualquier ayuda o sugerencia se los agradecere...
Les pongo el codigo que uso:
Código:
Dim oMsg As MailMessage = New MailMessage()
' TODO: Reemplace con la dirección de correo electrónico del remitente.
oMsg.From = "[email protected]"
' TODO: Reemplace con la dirección de correo electrónico del destinatario.
oMsg.To = "[email protected],destinatario2@dominio1 .com,[email protected]"
oMsg.Subject = "Enviar con Web Mail"
' ENVIAR EN FORMATO HTML
oMsg.BodyFormat = MailFormat.Html
'HTML Body (quite las etiquetas HTML para el texto sin formato).
oMsg.Body = "<HTML><BODY><B>¡Prueba desde .net!</B></BODY></HTML>"
' AGREGAR UN ARCHIVO ADJUNTO. ' TODO: Reemplace con la ruta de acceso del archivo adjunto.
Dim sFile As String = "C:\1.pdf"
Dim oAttch As MailAttachment = New MailAttachment(sFile, MailEncoding.Base64)
oMsg.Attachments.Add(oAttch)
' TODO: Reemplace con el nombre de su servidor SMTP remoto.
'SmtpMail.SmtpServer
SmtpMail.SmtpServer = "mail.dominio.com"
Try
SmtpMail.Send(oMsg)
Catch ex As Exception
MsgBox(ex.Message)
End Try
oMsg = Nothing
oAttch = Nothing