Excel - envio de hoja activa exportada a pdf por CDO (sin outlook)

 
Vista:
sin imagen de perfil

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
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder
Imágen de perfil de Andres Leonardo
Val: 3.834
Plata
Ha mantenido su posición en Excel (en relación al último mes)
Gráfica de Excel

envio de hoja activa exportada a pdf por CDO (sin outlook)

Publicado por Andres Leonardo (1500 intervenciones) el 22/11/2016 16:25:24
Para mi parecer sin pñoder probar
Tienes un problema al generar las rutas.. primero generas la ruta del pdf errada ....

Intenta asi

1
2
3
ruta = "C:\Users\PC-2\Desktop\Prueba de reportes\cobro"
libro = "" & "-" & arrendario & "-" & ahora & ".pdf"  ' aunque no veo el nombre del pdf a menos que sea cobro  :s
ArchivoPdf = ruta & " \ "& libro
o asi

1
2
3
ruta = "C:\Users\PC-2\Desktop\Prueba de reportes\cobro\"
libro = "" & "-" & arrendario & "-" & ahora & ".pdf"  ' aunque no veo el nombre del pdf a menos que sea cobro  :s
ArchivoPdf = ruta & libro

Ya que como tu tienes te daria el nombre asi te falta un \

Ahora luego QUEIRES adjuntar el xls o pdf... por que si vas a adjuntar necesitas la ruta del pdf que es lo que exportas...

1
emailobj.addattachement = ArchivoPdf

Espero te sirva me avisas...
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
1
Comentar
sin imagen de perfil

envio de hoja activa exportada a pdf por CDO (sin outlook)

Publicado por stiff (4 intervenciones) el 23/11/2016 15:31:36
hola Andres Leonardo si el nombre del pdf es cobro al hacer tus indicaciones me funciona esta parte y si quiero enviar el pdf

ruta = "C:\Users\PC-2\Desktop\Prueba de reportes\cobro\"
libro = "" & "-" & arrendario & "-" & ahora & ".pdf" ' aunque no veo el nombre del pdf a menos que sea cobro :s
ArchivoPdf = ruta & libro
pero ala hora de ejecutar paso a paso por instrucciones me da el error"El objeto no admite esta propiedad o este método (error 438) "
al llegar ala parte del emailobj.addattachement = ArchivoPdf
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar