Qué tal efi.consultora!
Creo que el colega te contestó en general. Por eso te decía de especificar el dominio.
Lo que pase es que gmail hay que configurarlo "especial". No es tu caso.
Te adjunto un código que funciona con
FoxyPreviewer. Debes ubicar el archivo
FoxyPreviewer.app donde lo ejecutes.
La idea es que hagas pruebas para saber si el código funciona con los parámetros que usas.
Lo acabo de probar. Los parámetros de "personalizado" corresponden a un dominio privado, como es tu caso.
Ajusta esos parámetros a tu dominio.
Éste código lo compartieron en la comunidad:
* This sample shows how you can configure lots of email options, in order to determine how
* your reports will be sent by email
* Allows adding other attachments, see the cAttachments property
* Make sure to provide all the correct SMTP settings, the provided here are just samples
* Several email settings
* http://www.emailaddressmanager.com/tips/mail-settings.html
*IF VARTYPE(_Screen.oFoxyPreviewer) <> "O"
DO LOCFILE("FoxyPreviewer.App")
*ENDIF
WITH _Screen.oFoxyPreviewer
.cLanguage = "SPANISH"
.cEmailTo = "not...@prodigy.net.mx"
.lEmailAuto = .T. && Automatically generates the report output file
.cEmailType = "PDF" && The file type to be used in Emails (PDF, RTF, HTML or XLS)
.nEmailMode = 2 && 1 = MAPI, 2 = CDOSYS HTML, 3 = CDOSYS TEXT, 4 = Custom procedure
*!* * UOL
*!* .cSMTPServer = "smtps.uol.com.br" && "smtp.live.com"
*!* .cEmailFrom = "cch...@uol.com.br"
*!* .cEmailSubject = "Subject test"
*!* .nSMTPPort = 587 && 25
*!* .lSMTPUseSSL = .F. && .T.
*!* * .cSMTPUserName = "FoxyPreviewer testing emails<cch...@uol.com.br>"
*!* .cSMTPUserName = "cch...@uol.com.br"
*!* .cSMTPPassword = "**********"
*!* * HOTMAIL
*!* .cSMTPServer = "smtp.live.com"
*!* .cEmailFrom = "za...@hotmail.com"
*!* .cEmailSubject = "Subject test"
*!* .nSMTPPort = 25 && 587
*!* .lSMTPUseSSL = .T. && .F.
*!* .cSMTPUserName = "za...@hotmail.com"
*!* .cSMTPPassword = "*******"
*!* * GMAIL
*!* .cSMTPServer = "smtp.prodigy.net.mx"
*!* .cEmailFrom = "not...@prodigy.net.mx"
*!* .cEmailSubject = "Subject test"
*!* .nSMTPPort = 465
*!* .lSMTPUseSSL = .T.
*!* .cSMTPUserName = "not...@prodigy.net.mx"
*!* * .cSMTPUserName = "FoxyPreviewer support<foxypr...@gmail.com>" && DOes not work with GMAIL server
*!* .cSMTPPassword = "********"
* personalizado
.cSMTPServer = "mail.notaria17qroo.com.mx"
.cEmailFrom = "juri...@notaria17qroo.com.mx"
.cEmailSubject = "Subject test"
.nSMTPPort = 465
.lSMTPUseSSL = .T.
.cSMTPUserName = "juri...@notaria17qroo.com.mx"
* .cSMTPUserName = "FoxyPreviewer support<foxypr...@gmail.com>" && DOes not work with GMAIL server
.cSMTPPassword = "*******"
.lReadReceipt = .t.
.lPriority = .T.
*.cAttachments = GETFILE() && Comma delimited
* Other possible properties
*!* .cEmailCC
*!* .cEmailBCC
*!* .cEmailReplyTo
*!* * Uncomment next lines to send HTML body
*!* *.cHtmlBody = "<html><body><b>This is an HTML body<br>" + ;
*!* * "It'll be displayed by most email clients</b></body></html>"
*!*
*!* .cTextBody = loFP.cEmailBody
*!* && "This is a text body." + CHR(13) + CHR(10) + ;
*!* && "It'll be displayed if HTML body is not present or by text only email clients"
.cEmailBody = "<HTML><BR>Email Test with <b>FoxyPreviewer</b></HTML>"
*REPORT FORM (_Samples + "\Solution\Reports\percent.frx") OBJECT TYPE 10 TO FILE "c:\Temp\Email1.pdf"
* Now we can send the file we created by email !
.SendEmailUsingCDO()
ENDWITH
RETURNzarlu
Chetumal, Quintana Roo, México