मैं वीबीए का उपयोग करके भेजे गए ईमेल पर "उच्च महत्व" कैसे सेट कर सकता हूं?

Question

मैं इस वस्तु पर कुछ गुण स्थापित उच्च महत्व के साथ एक ईमेल भेजने की कोशिश की, लेकिन कुछ भी काम करने के लिए लग रहा था। यहाँ मैं क्या करने की कोशिश की है:

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

इसके बाद से मैं आउटलुक और VBA के साथ काम किया है, लेकिन मैं अभी भी विभिन्न नकल पुस्तिकाएं और लिंक एक समय हो गया है। मैंने इसे खोला; आशा करता हूँ की ये काम करेगा!

टिप्पणी में आपके मेल वस्तु

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

Answer 2

में .Importance संपत्ति की स्थापना Remou's link से प्रयास करें, यह Outlook 2010 के लिए काम करता है VBA के माध्यम से:

cdoMessage.Fields.Item(cdoImportance) = cdoHigh 

Answer 3

.Importance = 2 (किसी की तलाश के लिए 2015 में)।