Envio de Correo con un archivo Adjunto

[fferrada]

Com puedo mandar un mail con un archivo adjunto como un archivo de Excel.

Gracias de antemano


Fabian Ferrada

[DanielRey]

Hola fferrada :)

No estoy del todo seguro, pero prueba con algo así:

Dim MyMail
Set MyMail = Server.CreateObject("CDONTS.NewMail")
MyMail.From = "remitente@dominio"
MyMail.To = "destinatario@dominio"
MyMail.Cc = "copia_para@dominio"
MyMail.Bcc = "copia_oculta@dominio"
MyMail.Subject = "Hola, ¿Como estás?"
MyMail.BodyFormat = 1
MyMail.MailFormat = 0
MyMail.Body = "<H1>Contenbido HTML </H1>"
MyMail.Attachfile "X:\Camino\archivo.xls", "nombre", 1
MyMail.Send
Set MyMail = Nothing

Suerte ;)