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.
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.