Outlook 2007: Macro - Open Msg in Forward form, then over to a folder

Hi, webspeedway.

While it's possible to do this the way you described, there is a simpler approach.  Instead of keying on forwarding a message, how about a macro that handles the forward and archive all at once?  In other words, you have a "Delegate" button that when clicked forwards the message to the delegate and archives it?

Yeah that would work, would you juts prompt for a name out of address book? Because it will not always be the same person..    Also i will make another question so you can get points also, but what do you think about a file button also that marks the msg read and moves to the folder designated in the code??

"... what do you think about a file button also that marks the msg read and moves to the folder designated in the code??"

That's simple.  Send me a link to the question when you open it and I'll post a solution.

BlueDevilFan, I installed the code but the folder link is not setup the way I'm use to.. Can you give me some insight?

        'Change the folder path on the following line'
        Set olkFolder = OpenOutlookFolder("Inbox\2009")
        olkMsg.Move olkFolder

Select allOpen in new window

Is the folder 2009 under the default inbox?

Yes

Change line 17 from

    Set olkFolder = OpenOutlookFolder("Personal Folders\Archive")

to

    Set olkFolder = Session.GetDefaultFolder(olFolderInbox).Folders("2009")

You can also delete the OpenOutlookFolder and IsNothing functions.

Perfect, works.. But i thought of a issue.. I usually write something in the e-mail that I'm delegating.. Any way to either show the fwd msg before it sends or add a line of text? Sorry..

Which do you prefer?

Let's open FWD msg before it sends..

The other Question:
https://www.experts-exchange.com/questions/24046239/Outlook-2007-Macro-Mark-Unread-and-file-into-a-sub-folder-of-Inbox.html 

Change line 15 from

    olkForward.Send

to

    olkForward.Display

You'll have to click Send manually.

BlueDevilFan, I'm getting a debug error now..

Run-Time Error '91'
Obeject variable or With block variable not set

It references the following:
    Set olkMsg = Application.ActiveInspector.CurrentItem

You have to have an item open for that one to work.  I can change that if you want.

Yeah, i will be running from the main inbox voew with preview on.

Ok.  Change this line

    Set olkMsg = Application.ActiveInspector.CurrentItem

to

    Set olkMsg = Application.ActiveExplorer.Selection(1)