Public Sub enviarmail(aTo As String[], cAsunto As String, cTexto As String, cFrom As String, Optional adjuntos As String[] = [], Optional bcc As String[] = [])
Dim enviador As New SmtpClient
Dim fich, mime, fname As String
Dim n As Integer
Dim s as String
enviador.debug = True
enviador.host = mcomun.mailserver["host"]
enviador.user = mcomun.mailserver["user"]
enviador.password = mcomun.mailserver["password"]
enviador.Alternative = False 'con esto le indicas que el texto puede ir en varios formatos para que el cliente de correo eliga. ¡No activar si hay adjuntos!.
enviador.From = cFrom
For Each s In aTo
enviador.To.Add(s)
Next
For Each s In bcc
enviador.bcc.Add(s)
Next
enviador.Subject = cAsunto
enviador.Body = cTexto
For Each fich In adjuntos
Exec ["file", "-bi", fich] To mime
mime = Left(mime, InStr(mime, ";") - 1)
fname = Right(fich, - RInStr(fich, "/"))
enviador.Add(File.Load(fich), mime, fname)
Next
enviador.send
End
Dim enviador As New SmtpClient
Dim fich, mime, fname As String
Dim n As Integer
Dim s as String
enviador.debug = True
enviador.host = mcomun.mailserver["host"]
enviador.user = mcomun.mailserver["user"]
enviador.password = mcomun.mailserver["password"]
enviador.Alternative = False 'con esto le indicas que el texto puede ir en varios formatos para que el cliente de correo eliga. ¡No activar si hay adjuntos!.
enviador.From = cFrom
For Each s In aTo
enviador.To.Add(s)
Next
For Each s In bcc
enviador.bcc.Add(s)
Next
enviador.Subject = cAsunto
enviador.Body = cTexto
For Each fich In adjuntos
Exec ["file", "-bi", fich] To mime
mime = Left(mime, InStr(mime, ";") - 1)
fname = Right(fich, - RInStr(fich, "/"))
enviador.Add(File.Load(fich), mime, fname)
Next
enviador.send
End
Corta, simple y funcional. Veréis que me apoyo en el comando file para extraer el mime-type de cada adjunto y veréis que he omitido, por seguridad anti-spammers, el CC, sólo admito BCC, que ya hemos tenido lío con eso en la empresa.
Espero que os sea útil.
Saludos
