Function Item_CustomAction(ByVal Action, ByVal NewItem)
Select Case Action.Name
Case "Action1"
MsgBox "User chose Action1"
' do anything you want with NewItem
Case "Action2"
MsgBox "User Chose Action2"
End Select
End FUnction
--
Sue Mosher, Outlook MVP
Outlook and Exchange solutions at
http://www.slipstick.com
Author of
Microsoft Outlook Programming: Jumpstart
for Administrators, Power Users, and Developers
"Greg Smith" <
[email protected]> wrote