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
*******************