Tengo que realizar un envió de email con adjunto, mi problema es que algunos pdf los envía pero llegan corruptos, pude solucionar esto agregando el "ContentTransferEncoding" pero con esto aumenta el peso del pdf, mi problema es que los archivos mayores a 2M no llegan (lo cual esta estandarizado), pero si adjuntan un archivo de 1.8M debería llegar, con la codificación el mismo pasa a pesar 2.6M y es filtrado, necesitaría que alguien me oriente sobre alguna solución posible
Dejo el codigo que estoy utilizando es en W 2003
Código:
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
Muchas gracias