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

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

1 个答案: