PDA

View Full Version : Solved: Sending Email Flagged High Priority



gsouza
11-18-2007, 09:47 AM
I have this code but i want the email flagged as hi-priority, i have searched this sight, other internet sights and can' find it. It seems so simple. Here is my code

Sub mailnew()
Dim OutApp As Object
Dim OutMail As Object
Set OutApp = CreateObject("Outlook.Application")
OutApp.Session.Logon
Set OutMail = OutApp.CreateItem(0)
On Error Resume Next
With OutMail
.To = "Eugene;"
.CC = ""
.BCC = ""
.Subject = "This is the New Items File"
.Attachments.Add ActiveWorkbook.FullName
.Body = "Hello I need help"
.Send 'or use .Display
End With
On Error GoTo 0

Set OutMail = Nothing
Set OutApp = Nothing
End Sub


Please help if you can. Thanks in advance.

TonyJollans
11-18-2007, 09:58 AM
try adding ...

.Importance = 2