VBScript Sending Email with High Importance

I used VBScript to write a function to send email automatically.

With .Configuration.Fields
            .Item(cdoSendUsingMethod)                   = cdoSendUsingPort
            .Item(cdoSMTPServer)                        = "SMTPHOST.redmond.corp.microsoft.com"
            .Item(cdoSMTPServerPort)                    = 25
            .Item(cdoSMTPAuthenticate)                  = cdoNTLM
            .Item("urn:schemas:httpmail:importance")    = sMailPriority
            .Update

When I want to send email with high important, I set the sMailPriority to 2. When I test with the Gmail, it worked. But when I using outl开发者_如何学Pythonook2010, it didn't work.

Some e-mail clients requires different headers to set e-mail priority.
Try to add all of these fields.

.Item("urn:schemas:httpmail:importance") = sMailPriority
.Item("urn:schemas:httpmail:priority") = 1 'sMailPriority
.Item("urn:schemas:mailheader:X-Priority") = 1 'sMailPriority