I am interested in a quick Outlook 2003 Macro that will accomplish the following:

* Clear the Follow-up flag from the currently highlighted message(s)
* Move the currently highlighted message(s) to a designated folder (the
folder "Idea" in the "Personal Folders" group).

The flow should be something like this:

* Button is clicked on toolbar activating the macro
* Macro makes sure at least one email item is highlighted
* Macro creates dialog asking "Are you sure you want to clear the flag
on this message and move it to _Folder_?" [OPTIONAL]
* Macro steps through all highlighted email items and clears the
follow-up flag for each and moves each to the appropriate folder

Pretty straightforward, I just haven't written any VB for too long :)

I'm not a researcher, so this is a freebie.
And I had someone else write your code; I did not test it.
I assume you know how to use it?

Option Explicit 
 
Sub MoveItems() 
    Dim Messages        As Selection 
    Dim Msg             As MailItem 
    Dim NamSpace        As NameSpace 
    Dim Proceed         As VbMsgBoxResult 
     
    Set NamSpace = Application.GetNamespace("MAPI") 
    Set Messages = ActiveExplorer.Selection 
     
    If Messages.Count = 0 Then 
        Exit Sub 
    End If 
    For Each Msg In Messages 
        If Msg.FlagStatus = 2 Then 
            Proceed = MsgBox("Are you sure you want to clear the flag
and move the message " _
            & """" & Msg & """" & " to the folder " & """" & "Idea" &
"""" & "?", _
            vbYesNo + vbQuestion, "Confirm Procedure") 
            If Proceed = vbYes Then 
                Msg.FlagStatus = olNoFlag 
                Msg.Move NamSpace.Folders("Personal Folders").Folders("Idea") 
            End If 
        End If 
    Next 
     
End Sub

Thanks dreamboat -- that may just work.  I'll test it out and let you
know.  Thanks for your help!