shahine.com/omar/

Simon has a really good post on some simple macros you can create for Outlook 2007 for us GTD users. Personally I've got a simple "Next Action" button that executes the following VBA Script (Ugh I hate VBA).

Mine is a hybrid of his and one I created. The difference is that the first time you run mine it will create a toolbar button for itself and when you create a task it will open the task so that you can make edits like add a due date and subject to be more descriptive. It also trims "Re: " from the subject of the email.

Public Sub CreateNextAction()
    Dim olExp As Outlook.Explorer
    Dim myolApp As Outlook.Application
    Dim myNamespace As Outlook.NameSpace
    Dim myTasks As Outlook.Folder
    Dim myFolder As Outlook.Folder
    Set myolApp = Outlook.CreateObject("Outlook.Application")
    Set myolExp = myolApp.ActiveExplorer
    Set myNamespace = myolApp.GetNamespace("MAPI")
    Set myTasks = myNamespace.GetDefaultFolder(olFolderTasks)
    ' check for the toolbar button
    Set myobjCB = myolExp.CommandBars.item("Standard")
    On Error GoTo MyError
    Set objNA = myobjCB.Controls("&Next Action")
    On Error Resume Next
    
    Dim cntSelection As Integer
    cntSelection = myolExp.Selection.Count
    
    For i = 1 To cntSelection
        Dim item As MailItem
        Set item = myolExp.Selection.item(1)
        item.ShowCategoriesDialog
        Set myTask = item.Move(myTasks)
        subject = myTask.subject
        subject = Replace(subject, "RE: ", "")
        subject = Replace(subject, "Re: ", "")
        myTask.subject = subject
        myTask.Save
        myTask.Display
    Next
    
    Exit Sub
MyError:
        Set objNA = myobjCB.Controls.Add(msoControlButton)
        objNA.Caption = "&Next Action"
        objNA.FaceId = 7264
        objNA.Style = msoButtonIconAndCaption
        objNA.OnAction = "CreateNextAction"
        objNA.BeginGroup = True
        objNA.TooltipText = "Create a Next Action task from this E-mail"
End Sub