invio email da maschera

[Remigio]

Buongiorno,
tempo fa, con il vostro prezioso aiuto, sono riuscito a realizzare una maschera di A07 su cui c'è un pulsante che consente di inviare email tramite CDO.
Il provider è Aruba e di seguito un estratto del codice Vba:

Set objMsg = CreateObject("CDO.Message")
Set objConf = CreateObject("CDO.Configuration")
Set objFlds = objConf.Fields
With objFlds
.Item("http://schemas.microsoft.com/cdo/configuration/sendusing") = cdoSendUsingPort
.Item("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "smtp.pelconsip.aruba.it"
.Item("http://schemas.microsoft.com/cdo/configuration/smtpauthenticate") = cdoBasic
.Item("http://schemas.microsoft.com/cdo/configuration/sendusername") = Me!id_mittente_cd11.Column(5)
.Item("http://schemas.microsoft.com/cdo/configuration/sendpassword") = Me!id_mittente_cd11.Column(6)
.Item("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 465
.Item("http://schemas.microsoft.com/cdo/configuration/smtpusessl") = True
.Item("http://schemas.microsoft.com/cdo/configuration/smtpconnectiontimeout") = 30
.Update
End With

Ha sempre funzionato tutto, su tutte le versioni di Windows.
Recentemente la nostra azienda ha cambiato contratto con Aruba e siamo passati alla versione Consip, Ho reimpostato il server in Vba e reinserito le nuove credenziali nelle tabelle, ma questa volta l'invio funziona solo su Windows 10, nelle altre versioni viene fuori un errore:
"Si è verificato un errore durante la valutazione di una funzione, di un evento o di una macro"...
Quale potrebbe essere il problema? Una libreria? Un componente di windows?
Vi ringrazio per l'aiuto, un saluto cordiale

[BFS]

cosa valgono
cdoSendUsingPort e cdoBasic ?


prova così, a me non da nessun problema con i domini aruba/aruba pec:

Set cdomsg = CreateObject("CDO.message")
With cdomsg.Configuration.Fields
.Item("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2

.Item("http://schemas.microsoft.com/cdo/configuration/smtpserver") =

"smtp.xxxxx.com"
.Item("http://schemas.microsoft.com/cdo/configuration/smptserverport") = 465
.Item("http://schemas.microsoft.com/cdo/configuration/smtpauthenticate") = 1
'.Item("http://schemas.microsoft.com/cdo/configuration/smtpusessl") = true
.Item("http://schemas.microsoft.com/cdo/configuration/smtpconnectiontimeout")
= 60

.Item("http://schemas.microsoft.com/cdo/configuration/sendusername") =

"tua mail"

.Item("http://schemas.microsoft.com/cdo/configuration/sendpassword") =

"tua psw"

.Update
End With

With cdomsg
.To = "xxxxx@xxxx"
.From = "xxx@bxxx"
.Subject = "test"
.TextBody = "test"

.Send



BFS

[Remigio]

...

Ciao BFS,
ho provato ma non funziona.
Ripeto, su windows 10 funziona e sulle versioni precedenti no, quale può essere la differenza? Il Framework? Componenti di windows?
Grazie per l'aiuto, un saluto

[BFS]

il codice che ho postato lo uso per farmi inviare una notifica dai
gestionali che ho sparsi in giro quando installano l'aggiornamento
e ho installazioni da windows 7->11 e tutti i tipi di server
e non ci sono anomalie

mi sa che il problema è altro

BFS