8

重要度の高いメールを送信するために、このオブジェクトにいくつかのプロパティを設定しようとしましたが、何も機能していないようです。これが私が試したことです：

objEmail.Importance = 2

objEmail.Configuration.Fields.Item("urn:schemas:mailheader:X-MSMail-Priority") = "High"      ' For Outlook 2003

objEmail.Configuration.Fields.Item("urn:schemas:mailheader:X-Priority") = 2                  ' For Outlook 2003 also

objEmail.Configuration.Fields.Item("urn:schemas:httpmail:importance") = 2

Function Send(sTo As String, sFrom As String, sSubject As String)
    Set objEmail = CreateObject("CDO.Message")
        objEmail.From = sFrom
        objEmail.To = sTo
        objEmail.Subject = sSubject
        objEmail.Textbody = emailBody
        objEmail.Configuration.Fields("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "my.smtp.server"
        objEmail.Configuration.Fields("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2
        // is there a property for high importance, outlook 2007?
        objEmail.Configuration.Fields.Update        
    objEmail.Send
End Function
4

3 に答える 3

11

Outlook と VBA を使用してからしばらく経ちましたが、まださまざまなチート シートとリンクがあります。私はこれを掘り起こしました。それが役に立てば幸い！

メールオブジェクトで .Importance プロパティを設定してみてください

with myEmail
    'can be olImportanceNormal, olImportanceHigh or olImportanceLow
    .Importance = olImportanceNormal
    .Subject = "Subject line"
    .Body = "Body Content"
end with
于 2010-07-21T17:58:52.750 に答える
7

.Importance = 2 (2015 年に探している人向け)。

于 2015-08-21T17:10:15.367 に答える
0

コメント内のRemou のリンクから、これは VBA を介して Outlook 2010 で機能します。

cdoMessage.Fields.Item(cdoImportance) = cdoHigh
于 2013-10-16T12:23:00.357 に答える