Hi everyone!
Can somebody tell whether it is possible to have like an extra menu item in the right-mouse-click menu.
Say, if I had a Macro called "DoThisOrThat" then it this would appear in the right-mouse-click menu
What would be the code for this (maybe even: what's the code for this if it was to appear as "start a new group", ie. with a dividing line to the other menu options)
I think you can do this in Excel but I don't know the code (plus, whether it is the same for Outlook!)
I would really appreciate if somebody could help me with this problem!
Thank you very much in advance!
Marc
Own Right-Mouse-Click Menu item in Outlook
Hot Topic
- Office 10 \ winword.exe runtime error
- Size Form to fit user resolution
- Using VBA macro to locate next free column on worksheet
- How to change the DisplayAlert Response?
- VBA, Null value and data object not set?
- How to declare activeX object in source code instead on the form?
- How can I be gold partner
- VBA resources
- Error on Archive Acivation
- How to get the filename into the "Insert Picture" dialogue?
Microsoft ISV
- Range
- iexplore.exe - Application Error
- Get ADO Connection Error - VBA runtime error - Pls. HELP
- Select Syntax problem in a Query
- opc
- Read Data from Execel with VBA and write to txt file
- Linked Tables
- Efficent Way to manage multiple textboxes (maybe a loop?)
- vlookup
- Using VBA macro to locate next free column on worksheet
Own Right-Mouse-Click Menu item in Outlook
Kursat Konak
Hello Marc,
I normally write Excel Macros and converted the code you wanted for Powerpoint for some reason and then saw that you needed it for Outlook. I am sure you will be able to convert it for Outlook. I don't have Outlook at home so cannot help right away but any problems please write to me at charleschand@aol.com.
Make sure that you run the DeleteItem procedure too or that new Item wil still be there for your next user!!
ChasAA
[Code]
Sub AddItem()
On Error GoTo errortrap:
For Each cbar In CommandBars
If cbar.Type = msoBarTypePopup Then
Set newitem = CommandBars(cbar.Name).Controls.Add
newitem.Caption = "ThisandThat" ' Caption that will display in pop up
newitem.OnAction = "GoDoThisThatProcedure" ' name of procedure to be executed
newitem.BeginGroup = True ' separator line in pop up
End If
Next
errortrap:
Stop
' write your own error trap here, or maybe just end the sub
End Sub
Sub deleteItem()
On Error GoTo errortrap:
For Each cbar In CommandBars
If cbar.Type = msoBarTypePopup Then
CommandBars(cbar.Name).Controls("ThisandThat").Delete
End If
Next
errortrap:
' write your own error trap here, or maybe just end the sub
End Sub
Sub GoDoThisThatProcedure()
Stop
End Sub
[End Code]
Warner Young
Marc,
Did this help or do you need the code converted for Outlook
ChasAA