¿Cómo puedo establecer "Importancia alta" en el correo electrónico enviado usando VBA?

Question

Intenté establecer algunas propiedades en este objeto para enviar un correo electrónico con gran importancia, pero nada parecía funcionar. Esto es lo que he intentado:

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

Ha sido un tiempo desde que trabajó con Outlook y VBA, pero todavía tengo varias hojas de trucos y enlaces. Yo desenterré esto; ¡Espero eso ayude!

Trate de establecer la propiedad .Importance en su objeto de correo

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

Answer 2

De Remou's link en los comentarios, esto funciona para Outlook 2010 a través de VBA:

cdoMessage.Fields.Item(cdoImportance) = cdoHigh 

Answer 3

.Importance = 2 (para cualquiera que quiera en 2015).