envio de hoja activa exportada a pdf por CDO (sin outlook)
Publicado por kevin (4 intervenciones) el 22/11/2016 14:40:55
Oocupo enviar la hoja activa pero exportada a pdf por CDO tengo el siguiente codigo el primero me exporta la ho el segundo envia el mensaje pero no me funciona el .addattachement
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
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 = "pruebastiff@gmail.com"
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") = "mi contraseña"
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
Valora esta pregunta
0
