problema con l'ivio delle email

[techno]

Ciao a tutti.

Sto cercando di inviare una email in locale in questo modo:

Dim eml, config
Set eml= Server.CreateObject("CDO.Message")
Set config= Server.CreateObject("CDO.Configuration")

With config
.Fields("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "smtp.xxxxxxxxxxx.com"
.Fields("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 25
.Fields("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2
.Fields("http://schemas.microsoft.com/cdo/configuration/smtpconnectiontimeout") = 60
.Fields.Update
End With

Set eml.Configuration = config
eml.From= email
eml.to ="xxx@xxxxxxx.com"
eml.Subject= "NUOVO CONTATTO"
eml.HTMLBody= testo
eml.Send
Set eml= nothing

Ma quando lo provo mi dà questo errore:

CDO.Message.1 (0x80040213)
Il trasporto non è riuscito a connettersi al server.

[tse]

devi configurare la tua macchina per sputare fuori mail...altrimenti....

[Roby_72]

Dim eml, config
Set eml= Server.CreateObject("CDO.Message")
Set config= Server.CreateObject("CDO.Configuration")
Set Flds = iConf.Fields
Flds("http://schemas.microsoft.com/cdo/configuration/urlgetlatestversion") = True

With eml
Set .Configuration = config 
.From= email
.to ="xxx@xxxxxxx.com"
.Subject= "NUOVO CONTATTO"
.HTMLBody= testo
.Send
end with
Set Flds= nothing
Set config= nothing
Set eml= nothing

Roby

[techno]

scusa roby devo solo inserire questa linea al posto dei fields?

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

[techno]

Ho probvato come dice Roby ma mi dà questo errore alla riga 170
Errore di run-time di Microsoft VBScript (0x800A01A8)
Necessario oggetto: ''

Dove c'è Set Flsd= iConf.Fields

[Roby_72]

Scusa:

Set Flds = Config.Fields

Roby

[techno]

Ora mi dà questo errore:

CDO.Message.1 (0x80040220)
Il valore di configurazione "SendUsing" non è valido.

CODE:
Dim eml, config
Set eml= Server.CreateObject("CDO.Message")
Set config= Server.CreateObject("CDO.Configuration")

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

Set eml.Configuration = config
eml.From= email
eml.to ="contatti@digitalworld1.com"
eml.Subject= "NUOVO CONTATTO DIGITAL WORLD"
eml.HTMLBody= txt
eml.Send
Set eml= nothing
Set flds= nothing
set config= nothing

[techno]

allora non c'è nessuno che mi può aiutare?

[techno]

Roby_72 non sai dirmi il xchè mi dà questo errore?

[Roby_72]

CDOSYS è installato sul server vero??

Roby