VBScript发送具有高度重要性的电子邮件

我用VBScript写了一个函数来自动发送电子邮件

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

---

当我想发送高度重要的电子邮件时，我将sMailPriority设置为2。当我用Gmail进行测试时，它成功了。但是当我使用outlook2010时，它不起作用。

一些电子邮件客户端需要不同的头来设置电子邮件优先级。
尝试添加所有这些字段

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

---

您是否尝试过其他优先级值？