Envio de hoja activa exportada a pdf y enviarla con CDO(sin outlook)
publicado
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
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
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 = "[email protected]"
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