[Invio mail] CDO.Message.1 error '80040220'

[mosquito70]

Ciao a tutti,
ho un problema abbastanza urgente, che si presenta solo sull'ambiente di esercizio (Win2003), visto che sulla macchina su cui lavoro (WinXp) non mi da alcun problema.

L'errore è quello indicato nell'oggetto e il codice che utilizzo è questo (prelevato da un thread di questo forum)

Avete qualche suggerimento da darmi?
Ciao e grazie in anticipo

Dim iMsg
Dim iConf
Dim Flds
set iMsg = CreateObject("CDO.Message")
set iConf = CreateObject("CDO.Configuration")
Set Flds = iConf.Fields

Flds("http://schemas.microsoft.com/cdo/configuration/urlgetlatestversion") = True
Flds.Update

With iMsg
Set .Configuration = iConf
.To = vc_descindiemaimitt
.From = vc_descindiemaimitt
.Bcc = ""
.Subject = "Avvisi del "&vc_dataavvising
.CreateMHTMLBody vc_pathcomplinvihtml
.Send
End With

[mosquito70]

Niente...

Ho provato anche aggiungendo il server smtp, ma sempre lo stesso errore.

                Dim iMsg
                Dim iConf
                Dim Flds
                set iMsg = CreateObject("CDO.Message")
                set iConf = CreateObject("CDO.Configuration")
                Set Flds = iConf.Fields
                    Flds("http://schemas.microsoft.com/cdo/configuration/smtp server") ="SMTP.INET.IT"
                    Flds("http://schemas.microsoft.com/cdo/configuration/smtp serverport") = 25
                    Flds("http://schemas.microsoft.com/cdo/configuration/urlgetlatestversion") = True
                Flds.Update

                With iMsg
                Set .Configuration = iConf
                    .To = "xxxx@yyyy.it"
                    .From = vc_descindiemaimitt
                    .Bcc = ""
                    .Subject = "Avvisi del "&vc_dataavvising
                    .CreateMHTMLBody vc_pathcomplinvihtml
                .Send
                End With 

Qualche idea?
Grazie

Ciao

[22kakà]

Originariamente inviato da mosquito70
Niente...

Ho provato anche aggiungendo il server smtp, ma sempre lo stesso errore.

                Dim iMsg
                Dim iConf
                Dim Flds
                set iMsg = CreateObject("CDO.Message")
                set iConf = CreateObject("CDO.Configuration")
                Set Flds = iConf.Fields
                    Flds("http://schemas.microsoft.com/cdo/configuration/smtp server") ="SMTP.INET.IT"
                    Flds("http://schemas.microsoft.com/cdo/configuration/smtp serverport") = 25
                    Flds("http://schemas.microsoft.com/cdo/configuration/urlgetlatestversion") = True
                Flds.Update

                With iMsg
                Set .Configuration = iConf
                    .To = "xxxx@yyyy.it"
                    .From = vc_descindiemaimitt
                    .Bcc = ""
                    .Subject = "Avvisi del "&vc_dataavvising
                    .CreateMHTMLBody vc_pathcomplinvihtml
                .Send
                End With 

Qualche idea?
Grazie

Ciao

Prova così:

Set Config = Server.CreateObject("CDO.Configuration")
Set Fields = Config.Fields
Fields.Item("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2
Fields.Item("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "serverSMTP"
Fields.Update

Naturalmente mettendo il tuo server SMTP.

[mosquito70]

Cercando un pò su internet, ho risolto.

Invio la parte di codice, se dovesse servire a qualcuno.
Ricordo Win2003 server, su Inet

                Dim iMsg
                Dim iConf
                Dim Flds
                set iMsg = CreateObject("CDO.Message")
                set iConf = CreateObject("CDO.Configuration")
                Set Flds = iConf.Fields

                    Flds("http://schemas.microsoft.com/cdo/configuration/smtpauthenticate") = 1
                    Flds("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2
                    ' username e password
                    Flds("http://schemas.microsoft.com/cdo/configuration/sendusername") = "xxxx@yyyyy.it"
                    Flds("http://schemas.microsoft.com/cdo/configuration/sendpassword") = "password"
                    Flds("http://schemas.microsoft.com/cdo/configuration/smtpserver") ="SMTP.INET.IT"
                    Flds("http://schemas.microsoft.com/cdo/configuration/smtpserverport") =25
                    Flds("http://schemas.microsoft.com/cdo/configuration/connectiontimeout") =10
                    Flds("http://schemas.microsoft.com/cdo/configuration/urlgetlatestversion") = True
                Flds.Update

                With iMsg
                Set .Configuration = iConf
                    .To = vc_descindiemaimitt
                    .From = vc_descindiemaimitt
                    .Bcc = ""
                    .Subject = "Avvisi del "&vc_dataavvising
                    .CreateMHTMLBody vc_pathcomplinvihtml
                .Send
                End With 

La password è quella dell'indirizzo email, ovvero l'autenticazione.
Spero possa essere utile a qualcuno.

Ciao a tutti

[mosquito70]

Originariamente inviato da 22kakà
Prova così:

Set Config = Server.CreateObject("CDO.Configuration")
Set Fields = Config.Fields
Fields.Item("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2
Fields.Item("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "serverSMTP"
Fields.Update

Naturalmente mettendo il tuo server SMTP.

Ho letto il tuo messaggio ora, mentre scrivevo il mio, dicendo che avevo risolto

Grazie lo stesso.