Newsgroup: it.comp.appl.access
Titolo: invio email da maschera

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


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

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


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