I am getting Error when i add olCC, what am i doing wrong?
Code:
Option Explicit
'// Auto Replay with notes and email body- run Action Script
'// http://www.slipstick.com/outlook/rules/run-script-rule-reply-message/
Public Sub ReplywithNote(Item As Outlook.MailItem)
Dim olInspector As Outlook.Inspector
Dim olDocument As Word.Document
Dim olSelection As Word.Selection
Dim olReply As MailItem
Dim olRecip As Recipient
Set olReply = Item.ReplyAll
Set olRecip = olReply.Recipient.Add("omar@test.com")
olRecip.Type = olCC
olReply.Display
Set olInspector = Application.ActiveInspector()
Set olDocument = olInspector.WordEditor
Set olSelection = olDocument.Application.Selection
olSelection.InsertBefore "Received, Thank you."
'// Uncomment to send
olReply.Send
Set olInspector = Nothing
Set olDocument = Nothing
Set olSelection = Nothing
End Sub