Esta es ni funcion de envio de mail [VB .Net], generalmente hago un loop dependiendo la lista de correos de unos 20 [que almaceno en una Tabla], no se si tronara con una lista grande
Public Function EnviarMailCliente(ByVal Mail1 As String, ByVal Mail2 As String)
BodyHTML = "<HTML><BODY><B><p align=""Left"" >Envio Automatico de Reportes</p></HTML></BODY></B>" & _
DesdeMail = "it@xxx.org.sv"
ServidorSMTP = "xxxxxxx"
Puerto = "25"
UsuarioSMTP = "xxxxx"
PassSMTP = "xxx"
If Mail1 = "" Or Mail2 = "" Then
MessageBox.Show("No hay destinatarios definidos", "Error de datos", MessageBoxButtons.OK, MessageBoxIcon.Error)
Exit Function
End If
Dim SMTP As New System.Net.Mail.SmtpClient 'Variable con la que se envia el correo
Dim CORREO As New System.Net.Mail.MailMessage 'Variable que amlmacena los Attachment [si es que lleva]
Dim AttachMail As System.Net.Mail.Attachment
AttachMail = New System.Net.Mail.Attachment("Path del atachado XD")
'Configuracion del Mensaje
CORREO.From = New System.Net.Mail.MailAddress(DesdeMail, "ASUNTO", System.Text.Encoding.UTF8)
CORREO.[To].Add(Mail1)
CORREO.[To].Add(Mail2)
CORREO.BCC.Add("yo@xxx.org.sv") ' Copia oculta por si las moscas
CORREO.Subject = "Subject XD"
CORREO.IsBodyHtml = True
CORREO.Body = BodyHTML
CORREO.Attachments.Add(AttachMail)
'Configuracion del SMTP
SMTP.Port = Puerto
SMTP.Host = ServidorSMTP
'SMTP.EnableSsl = True
Try
SMTP.Credentials = New System.Net.NetworkCredential(UsuarioSMTP, PassSMTP)
SMTP.Send(CORREO)
'MessageBox.Show("Correo de confirmacion enviado exitosamente a: " & MailClient & " CC: " & Mail2 & " - " & Mail3, "Confirmación", MessageBoxButtons.OK, MessageBoxIcon.Information)
Catch ex As System.Net.Mail.SmtpException
MessageBox.Show("Fallo el envio: " & ex.Message)
End Try
End Function
