How can I set "High Importance" on email sent using VBA?

Question

I tried setting a few properties on this object to send an email with high importance, but nothing seemed to work. Here is what I tried:

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

Does using `objEmail.Fields.Item` rather than `objEmail.Configuration.Fields.Item` work? — Martin Smith, Jul 21 '10 at 17:35
Yes I somewhat lost confidence in that answer myself after some further googling. — Martin Smith, Jul 21 '10 at 17:40
Did you find this: http://classicasp.aspfaq.com/email/how-do-i-alter-the-priority/importance-of-an-e-mail-message.html ? — Fionnuala, Jul 21 '10 at 19:19

score 12 · Accepted Answer · edited Mar 20 '15 at 16:48

12

It's been a while since I worked with Outlook and VBA but I still have various cheat sheets and links. I dug this up; hope it helps!

Try setting the .Importance property in your mail object

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

edited Mar 20 '15 at 16:48

cheezsteak

2,731
4
26
41

answered Jul 21 '10 at 17:58

L1Wulf

156
1
5

Doh! Somehow I completely missed in your OP that you are using .importance. – L1Wulf Jul 21 '10 at 18:00
2

In any case, olImportanceNormal is a built-in constant and should not be in quotes. – Fionnuala Jul 21 '10 at 19:20

score 7 · Answer 2 · answered Aug 21 '15 at 17:10

7

.Importance = 2 (for anyone looking in 2015).

answered Aug 21 '15 at 17:10

JustoShow

94
1
4

1

upgrading from 2013 to 2015.. this was the fix – Sid Jan 07 '16 at 14:17

score 0 · Answer 3 · edited Oct 16 '13 at 12:59

0

From Remou's link in the comments, this works for Outlook 2010 via VBA:

cdoMessage.Fields.Item(cdoImportance) = cdoHigh

edited Oct 16 '13 at 12:59

Simon Adcock

3,554
3
25
41

answered Oct 16 '13 at 12:23

user2886369

1

How can I set "High Importance" on email sent using VBA?

3 Answers3