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:

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

MItem.Categories = "Awaiting Response"
MItem.Close olSave
End Sub[/VBA]

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]

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

Charlize

[OTWarrior]

Works perfectly. Thank you again Charlize