Enviar ficheros en correo usando CDO
Publicado por Arturo (65 intervenciones) el 11/11/2017 16:24:34
Tengo una aplicación (creada hace 7 años) que envía correos a los clientes con las facturas utilizando Outlook.Application y ha dejado de enviar los emails.
Estoy modificandola para utilizar CDO Con la siguiente configuración:
Dim adjunto As String
adjunto = "C:\Facturas\Factura25.pdf"
Dim Obj_Email As CDO.Message
Set Obj_Email = New CDO.Message
Configuro el Obj_Email con el servidor, time out, si requiere autentificación, puerto ...... etc., pero cuando se ejecuta al Attachement del fichero PDF a enviar ...... casca.
Obj_Email.AddAttachment (adjunto) ' Aquí es donde se produce el error
En versiones .NET el adjunto hay que convertirlo en un formato Attachement para añadirlo, pero usando CDO en todos los ejemplos que he visto e incluso con Outlook.Aplication (que tampoco funciona) pone PATH_DEL ADJUNTO.
Podeis darme una solución.
Estoy modificandola para utilizar CDO Con la siguiente configuración:
Dim adjunto As String
adjunto = "C:\Facturas\Factura25.pdf"
Dim Obj_Email As CDO.Message
Set Obj_Email = New CDO.Message
Configuro el Obj_Email con el servidor, time out, si requiere autentificación, puerto ...... etc., pero cuando se ejecuta al Attachement del fichero PDF a enviar ...... casca.
Obj_Email.AddAttachment (adjunto) ' Aquí es donde se produce el error
En versiones .NET el adjunto hay que convertirlo en un formato Attachement para añadirlo, pero usando CDO en todos los ejemplos que he visto e incluso con Outlook.Aplication (que tampoco funciona) pone PATH_DEL ADJUNTO.
Podeis darme una solución.
Valora esta pregunta
0