VBScript Отправка электронной почты с высокой важностью - PullRequest
Новая
       37

VBScript Отправка электронной почты с высокой важностью

0 голосов
/ 23 сентября 2011

Я использовал 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, это не сработало.

1 Ответ

1 голос
/ 23 сентября 2011

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

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