VBA to mail in Outlook

I have a program right now where the user inputs whatever information they want and the email gets sent through Outlook with the subject, recipient, body, etc. of whatever they specify. Is there a way to make it automatically mark the outgoing email with high importance? Like the little exclamation point that Outlook has?

Thanks,
Will

Hello Will,

Set the MailItem object Importance property to olImportanceHigh (constant value 0f 2).

Sincerely,
Leith Ross

That's a little beyond me I am afraid. I got the code from this site and I think actually from you, Leith. Do you have a snippet of code I can put in somewhere?

Thanks,
Will

Hello Will,

If you post the code, I'll amend it for you. If you don't have the code, let me know what you need and I'll write a macro.

Sincerely,
Leith Ross

Hi Leith,
This code probably looks familiar to you because I am pretty sure you wrote it. Anways, what do I put and where do I put it to mark the outgoing email with high importance?

Private Sub CommandButton1_Click()
Dim OutApp As Object
Dim OutMail As Object
Dim strto As String, strcc As String, strbcc As String
Dim strsub As String, strbody As String
Dim PolicyNumber As String

Set OutApp = CreateObject("Outlook.Application")
OutApp.Session.Logon
Set OutMail = OutApp.CreateItem(0)

strto = "someaddress@yahoo.com"
'I didn't use the actual address I use

If Range("C21") <> "" Then
PolicyNumber = Range("C21")
strcc = "anotheraddress@yahoo.com"
strbcc = ""
strsub = ProbTopicBox & ", " & PolicyNumber
strbody = "Agent Number:" & AgentNumberBox & vbCrLf & "Agency Name: " & AgencyBox & vbCrLf & "Agent:" & AgentBox & vbCrLf & vbCrLf & ProblemBox
Else
strcc = "anotheraddress@yahoo.com
strbcc = ""
strsub = ProbTopicBox & " (not policy specific)"
strbody = "Agent Number:" & AgentNumberBox & vbCrLf & "Agency Name: " & AgencyBox & vbCrLf & "Agent:" & AgentBox & vbCrLf & vbCrLf & ProblemBox
End If

With OutMail
.To = strto
.CC = strcc
.BCC = strbcc
.Subject = strsub
.Body = strbody
.Send
End With

Set OutMail = Nothing
Set OutApp = Nothing
Me.Hide
End Sub

Thanks a lot, man.

Hello Will,

The property is set in the mail item, your object variable OutMail. Copy and paste this into your macro to replace the old code section for OutMail.

Please Login or Register  to view this content.

Sincerely,
Leith Ross

Worked perfectly, thank you so much! Where do you learn this stuff?