Mail TLS 1.2 LegalMail Fatt Elettronica

[Romeo]

Ciao
dal 1/Luglio Legalmail usa il protocollo TLS 1.2 per la sua PEC.

Io prima del 1/Luglio, per inviare la Fatt.Elettronica, usavo l'esempio in calce e funzionava bene, ora non va con legalmail

C'e' qualche modifica che devo fare o altro esempio che posso usare ?

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 ( "CDO.Message" )
WITH OBJECT oEmailMsg
:From := alltrim(_from)
:To := alltrim(_to)

:CC := ""
:BCC := ""

:Subject := _subject
:TextBody := _textbody

for _j:=1 to len(_arrattach)
_cfile:=_arrattach[_j]
:AddAttachment(_cfile)
next _j

WITH OBJECT :configuration:Fields
:Item( cSchema + "smtpserver" ):Value := alltrim(_smtpserver)

:Item( cSchema + "smtpserverport" ):Value := 465

:Item( cSchema + "sendusing" ):Value := 2

:Item( cSchema + "smtpauthenticate" ):Value := .T.

:Item( cSchema + "smtpusessl" ):Value := .T.

:Item( cSchema + "sendusername" ):Value := alltrim(_from)

:Item( cSchema + "sendpassword" ):Value := alltrim(_password)

:Item( cSchema + "smtpconnectiontimeout"):Value := 30

:Update()

END WITH

END WITH
*****FINE

[Enrico Maria Giordano]

Prova con

"http://schemas.microsoft.com/cdo/configuration/sendtls"

EMG

[Romeo]

Ops !

Non ha funzionato !

La TLS 1.2 è disponibile dal 1 luglio e prima o poi anche gli altri gestori si adegueranno.

Bisogna che qualche "scienziato" ci dia qualche dritta !

Mannagggggia !

Grazie cmq
R

[Enrico Maria Giordano]

"Non ha funzionato" in che senso? Dovrebbe funzionare. Puoi mandarmi via email tutto il necessario per fare un test?

EMG

[Romeo]

Ciao Enrico

ti allego in calce un esempio minimale, senza però user e password di accesso a LegalMail, in quanto il cliente non le da neanche a me (almeno per il momento)

Magari puoi controllare se è tutto a posto a livello di parametri e/o sintassi.

Grazie 10000

** TEST **

*

#include "FiveWin.ch"
*
*
function main
LOCAL oEmailMsg

LOCAL cSchema := "http://schemas.microsoft.com/cdo/configuration/sendtls/"

Local err:=.f.

