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, это не сработало.


vbscript cdo.message
person QianLi    schedule 23.09.2011    source источник
comment
Пробовали ли вы другие значения приоритета?   -  person Dave    schedule 23.09.2011

Ответы (1)


arrow_upward
1
arrow_downward

Некоторым почтовым клиентам требуются разные заголовки для установки приоритета электронной почты.
Попробуйте добавить все эти поля.

.Item("urn:schemas:httpmail:importance") = sMailPriority
.Item("urn:schemas:httpmail:priority") = 1 'sMailPriority
.Item("urn:schemas:mailheader:X-Priority") = 1 'sMailPriority
person Kul-Tigin    schedule 23.09.2011