CDO & priorità email

[cipcip]

e' possibile con cdo impostare la priorita?
ho provato questo script trovato su internet ma non funziona

<%
Set objMail = Server.CreateObject("CDO.Message")
objMail.To = "paolo@siolibros.net"

objMail.Fields("urn:schemas:mailheader:importance").Value = "High"
objMail.Fields("urn:schemas:mailheader:X-Priority").Value = 1
objMail.Fields("urn:schemas:mailheader:X-MSMail-Priority").Value= "High"
objMail.Fields("urn:schemas:httpmail:priority").Value = 1

objMail.Fields.Update
objMail.From = "paolo@siolibros.net"
objMail.Subject = "Prova messaggio"
objMail.TextBody = "Priorità alta"
objMail.Send()
set objMail = Nothing
%>

[Roby_72]

http://www.weppos.com/asp/script/scr....asp?script=15

roby

[cipcip]

mi da errore

<% 
dim obyMessage,objConfig

				Set objMessage = CreateObject("CDO.Message")
				Set objConfig = Server.createObject("CDO.Configuration")
                With objConfig
                     .Fields("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "smtp.PROVA.com"
                     .Fields("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 25
                     .Fields("http://schemas.microsoft.com/cdo/configuration/smtpconnectiontimeout") = 60
                     .Fields.update
                End With
                Set objMessage.Configuration = objConfig
                
				objMessage.From  = "robert@PROVA.com"
				objMessage.HTMLBody = "prova"
				objMessage.To = "roberto2@PROVA.it"
                obyMessage.Fields("urn:schemas:httpmail:importance").Value = 2
                obyMessage.Fields.update() 
				objMessage.Subject = "oggetto"
				objMessage.Send 
				set objMessage = Nothing
%>

Microsoft VBScript runtime error '800a01a8'

Object required: ''

[cipcip]

dove sbaglio?

[cipcip]

dov'e' l'errore, l'email viene mandata ma la priorita e bassa sia sul client sia su lweb come mai?
roby sai qualcosa?

[cipcip]

nessuno di voi si è ma itrovato a dover mandare una email via web ! non ci credo

[tatiana_s]

scusa,
stavo cercando + o -
la stessa cosa...

ma hai scritto:

obyMessage.Fields("urn:schemas:httpmail:importance ").Value = 2
obyMessage.Fields.update()

non dovresti scrivere:

obj Message.Fields("urn:schemas:httpmail:importance"). Value = 2
obj Message.Fields.update()

ho provato anche io ad inserire queste priorità o il formato testo o HTML,
ma mi dice che non è supportato!

[viki1967]

---------------------------------------
GESTIONE DELLA PRIORITA'
---------------------------------------

CONST cdoImpLow=0
CONST cdoImpNor=1
CONST cdoImpHig=2
'Creo l'oggetto Mail
dim oMessaggioTEXT 
set oMessaggioTEXT = server.CreateObject("CDO.Message")

'Mi costruisco il body della mail in formato TEXT
sBodyTEXT ="Visita  http://www.tuosito.com" 


With oMessaggioTEXT
	'Imposto destinatario
	.To = "more@more.com"
	'Imposto mittente(obbligatorio)
	.From = "more@more.com"
	'imposto oggetto della mail
	.Subject = "Questo e un esempio CDOSYS con priorità alta"
	'imposto il bodytext
	.TEXTBody = sBodyTEXT
	'aggiungo l'attributo per l'importanza
	.Fields("urn:schemas:httpmail:importance").Value = cdoImpHig
	'update dei campi
	.Fields.update()
	'spedisco
	.Send
End With

response.write "Mail TEXT Inviata con successo utilizzando CDOSYS"

'***********************************************************************************************

set oMessaggioTEXT=nothing

Effettivamente la priorità è alta, ma a volte outlook express non la rileva mettendo il solito punto esclamativo rosso.

In alternativa utilizzare:

.Fields("urn:schemas:mailheader:X-Priority").Value = 1

1 = alta 
3 = media 
5 = bassa