memowrit(hb_curdrive()+":\"+curdir()+"\test.txt","File test allegato")

oEmailMsg := CREATEOBJECT ( "CDO.Message" )

WITH OBJECT oEmailMsg

:From := "xxx1960@legagmail.it"
:To := "xxx1960@legagmail.it"

:CC :=""
:BCC :=""
:Subject := "Soggetto"
:TextBody := "Testo del messaggio"

: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" ):Value := 2
:Item( cSchema + "smtpauthenticate" ):Value := .T.
:Item( cSchema + "smtpusessl" ):Value := .T.

:Item( cSchema + "sendusername" ):Value := "xxx1960@legagmail.it"
:Item( cSchema + "sendpassword" ):Value := "Pippo"
:Item( cSchema + "smtpconnectiontimeout"):Value := 30

:Update()

END WITH
TRY
:Send()
CATCH
err:=.t.
END
END WITH

if err
msginfo("Errore di invio")
else
msginfo("Errore: ok !")
endif
return nil
*

[Enrico Maria Giordano]

Non ci hai aggiunto il parametro che ti avevo detto di provare. E comunque non posso fare nessun test senza i dati di accesso.

EMG

[Romeo]

Lo strano è che io ho una PEC su Aruba e funziona il mio vecchio programma.

Eppure parrebbe che anche Aruba (come LegalMail) abbia il TLS 1.2

Riesci a verificare se è vero che Aruba ha il TLS 1.2 ?

R

[Enrico Maria Giordano]

Sembra che sia normale SSL:

https://support.aruba.it/kb/a5679/param ... icata.aspx

EMG

[Romeo]

Ciao Enrico,

il parametro che mi avevi detto era questo:

LOCAL cSchema := "http://schemas.microsoft.com/cdo/configuration/sendtls/"

E io l'ho aggiunto nel mio esempio

Poi per Aruba ho trovato questo link dove dice che usano il TLS 1.2:

https://guide.aruba.it/it/news/pec-30-apr-2019-1.aspx

Allora il mio esempio, a parte la user/pass ti pare corretto ?

C'è qualcuno che ha LEGALMAIL e puo per favore provarlo ?

Grazie

[Enrico Maria Giordano]

Ciao Enrico,

il parametro che mi avevi detto era questo:

LOCAL cSchema := "http://schemas.microsoft.com/cdo/configuration/sendtls/"

E io l'ho aggiunto nel mio esempio

Mi fai vedere esattamente come l'hai aggiunto?

EMG

[Romeo]

Te l'ho inserito prima, ma te lo reiserisco:

** TEST **

*

#include "FiveWin.ch"
*
*
function main
LOCAL oEmailMsg

LOCAL cSchema := "http://schemas.microsoft.com/cdo/configuration/sendtls/"

Local err:=.f.

memowrit(hb_curdrive()+":\"+curdir()+"\test.txt","File test allegato")

oEmailMsg := CREATEOBJECT ( "CDO.Message" )

WITH OBJECT oEmailMsg

:From := "xxx1960@legagmail.it"
:To := "xxx1960@legagmail.it"

:CC :=""
:BCC :=""
:Subject := "Soggetto"
:TextBody := "Testo del messaggio"

: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" ):Value := 2
:Item( cSchema + "smtpauthenticate" ):Value := .T.
:Item( cSchema + "smtpusessl" ):Value := .T.

:Item( cSchema + "sendusername" ):Value := "xxx1960@legagmail.it"
:Item( cSchema + "sendpassword" ):Value := "Pippo"
:Item( cSchema + "smtpconnectiontimeout"):Value := 30

:Update()

END WITH
TRY
:Send()
CATCH
err:=.t.
END
END WITH

if err
msginfo("Errore di invio")
else
msginfo("Errore: ok !")
endif
return nil

[Enrico Maria Giordano]

L'avevo già visto ma lì quello che ti avevo detto di aggiungere non c'è.

EMG

[Romeo]

Eccolo !

Fatto le prove e con ARUBA che ha il TLS 1.2 funziona, magari è compatibile con le precedenti versioni

Con LEGALMAIL invece non va !

Quindi l'esempio in calce funziona con ARUBA PEC, mentre non va con LEGALMAIL PEC.


Suggerimenti ?

Grazie
Romeo
NB: userid e password sono fittizie, il cliente è restio a darmele !

** esempio**

#include "FiveWin.ch"
*
*
function main
LOCAL oEmailMsg

LOCAL cSchema := "http://schemas.microsoft.com/cdo/configuration/"

Local err:=.f.

memowrit(hb_curdrive()+":\"+curdir()+"\test.txt","File test attached")

oEmailMsg := CREATEOBJECT ( "CDO.Message" )

WITH OBJECT oEmailMsg

:From := "xxx1960@legagmail.it"
:To := "xxx1960@legagmail.it"

:CC :=""
:BCC :=""
:Subject := "Soggetto"
:TextBody := "Testo del messaggio"

: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" ):Value := 2
:Item( cSchema + "smtpauthenticate" ):Value := .T.
:Item( cSchema + "smtpusessl" ):Value := .T.

:Item( cSchema + "sendtls" ):Value := .T. && EMG AGGIUNTA


:Item( cSchema + "sendusername" ):Value := "xxx1960@legagmail.it"
:Item( cSchema + "sendpassword" ):Value := "Pippo"
:Item( cSchema + "smtpconnectiontimeout"):Value := 30

:Update()

END WITH
TRY
:Send()
CATCH
err:=.t.
END
END WITH

if err
msginfo("Error ")
else
msginfo("Not Errore !")
endif
return nil

[Enrico Maria Giordano]

Prova con la porta 25. Poi prova a rimuovere "smtpusessl" sia con la porta 465 che con la porta 25.

EMG

[Romeo]

Ciao Enrico,

fatto le prove.... ma non va !

Ti ho inviato in tua mail il programmino di test !

Grazie per il possibile aiuto

Romeo