cdosys set mail priority/importance 1

[jemminger]

ok, i've googled for hours on this, and i now am setting the importance/priority of my email in SIX fields, and still nothing happens to the priority... it is always sent as "normal":

'---- CdoPriorityValues ---
Const cdoPriorityNonUrgent = -1
Const cdoPriorityNormal = 0
Const cdoPriorityUrgent = 1

'---- CdoImportanceValues  ----
Const cdoImportanceLow = 0
Const cdoImportanceNormal = 1
Const cdoImportanceHigh = 2

'---- MSMailPriority ----
Const MSMailPriorityHigh = 0
Const MSMailPriorityNormal = 3
Const MSMailPriorityLow = 5

	Dim iMsg, iConf, Flds
	
	Set iMsg = CreateObject("CDO.Message")
	Set iConf = CreateObject("CDO.Configuration")

	Set Flds = iConf.Fields
	Flds("[URL unfurl="true"]http://schemas.microsoft.com/cdo/configuration/sendusing")[/URL] = 1
	Flds("[URL unfurl="true"]http://schemas.microsoft.com/cdo/configuration/smtpserverpickupdirectory")[/URL] = "\inetpub\mailroot\pickup"
	
	Flds("urn:schemas:httpmail:importance") = cdoImportanceHigh
	Flds("urn:schemas:httpmail:priority") = cdoPriorityUrgent
	Flds("urn:schemas:mailheader:importance") = cdoImportanceHigh
	Flds("urn:schemas:mailheader:priority") = cdoPriorityUrgent
	Flds("urn:schemas:mailheader:X-MSMail-Priority") = MSMailPriorityHigh
	Flds("urn:schemas:mailheader:X-Priority") = cdoPriorityUrgent
	Flds.Update

	Set iMsg.Configuration = iConf
	iMsg.From = sFrom
	iMsg.To = sTo

	iMsg.Subject = sSubject
	iMsg.TextBody = sBody

	iMsg.Send

does anyone know why this isn't working? this is running on a server2003 box.

thanks



-jeff

http://www.jeffemminger.com

lost: one sig, last seen here.

 

[DotNetGnat]

check this:

http://classicasp.aspfaq.com/email/how-do-i-alter-the-priority/importance-of-an-e-mail-message.html

-DNG

 

[jemminger]

thanks - the problem ended up being that i was setting these properties against the CDO.Configuration.Fields instead of CDO.Message.Fields



-jeff

http://www.jeffemminger.com

lost: one sig, last seen here.