(CDO) Errore nella connessione smtp

[fruttosio79]

Se uso questo codice:

Dim objMail, objConfig 
	
	Set objMail = Server.createObject("CDO.Message") 
	Set objConfig = Server.createObject("CDO.Configuration") 
	
	' Imposta le configurazioni 
	With objConfig 
	
	' Server SMTP di uscita 
	.Fields("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "localhost"
	
	' Porta SMTP 
	.Fields("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 25 
	
	' Porta CDO 
	.Fields("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2 
	
	' Timeout 
	.Fields("http://schemas.microsoft.com/cdo/configuration/smtpconnectiontimeout") = 60 
	
	.Fields.update 
	End With 
	
	' Assegna le configurazioni 
	Set objMail.Configuration = objConfig 
	
	objMail.From = "prova@prova.com" 
	objMail.To = sUserMail
	objMail.Subject = "Conferma registrazione" 
	
	' Valore di priorità 
	objMail.Fields("urn:schemas:httpmail:importance").Value = 2 
	objMail.Fields.update() 
	
	' Corpo del messaggio 
	'objMail.TextBody = "Testo della mail" 
	objMail.HTMLBody = "Testo della mail" 
	
	objMail.Send() 
	Set objMail = Nothing

Mi esce scritto che è impossibile connettersi al server smtp, come posso risolvere visto che io lavoro in locale?

CIAO

[fruttosio79]

help

[fruttosio79]

Secondo me la stringa:

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

è giusta, visto che lavoro in locale.

Dove stà il problema?

[santino83]

nel mio script non ho tutte quelle stringhe per l'smtp, eppur funge

[fruttosio79]

che stringhe hai?

[santino83]

solo questa

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

With iMsg
Set .Configuration = iConf
....
....
....

[fruttosio79]

Ora ho variato così:

Dim objMail
	Dim objConfig
	Dim Fdls  
	Set objMail = Server.createObject("CDO.Message") 
	Set objConfig = Server.createObject("CDO.Configuration") 
	
	Set Flds = iConf.Fields
	Flds ("http://schemas.microsoft.com/cdo/configuration/urlgetlatestversion") = True
	
	' Assegna le configurazioni 
	Set objMail.Configuration = objConfig 
	
	objMail.From = "clienti@gustopiemonte.com" 
	objMail.To = sUserMail
	objMail.Subject = "Conferma registrazione" 
	
	' Valore di priorità 
	objMail.Fields("urn:schemas:httpmail:importance").Value = 2 
	objMail.Fields.update() 
	
	' Corpo del messaggio 
	'objMail.TextBody = "Testo della mail" 
	objMail.HTMLBody = "Testo della mail" 
	
	objMail.Send() 
	Set objMail = Nothing

Mi esce errore:
Necessario oggetto: 'iConf'

[santino83]

Dim objMail
	Dim objConfig
	Dim Fdls  
	Set objMail = Server.createObject("CDO.Message") 
	Set iConf= Server.createObject("CDO.Configuration") 
	
	Set Flds = iConf.Fields
	Flds ("http://schemas.microsoft.com/cdo/configuration/urlgetlatestversion") = True
	
	' Assegna le configurazioni 
	Set objMail.Configuration = iConf
	
	objMail.From = "clienti@gustopiemonte.com" 
	objMail.To = sUserMail
	objMail.Subject = "Conferma registrazione" 
	
	' Valore di priorità 
	objMail.Fields("urn:schemas:httpmail:importance").Value = 2 
	objMail.Fields.update() 
	
	' Corpo del messaggio 
	'objMail.TextBody = "Testo della mail" 
	objMail.HTMLBody = "Testo della mail" 
	
	objMail.Send() 
	Set objMail = Nothing

[fruttosio79]

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

[fruttosio79]

Io uso win 2000 pro