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

Question

我使用 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时，它不起作用。

Answer 1

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

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