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