Auto Email - Setting Importance

[ColinKJ]

Hi,

I'm using the following code to generate an email from excel (2003):

Set OutApp = CreateObject("Outlook.Application")
    On Error Resume Next
    OutApp.Session.Logon
    Set OutMail = OutApp.CreateItem(0)
 
    On Error Resume Next
    With OutMail
        .To = Eadd
        .CC = ""
        .BCC = ""
        .Subject = Su
        .body = body
        .ReadReceiptRequested = True
        .display
    End With
    On Error GoTo 0

Now I want to be able to set the Importance to "High", can anyone help me with the correct syntax.

Regards

ColinKJ

 

[crook_101]

Hi Colin,

You should get some answers here:
http://www.rondebruin.nl/sendmail.htm

Cheers,

Ian

 

[jimrward]

within your WITH construct try

.Importance = olImportanceHigh

 

[ColinKJ]

Hi jimrward,

Someone else sugested I try that, and while it does set the Importance, for some reason it sets it to "Low", any ideas?.

ColinKJ

 

[crook_101]

Have tried this and get same

Only thoughts are - are your Outlook settings over riding the excel code....... Tools/options/email - email options/advanced.

Could try creating a new rule in outlook...

 

[Norie]

Colin

In Outlook VBA the constant olImportanceLow is 0.

If you don't have a reference to Outlook or haven't declared it as a constant or variable with a value then in Excel VBA olImportanceHigh will be 0.

In Outlook VBA olImportanceHigh = 2.

You could try one of these.

1 Set a reference the Outlook Object Library, Tools>References...

2 Use a constant.

Const olImportanceHigh = 2

3 Use a variable, but the value doesn't change so that's probably not worth doing.

 

[ColinKJ]

Thanks Guys,

.Importance = 2

worked for me.

Regards

ColinKJ

 

[Zack Barresse]

Duplicate question: http://www.mrexcel.com/forum/showthread.php?t=493029