Enviar reporte en pdf adjuntar y enviar por correo directo desde foxypreviewer - Ayuda
20 views
Skip to first unread message
Dony Bustamante
Sep 4, 2019, 11:17:53 PM9/4/19
to Visual Foxpro Latinoamérica
Buenas noches me puede ayudar quisiera adjuntar un reporte en PDF y poder enviarlo por correo; pero no envia el correo y tampoco ningun error. Estoy usando VFP 9 SP2
y windows 10.
El codigo que tengo es el siguiente
WITH _SCREEN.oFoxyPreviewer
.lSilent=.T.
vdirtmp = "c:\bk\hhh.pdf"
vreport = "REPORT FORM '" +SYS(5)+ SYS(2003) + "\reporte\rep150004.frx' " + " OBJECT TYPE 10 To File " + "'" + vdirtmp + "'"
&vreport
.nEmailMode = 2 && 1 = MAPI, 2 = CDOSYS HTML, 3 = CDOSYS TEXT, 4 = Custom procedure 37
.lEmailAuto = .T. && Automatically generates the report output file
.cEmailType = "PDF" && The file type to be used in Emails (PDF, RTF, HTML or XLS)
.lSilent =.T.
* GMAIL
.cSMTPServer = "smtp.gmail.com"
.nSMTPPort = 465
.lSMTPUseSSL = .T.
.cSMTPUserName = "cor...@gmail.com"
.cSMTPPassword = "pasword"
.cEmailFrom = "Dony<correo....@hotmail.com>"
.cEmailSubject = "Gestion de Cobro"
.cEmailBody = "<HTML><BR>archivo adjunto <BR><b>Adjunto documento pdf correspondiente</b></HTML>"
.SendEmailUsingCDO(vdirtmp)
ENDWITH
De antemano muchas gracias , por el apoyo.
Reply all
Reply to author
Forward
0 new messages