Envio de hoja activa exportada a PDF por CDO (no me envía el archivo adjunto)

5 envíos / 0 nuevos
Último envío
stifftico97
Imagen de stifftico97
Offline
última acción: Hace 1 año 8 meses
alta: 30/11/2016 - 15:40
Puntos: 160
Envio de hoja activa exportada a PDF por CDO (no me envía el archivo adjunto)

  Public Sub enviar_correo_reportepago()

 

Set arrendario = Range("b3")

ahora = Application.WorksheetFunction.Text(Now(), "dd.mm.yy- hh.mm")

ruta = "C:\Users\PC-2\Desktop\Prueba de reportes\cobro"  ,     'el nombre del pdf es cobro

libro = "" & "-" & arrendario & "-" & ahora & ".pdf"                    ' si uso este codigo solo para exportar si funciona 

  ArchivoPdf = ruta & libro

    ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:=ArchivoPdf, _

Quality:=xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas:=False, _

OpenAfterPublish:=False

 

 

destinatario = Range("b7").Value          'si dejo  este codigo sin addattachment si me funciona pero si se lo agrego no

Set emailobj = CreateObject("CDO.Message")

emailobj.From = destinatario

 

emailobj.To = destinatario

 

emailobj.Subject = "Pago realizado"

emailobj.TextBody = "El pago  de su aparta fue realizado con exito"

emailobj.AddAttachment = ArchivoPdf

Set emailConfig = emailobj.Configuration

 

emailConfig.Fields("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "smtp.gmail.com"

emailConfig.Fields("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 465

emailConfig.Fields("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2

emailConfig.Fields("http://schemas.microsoft.com/cdo/configuration/smtpauthenticate") = 1

emailConfig.Fields("http://schemas.microsoft.com/cdo/configuration/smtpusessl") = True

emailConfig.Fields("http://schemas.microsoft.com/cdo/configuration/sendusername") = "mi nombre usuario"

emailConfig.Fields("http://schemas.microsoft.com/cdo/configuration/sendpassword") = "mi contra"

emailConfig.Fields.Update

 

emailobj.Send

e sub
 
 
creo que el problema es al generar las rutas porque por aparte cada codigo si me funciona 
basicamente hay que encontar el error

Etiquetas: 

Cron
Imagen de Cron
Offline
última acción: Hace 5 horas 1 min
Nivel 1 - 200 puntosNivel 2 - 500 puntosNivel 3 - 1000 puntosNivel 4 - 2000 puntosNivel 5 - 4000 puntos
alta: 23/06/2010 - 12:30
Puntos: 10570
Sin tener el archivo original

Sin tener el archivo original (tomas datos de las hojas) es difícil saber. Aun así, en un vistazo rápido he visto que falta una barra invertida a la hora de formar el nombre del documento.

Prueba a cambiar "ruta" a este valor:

ruta = "C:\Users\PC-2\Desktop\Prueba de reportes\cobro\"

O "libro" a este otro:

libro = "\" & "-" & arrendario & "-" & ahora & ".pdf"

Por cierto, ¿quieres que el nombre de tu archivo empiece por un guión? O es que falta algo dentro de las dobles comillas del inicio?

Un saludo

stifftico97
Imagen de stifftico97
Offline
última acción: Hace 1 año 8 meses
alta: 30/11/2016 - 15:40
Puntos: 160
no me funciono

 si dejo la ruta y el libro tal como lo tengo si me exporta a PDf si lo cambio con tu recomendacion nisiquiera me exporta  por eso la dejo como la tenia

AdjuntoTamaño
File envio_de_cdo.xlsm27.32 KB
Cron
Imagen de Cron
Offline
última acción: Hace 5 horas 1 min
Nivel 1 - 200 puntosNivel 2 - 500 puntosNivel 3 - 1000 puntosNivel 4 - 2000 puntosNivel 5 - 4000 puntos
alta: 23/06/2010 - 12:30
Puntos: 10570
Ok, perdona, como te dije era

Ok, perdona, como te dije era un vistazo rápido y no entendí que "cobro" forma parte del nombre del archivo, pensaba que era una carpeta.

Creo que tienes un error en la orden Addattachment. Prueba a quitar el igual:

emailobj.AddAttachment ArchivoPdf

Parece ser que el nombre del arcchivo es un argumento de un método, y no el valor que toma.

Un saludo

stifftico97
Imagen de stifftico97
Offline
última acción: Hace 1 año 8 meses
alta: 30/11/2016 - 15:40
Puntos: 160
Resuelto

 tenia que declarar la variable del add attachment como  string