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
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
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
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
tenia que declarar la variable del add attachment como string