Hi

I have a book Microsoft Outlook Programming, that has been very useful to
help me create a form.  I have almost completed it, but i have two actions
once called "Authorise" and another called "Reject".  I have created these
action buttons as follows:

Function Item_Open()

    set objAction1  = item.actions.add
    with objAction1
        .name = "Authorise"
        .enabled = "True"
        .prefix = "Authorised : "
        .ReplyStyle = 0
        .ResponseStyle = 2
    end with
    set objAction2  = item.actions.add
    with objAction2
        .name = "Reject"
        .enabled = "True"
        .prefix = "Rejected : "
        .ReplyStyle = 0
        .ResponseStyle = 2
    end with

end function

however, when i try to use to following code to handle these buttons, it
doesnt seem to do anything.

Function Item_CustomAction(ByVal Action, ByVal NewItem)
    select case Action.name
        case "Authorise"
            NewItem.Importance = 2
            newitem.body = "is this working>?"
            msgbox("Authorised")
        case "Reject"
        case else
            msgbox("else")
    end select
End Function

Can anyone advise of what i am doing wrong?

TIA

Nathan