Comment puis-je définir "Importance élevée" sur les e-mails envoyés via VBA?

Question

J'ai essayé de définir quelques propriétés sur cet objet pour envoyer un email avec une grande importance, mais rien ne semblait fonctionner. Voici ce que j'ai essayé:

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

Il a été un moment que je travaille avec Outlook et VBA mais j'ai encore différentes feuilles et des liens triche. J'ai creusé ça; J'espère que cela aide!

Définissez la propriété .Importance dans votre objet mail

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

Answer 2

De Remou's link dans les commentaires, cela fonctionne pour Outlook 2010 via VBA:

cdoMessage.Fields.Item(cdoImportance) = cdoHigh 

Answer 3

.Importance = 2 (pour ceux qui cherchent en 2015).