Visual Basic - Enviar ficheros en correo usando CDO

Life is soft - evento anual de software empresarial
   
Vista:

Enviar ficheros en correo usando CDO

Publicado por Arturo (64 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.
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder
Revisar política de publicidad