Envio de hoja activa exportada a pdf y enviarla con CDO(sin outlook)

[stifftico97]

Básicamente seria unir estos códigos pero no se como agregar el pdf al .addattachement

Private Sub Enviar_cobro_correo_Click()

Set fecha = Range("f3")
Set arrendario = Range("b3")   ' ariana por ejm
ahora = Application.WorksheetFunction.Text(Now(), "dd.mm.yy- hh.mm")
ruta = "C:\Users\PC-2\Desktop\Prueba de reportes\cobro"            ' el nombre del archivo se llama cobro  
libro = "" & "-" & arrendario & "-" & ahora & ".pdf"        ' cobro ariana 23/11/2016
ArchivoPdf = ruta & libro
ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:=ArchivoPdf, _
Quality:=xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas:=False, _
OpenAfterPublish:=False
End Sub

Sub envio_cdo

destinatario = Range("b7").Value
Set emailobj = CreateObject("CDO.Message")
emailobj.From = "pruebastiff@gmail.com"

emailobj.To = destinatario
Call pdf
emailobj.Subject = "Cobro de aparta"
emailobj.TextBody = "El pago de su aparta se aproxima"
emailobj. Attachments. Add ArchivoPdf  ' al llegar a este punto me tira error 438 el objeto no admite esta propiedad
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") = "pruebastiff"
emailConfig.Fields("http://schemas.microsoft.com/cdo/configuration/sendpassword") = "XXXXXXXXX"
emailConfig.Fields.Update

emailobj.Send

'If Err.Number = 0 Then
' MsgBox "Done"
'Else
' MsgBox Err.Number & " " & Err.Description
'' Err.Clear
'End If

MsgBox "cobro enviado"

end sub