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