Come posso impostare "Elevata importanza" sulle e-mail inviate tramite VBA?

Question

Ho provato a impostare alcune proprietà su questo oggetto per inviare un messaggio di posta elettronica con grande importanza, ma niente sembrava funzionare. Ecco quello che ho provato:

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

E 'stato un po' che ho lavorato con Outlook e VBA, ma ho ancora vari cheat fogli e collegamenti. L'ho scavato; spero che sia d'aiuto!

Prova a impostare la proprietà .Importance nell'oggetto di posta

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

Answer 2

Da Remou's link nei commenti, questo funziona per Outlook 2010 via VBA:

cdoMessage.Fields.Item(cdoImportance) = cdoHigh 

Answer 3

.Importance = 2 (per chi cerca nel 2015).