Enviar hoja de excel activa exportada a pdf con CDO

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")
ahora = Application.WorksheetFunction.Text(Now(), "dd.mm.yy- hh.mm")
ruta = "C:\Users\PC-2\Desktop\Prueba de reportes\cobro"
libro = "" & "-" & arrendario & "-" & ahora & ".pdf"
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 = "[email protected]"

emailobj.To = destinatario
Call pdf
emailobj.Subject = "Cobro de aparta"
emailobj.TextBody = "El pago de su aparta se aproxima"
emailobj.addattachement = libro
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") = "prueba1234"
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

1 Respuesta

Respuesta
1

Agrega esta para para agregar el pdf

Attachments. Add ArchivoPdf

Prueba a ver sino puedes este es mi correo [email protected]

Disculpa lo prove y no funciona te referías a hacer esto emailobj.attachmentsAadd archivopdf

Entonces archivopdf es una variable

En tu macro archivopdf es donde agrupas el nombre y la ruta para el pdf

Este mi correo si quiere le echo un vistazo a ver [email protected]

Añade tu respuesta

Haz clic para o

Más respuestas relacionadas