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

codice:
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:
codice:
.Fields("urn:schemas:mailheader:X-Priority").Value = 1

1 = alta 
3 = media 
5 = bassa