(IIS) Settare server smtp per codice posta CDO

**fruttosio79** · 12-07-2005, 15:50

Chiedo aiuto su come settare il server smtp in win 2000 pro, visto che ho sviluppato del codice con il comando CDO in ASP.

Ora è così:
- Nome: server virtuale SMTP predefinito
- Indirizzo IP: tutti non assegnati

Inoltre io devo fare girare il sito in locale per cui ho impostato il codice così:

codice:

' Server SMTP di uscita 
	.Fields("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "localhost"

Mi aiutate?
Ciao

**fruttosio79** · 12-07-2005, 16:36

**Roby_72** · 12-07-2005, 17:01

In locale è uguale:

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

Non lo devi cambiare.
Se non ti da errore ma non ricevi email, vai su c:/inetpub/mailroot ed in una delle sottocartelle potresti trivare la tua email in attesa di essere spedita.

Roby

**fruttosio79** · 12-07-2005, 17:09

Utilizzando questo codice:

codice:

	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 = "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:
CDO.Message.1 (0x80040220)
Il valore di configurazione "SendUsing" non è valido.

E mi segnala errore su:
objMail.Send()

**Roby_72** · 12-07-2005, 17:14

Non so che altro dirti.
Il componente sembra accessibile ma non funziona.

Roby

**fruttosio79** · 12-07-2005, 17:25

Ciao Roby,
partendo da zero, dimmi se questo codice è quello giusto per inviare le mail con CDO?

codice:

SUB sendNewUserMail(sUserName, sUserPassword, sUserMail)
	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 
END SUB

Mi sermbra di si. Giusto?

**Roby_72** · 12-07-2005, 17:29

Io non uso quello.

Roby

**fruttosio79** · 12-07-2005, 17:30

Io ho trovato questo nel forum ....
e quale usi?

Ciao

**Roby_72** · 12-07-2005, 17:41

codice:

	'Preparazione per invio email all'utente
	Set iMsg = Server.CreateObject("CDO.Message")
	Set iConf = Server.CreateObject("CDO.Configuration")
	Set Flds = iConf.Fields
	Flds("http://schemas.microsoft.com/cdo/configuration/urlgetlatestversion") = True

	Oggetto = "Notifica ricezione messaggio"

	HTML = "<!DOCTYPE HTML PUBLIC ""-//IETF//DTD HTML//IT"">"
	HTML = HTML & "<html>" 
	HTML = HTML & "<head>" 
	HTML = HTML & "<meta http-equiv=Content-Type" 
	HTML = HTML & "content=""text/html; charset=iso-8859-1"">" 
	HTML = HTML & "<title>Spedizione HTML</title>" 
	HTML = HTML & "</head>" 
	HTML = HTML & "<body style=""color:#000;font-family:verdana;font:12px;"">"
	HTML = HTML & "

Notifica ricezione e-mail</p>"
	HTML = HTML & "

Creamweb.it ringrazia del messaggio e assicura una risposta al pi&ugrave; presto.
Grazie</p>"
	HTML = HTML & "<p style=""text-align:center;color:#000;font-family:verdana;font:11px;"">&copy 2000-2005 Creamweb<span style:""color:red;"">.</span><span style:""color:gray;"">it</span> - Tutti i diritti riservati</p>"
	HTML = HTML & "</body>" 
	HTML = HTML & "</html>" 

	With iMsg
		Set .Configuration = iConf
		.From = "Creamweb.it - Contatto <"& myMail &">"
		.To = email
		.Subject = oggetto
		.HTMLBody = HTML
		.Send
	end with
	set Flds = Nothing
	set iConf = Nothing
	set iMsg = Nothing

Roby

**fruttosio79** · 12-07-2005, 17:52

Penso di aver fatto giusto:ù

codice:

SUB sendNewUserMail(sUserName, sUserPassword, sUserMail)
	Set iMsg = Server.CreateObject("CDO.Message")
	Set iConf = Server.CreateObject("CDO.Configuration")
	Set Flds = iConf.Fields
	Flds("http://schemas.microsoft.com/cdo/configuration/urlgetlatestversion") = True

	Oggetto = "Notifica ricezione messaggio"

	HTML = HTML & "<html>" 
	HTML = HTML & "<body>"
	HTML = HTML & "prova"
	HTML = HTML & "</body>"
	HTML = HTML & "</html>" 

	With iMsg
		Set .Configuration = iConf
		.From = "prova@prova.com"
		.To = sUserMail
		.Subject = oggetto
		.HTMLBody = HTML
		.Send
	end with
	set Flds = Nothing
	set iConf = Nothing
	set iMsg = Nothing
END SUB

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

segnalato su .Send

Eppure il codice mi sembra giusto.

Discussione: (IIS) Settare server smtp per codice posta CDO

Strumenti discussione

Ricerca discussione

Visualizza

(IIS) Settare server smtp per codice posta CDO

Permessi di invio