Set category, close and forward an email

[OTWarrior]

Hello

I currently have a set up of using categories to keep track of my emails, with buttons in outlook to assign a category to the current open email, then close it:

Sub catAwaitingResponse()
Dim MItem As Object
Set MItem = ActiveInspector.CurrentItem

MItem.Categories = "Awaiting Response"
MItem.Close olSave
End Sub

What I would like to do, is to forward this email to someone at the same time.
BUT, I don't want to auto forward. I just want to simulate the "Forward Button" on the toolbar, creating an email that I can add whatever text to before I send.

Any ideas?

[Charlize]

MItem.Forward.Display
But the mail must be open and not just selected. I tend to use ActiveExplorer.Selection.Item(1)but you can't define as object then but rather as Outlook.MailItem .

Charlize

[OTWarrior]

Works perfectly. Thank you again Charlize :)