EMail High Priority Flag - ASP?

[Chamark]

:eek: Is there a way to set the MS-OutLook "High Priority Flag" in ASP Mail? Your help is greatly appreciated.

Sub SendMail()
Dim objNewMail
Set objNewMail = CreateObject("CDO.Message")

With ObjNewMail
'This section provides the configuration information for the remote SMTP server.
.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2 'Send the message using the network (SMTP over the network).
.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/smtpserver") ="11.11.38.20"
.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 25
.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/smtpusessl") = False 'Use SSL for the connection (True or False)
.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/smtpconnectiontimeout") = 60
.Configuration.Fields.Update
'End remote SMTP server configuration section==
.From = "Audit-Review"
.To = Trim(Request.Form("ManagerID"))
.cc = Trim(Request.Form("DirectorID"))

.Subject = "Whatever"
.HTMLBody = "This is an automated message. Please do not respond. ....."
.Send
End With

set objNewMail = Nothing
End Sub

[gil davis]

http://msdn2.microsoft.com/en-us/library/ms526720.aspx

[Chamark]

Thanks fro the resource. Unfortunately the .importance is not supported in the following at least that is the error I get. Any clues on this? I am using straight ASP....Thanks

Sub SendMail()
Dim objNewMail
Set objNewMail = CreateObject("CDO.Message")

With ObjNewMail

[gil davis]

It really has nothing to do with ASP. It is dependant on the version of CDOSYS and the operating system on the server. You'll have to find out what version, and what that version supports.

[gil davis]

http://classicasp.aspfaq.com/email/how-do-i-alter-the-priority/importance-of-an-e-mail-message.html
http://www.lewisroberts.com/?p=64