FiveTech Support Forums

FiveWin / Harbour / xBase community
Board index All products support Invio Posta PEC
Posts: 340
Joined: Thu Jan 25, 2007 03:53 PM
Invio Posta PEC
Posted: Fri Sep 21, 2018 03:29 PM

Ciao,

Come si fa ad inviare un messaggio di posta PEC ?

SI può usare il comado:

DEFINE MAIL oMail
SUBJECT .....
TO ......
TEXT .....
ACTIVATE MAIL oMail

Grazie
Romeo

Posts: 340
Joined: Thu Jan 25, 2007 03:53 PM
Re: Invio Posta PEC
Posted: Fri Sep 21, 2018 03:54 PM

Ho provato ad usare questo tuo (forse) esempio del forum con un indirizzo pec e non va, mi da errore come indicato, mentre se uso una posta mail normale di gmail funziona.
Mi sa che ci vuole qualche correzione , magari sul server pec di gmail o altro:


include "fivewin.ch"

function main()
LOCAL oEmailMsg
LOCAL cSchema := "http://schemas.microsoft.com/cdo/configuration/"

  oEmailMsg  := CREATEOBJECT ( "CDO.Message" )

  WITH OBJECT oEmailMsg

     :From     := "pincopalla@pec.it" 
     :To        := "pincopalla@pec.it"
     :CC       := ""
     :BCC      := ""
     :Subject  := ALLTRIM( "ALGO" )
     :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" ):Value        := 2
        :Item( cSchema + "smtpauthenticate" ):Value := .T.
        :Item( cSchema + "smtpusessl" ):Value       := .T.
        :Item( cSchema + "sendusername" ):Value     := "pincopallal@pec.it"
        :Item( cSchema + "sendpassword" ):Value     := "miapasswordpec"
        :Item( cSchema + "smtpconnectiontimeout"):Value := 30

        :Update()

     END WITH

     :Send()       *<--- qui mi da l'errore

  END WITH

RETURN NIL


Posts: 340
Joined: Thu Jan 25, 2007 03:53 PM
Re: Invio Posta PEC
Posted: Fri Sep 21, 2018 04:08 PM

Risolto !

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

Sorry

Posts: 340
Joined: Thu Jan 25, 2007 03:53 PM
Re: Invio Posta PEC
Posted: Sun Sep 23, 2018 05:53 PM

Mai possibile che non riesco a trovare una lista degli indirizzi dei server PEC smtp ?

Esempio per aruba ho trovato: smtps.pec.aruba.it

Ma per gli altri ? (gmail, fastweb,..)

Tks

Posts: 7318
Joined: Thu Oct 18, 2012 07:17 PM
Re: Invio Posta PEC
Posted: Tue Dec 11, 2018 02:09 PM
register.it
server.pec-­email.com

https://www.register.it/wp-content/uploads/2016/12/RegisterPEC-ConfigurazioneClient.pdf

legalmail
Server di Posta in Entrata : mbox.cert.legalmail.it
Server di Posta in Uscita: sendm.cert.legalmail.it
Porta in entrata: 995
Porta in uscita: 25 o 465
Utilizzare la connessione sicura SSL/TSL

Pec.net
server.pec-email.com Porta 465

Posta ITaliane
mail.postecert.it
porta 465

Cmq smtps.pec.aruba.it è la maggiore che usano

cmq trova una lista qui
SMTP/POP https://httplab.it/popandsmtp.php
pubbliche amministrazioni, consultabili su IndicePA https://www.indicepa.gov.it/documentale/index.php?
professionisti iscritti ad albi ed elenchi professionali, raccolti in INI-PEC; http://www.inipec.gov.it/cerca-pec
soggetti iscritti al registro delle imprese, inclusi in INI-PEC http://www.inipec.gov.it/cerca-pec
Since from 1991/1992 ( fw for clipper Rel. 14.4 - Momos)

I use : FiveWin for Harbour March-April 2024 - Harbour 3.2.0dev (harbour_bcc770_32_20240309) - Bcc7.70 - xMate ver. 1.15.3 - PellesC - mail: silvio[dot]falconi[at]gmail[dot]com

Continue the discussion