Dejo el codigo que estoy utilizando es en W 2003
Código:
Muchas gracias Dim MailObj
archivo = Split (request("path"),"\")
Set MailObj=CreateObject("CDO.Message")
MailObj.Subject=archivo(UBound(archivo))
MailObj.From="[email protected]"
MailObj.To=Email
MailObj.MimeFormatted = true
MailObj.BodyPart.ContentTransferEncoding = "base64"
MailObj.AddAttachment request("path"), archivo(UBound(archivo)), "application/pdf"
MailObj.Send

