FiveTech Software tech support forums

... ALSO PEC) GRAZIE !!!! ************************** SHORT EXAMPLE ************ function mail_dct(_from,_to,_password,_subject,_textbody,_arrattach,_smtpserver) LOCAL oEmailMsg LOCAL cSchema := "http://schemas.microsoft.com/cdo/configuration/" LOCAL _lok:=.t.,_j,_cfile b_oxon(10,"Inviando ...

... oEmailCfg:Fields:Item( "http:" + "/" + "/" + "schemas.microsoft.com/cdo/configuration/smtpserver" ):Value := cServer // "smtp.gmail.com" oEmailCfg:Fields:Item( "http:" + "/" + "/" + "schemas.microsoft.com/cdo/configuration/smtpserverport" ...

... .F. DEFAULT lSSL := .F. TRY oCfg = CREATEOBJECT( "CDO.Configuration" ) oCfg:Item( "http://schemas.microsoft.com/cdo/configuration/smtpserver" ):Value = cServer IF !EMPTY( cPort ) oCfg:Item( "http://schemas.microsoft.com/cdo/configuration/smtpserverport" ):Value := ...

...   if FILE ( cFicPDF )            :AddAttachment (cFicPDF)        endif        WITH OBJECT :configuration:Fields            :Item( cSchema + "smtpserver"          ):Value := "smtp.gmail.com"            :Item( cSchema + "smtpserverport"    ):Value := 465            ...

... :AddAttachment(hb_curdrive()+":\"+curdir()+"\test.txt" ) WITH OBJECT :configuration:Fields :Item( cSchema + "smtpserver" ):Value := "sendm.cert.legalmail.it" :Item( cSchema + "smtpserverport" ):Value := 465 :Item( cSchema + "sendusing" ...

... :AddAttachment(hb_curdrive()+":\"+curdir()+"\test.txt" ) WITH OBJECT :configuration:Fields :Item( cSchema + "smtpserver" ):Value := "sendm.cert.legalmail.it" :Item( cSchema + "smtpserverport" ):Value := 465 :Item( cSchema + "sendusing" ...

... :AddAttachment(hb_curdrive()+":\"+curdir()+"\test.txt" ) WITH OBJECT :configuration:Fields :Item( cSchema + "smtpserver" ):Value := "sendm.cert.legalmail.it" :Item( cSchema + "smtpserverport" ):Value := 465 :Item( cSchema + "sendusing" ...

... :AddAttachment(hb_curdrive()+":\"+curdir()+"\test.txt" ) WITH OBJECT :configuration:Fields :Item( cSchema + "smtpserver" ):Value := "sendm.cert.legalmail.it" :Item( cSchema + "smtpserverport" ):Value := 465 :Item( cSchema + "sendusing" ...

... :AddAttachment(hb_curdrive()+":\"+curdir()+"\test.txt" ) WITH OBJECT :configuration:Fields :Item( cSchema + "smtpserver" ):Value := "sendm.cert.legalmail.it" :Item( cSchema + "smtpserverport" ):Value := 465 :Item( cSchema + "sendusing" ...

... ? Grazie Romeo ***ESEMPIO FUNZIONANANTE FINO al 30/6/19 **** function mail_dct() parameter _from,_to,_password,_subject,_textbody,_arrattach,_smtpserver LOCAL oEmailMsg LOCAL cSchema := "http://schemas.microsoft.com/cdo/configuration/" LOCAL _j,_cfile oEmailMsg := CREATEOBJECT ( ...

Risolto !

Ho dovuto inserire
:Item( cSchema + "smtpserver" ):Value := "smtps.pec.aruba.it"


Sorry

... ) :TextBody := "CUERPITO" :AddAttachment( ALLTRIM( "c:\test.prg" ) ) WITH OBJECT :configuration:Fields :Item( cSchema + "smtpserver" ):Value := "smtp.gmail.com" :Item( cSchema + "smtpserverport" ):Value := 465 :Item( cSchema + "sendusing" ...

... error se da después de: TRY oCfg := CREATEOBJECT( "CDO.Configuration" ) oCfg:Item( "http://schemas.microsoft.com/cdo/configuration/smtpserver" ):Value := cServer ¿Qué me está ocurriendo? ¿Por que me da error al crear el objeto/usar el método? ¿Se necesita algo 'especial' para ...

... := CREATEOBJECT( "CDO.Configuration" ) WITH OBJECT oEmailCfg:Fields :Item( "http://schemas.microsoft.com/cdo/configuration/smtpserver" ):Value := alltrim(cServer) :Item( "http://schemas.microsoft.com/cdo/configuration/smtpserverport" ):Value := nPuerto // ...

Richard Are you trying SMTP in a clients environment ? .. Many larger corporations will not allow SMTP thru their routers and firewalls due to security concerns and only allow SMTP from certain machine names such as multi function printers. I became so frustrated with SMTP I changed over to CDO if I...