VBA kullanılarak gönderilen e-postada "Yüksek Önemlilik" ayarını nasıl yapabilirim?

Question

Bu nesnede çok önemli özelliklere sahip bir e-posta göndermek için birkaç özellik belirlemeyi denedim, ancak hiçbir şey işe yaramadı. İşte ne denedim: Ben Outlook ve VBA ile çalışmış ama hala çeşitli hile yaprak ve bağlantıları olduğu için

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 

Answer 1

Bir süre oldu. Bunu kazdım. Umarım yardımcı olur!

yorumlardaki Remou's link itibaren posta nesnesi

with myEmail 
    'can be olImportanceNormal, olImportanceHigh or olImportanceLow 
    .Importance = olImportanceNormal 
    .Subject = "Subject line" 
    .Body = "Body Content" 
end with 

Answer 2

yılında .Importance özelliğini ayarlamayı deneyin, bu VBA yoluyla Outlook 2010 için çalışır:

cdoMessage.Fields.Item(cdoImportance) = cdoHigh 

Answer 3

.Importance = 2 (herkes seyir için 2015 yılında).