Add to Right Click Menu

Status
Not open for further replies.

LMS

Senior Member
Outlook version
Outlook 2007
Email Account
Exchange Server
I found the following code that you put in ThisOutlookSession that adds to the right click menu the reply to an email that you select. Is there something to do in this code where it can add a macro that I use, or when I create a new Useform that is not related to a Module, in the ThisOutlookSesssion I add code to the ThisOutlookSession ..for example:

Public Sub runthis72()
Dim frm As New UserForm71
frm.Show

End Sub


And this code runs the Userform71. So can I add the runthis72 to the big code I will post. so it shows up in the right click menu?

Private Sub Application_ItemContextMenuDisplay( _
ByVal CommandBar As Office.CommandBar, _
ByVal Selection As Selection)
Dim objButton As CommandBarButton
Dim intButtonIndex As Integer
Dim intCounter As Integer

On Error GoTo ErrRoutine

' Ensure we have only one item selected.
If Selection.Count = 1 Then

' Ensure we have a MailItem selected.
If Selection.Item(1).Class = olMail Then
' Find the location of the Reply To All button.
For intCounter = 1 To CommandBar.Controls.Count
If CommandBar.Controls(intCounter).ID = 355 Then
intButtonIndex = intCounter
Exit For
End If
Next

' If we have a Reply To All button in the
' context menu, add a new button to support
' the ReplyToNoncopied routine.
If intButtonIndex <> 0 Then
' Create a new menu item and place it
' just after the Reply To All button
Set objButton = CommandBar.Controls.Add( _
msoControlButton, , , intButtonIndex)

' Configure the menu item.
With objButton
.Style = msoButtonIconAndCaption
.Caption = "Repl&y to Non-copied"
.Parameter = Selection.Item(1).EntryID
.FaceId = 355
' If you place this sample in a class module
' other than ThisOutlookSession, update this
' line of code to ensure that the OnAction
' property contains the correct project,
' class, and routine name.
.OnAction = "Project1.ThisOutlookSession.ReplyToNoncopied"
End With
End If
End If
End If

EndRoutine:
On Error GoTo 0
' Place clean-up code here.
Exit Sub

ErrRoutine:
MsgBox Err.Number & " - " & Err.Description, _
vbOKOnly Or vbCritical, _
"Application_ItemContextMenuDisplay"
GoTo EndRoutine
End Sub
 

LMS

Senior Member
Outlook version
Outlook 2007
Email Account
Exchange Server
I changed "If Selection.Item(1).Class = olMail Then" to "If Selection.Item(1).Class = olContact Then" and changed ".OnAction = "Project1.ThisOutlookSession.ReplyToNoncopied" to ".OnAction = "Project1.ThisOutlookSession.runthis72", and when I select a contact, it opens the Userform from the runthis72....

But, I change the code title the top, and of course the caption, and a different runthis48, it does not show up as a second one......so can we do that? And if I select more than one contact, it does not show the additional on the right click menu....so can we do that?
 

LMS

Senior Member
Outlook version
Outlook 2007
Email Account
Exchange Server
Believe it or not, I added to the code

Dim objButton2 As CommandBarButton and

With objButton2
.Style = msoButtonIconAndCaption
.Caption = "LinkedIn Marketing E-Mails"
.Parameter = Selection.Item(1).EntryID
.FaceId = 355
' If you place this sample in a class module
' other than ThisOutlookSession, update this
' line of code to ensure that the OnAction
' property contains the correct project,
' class, and routine name.
.OnAction = "Project1.ThisOutlookSession.runthis72"

End With

And it added the next runthis72 for the other userform......

So need to know what to change so it does the same when I select more than one contact.
 

LMS

Senior Member
Outlook version
Outlook 2007
Email Account
Exchange Server
Any update on this situation?
 

Diane Poremsky

Senior Member
Outlook version
Outlook 2016 32 bit
Email Account
Office 365 Exchange
you need to set up the selection and check each obj in the selection, something like this:


Code:
    Dim currentExplorer As Explorer
    Dim Selection As Selection
   
    Dim obj As Object
    Set currentExplorer = Application.ActiveExplorer
    Set Selection = currentExplorer.Selection

    On Error Resume Next

    For Each obj In Selection

        'Test for contact and not distribution list
        If obj.Class = olContact Then
            Set objContact = obj

            With objContact

            End With
        End If
for each obj in selection
 

LMS

Senior Member
Outlook version
Outlook 2007
Email Account
Exchange Server
Thanks much. Can you tell where to put what and what to delete as I repeat, I only do what you show me.
 

Forum Admin

Senior Member
I have no idea where it goes. :) Maybe replace the code that checks for the selection count?

' Ensure we have only one item selected.
If Selection.Count = 1 Then

' Ensure we have a MailItem selected.
If Selection.Item(1).Class = olMail Then
' Find the location of the Reply To All button.
 

LMS

Senior Member
Outlook version
Outlook 2007
Email Account
Exchange Server
As a favor, can you please copy my code, make the changes and post it, as I have no idea how to do it.

Thanks to the Smart Woman!!!
 

Diane Poremsky

Senior Member
Outlook version
Outlook 2016 32 bit
Email Account
Office 365 Exchange
Seriously, I have no idea and I'm just guessing. :) You need to try something and see if it works. It may not be possible, I don't know.

Private Sub Application_ItemContextMenuDisplay( _
ByVal CommandBar As Office.CommandBar, _
ByVal Selection As Selection)
Dim objButton As CommandBarButton
Dim intButtonIndex As Integer
Dim intCounter As Integer

On Error GoTo ErrRoutine

Dim currentExplorer As Explorer
Dim Selection As Selection

Dim obj As Object
Set currentExplorer = Application.ActiveExplorer
Set Selection = currentExplorer.Selection

On Error Resume Next

For Each obj In Selection


' Ensure we have a MailItem selected.
If obj.Class = olMail Then
Set objmail = obj '(what are you calling the mail object?)

With objmail

'do all this stuff
' Find the location of the Reply To All button.
For intCounter = 1 To CommandBar.Controls.Count
If CommandBar.Controls(intCounter).ID = 355 Then
intButtonIndex = intCounter
Exit For
End If
Next


' when do, loop to the next
End With
End If


'rest of your code here
 

LMS

Senior Member
Outlook version
Outlook 2007
Email Account
Exchange Server
thanks..tried it...but did not work
 

Diane Poremsky

Senior Member
Outlook version
Outlook 2016 32 bit
Email Account
Office 365 Exchange
That was my best guess. I don't know if its possible or how to do it, sorry.
 
Status
Not open for further replies.
Similar threads
Thread starter Title Forum Replies Date
S How to add a new menu item to a right click context menu of a link Using Outlook 5
N Right-click an address -&gt; add to BCM? [OL2007] BCM (Business Contact Manager) 1
N Adding 'Add To Business Contacts' when right-clicking an email add BCM (Business Contact Manager) 2
P Add inanimate objects to meetings? Using Outlook 1
O Outlook 2010 Add delete button to the side of the message list Using Outlook 1
BartH Add a string to the conditions in .Conditions.BodyOrSubject.Text Outlook VBA and Custom Forms 2
A "Get Add-Ins" - Which Version of Outlook to use Using Outlook 1
D Do I need Exchange Add-In? Using Outlook 6
C-S-R Manage Add-ins (Remove Wunderlist) Using Outlook 6
A iCloud add in problems Using Outlook 4
L Macro to add Date & Time etc to "drag to save" e-mails Outlook VBA and Custom Forms 8
C Looking for feedback on new Outlook Add-in Using Outlook 0
L isn't there an OL add-on that flags addressee before sending Using Outlook 3
S Add VBA save code Using Outlook 0
P Shortcut Pane - add shortcut to Office365 group mailbox Using Outlook 1
B Add ComboBox Value to Body of Email Outlook VBA and Custom Forms 1
G How to add a folder shortcut to outlook quick access toolbar? Using Outlook 6
G Add to Outlook Contacts - Point to non-default contacts folder Using Outlook 0
M Automatically add senders first name to a greeting Outlook VBA and Custom Forms 1
C Add Form to Appointments Received, Automatically Outlook VBA and Custom Forms 6
O Outlook tasks - Add text column with multiple lines Using Outlook 3
W April 2020 Office 365 Update - Add-Ons fail after Office 365 Update Using Outlook 6
B Task Filter Not Working When I add too many criteria Using Outlook 0
D Add date next to day name in Outlook Today calendar view Using Outlook 1
D iCloud Add-in not working in Outlook 2013 and Outlook 2016 After Windows Upgrade & iCloud Upgrade Using Outlook 2
P Add Paste Unformatted to QAT Using Outlook 1
M Ignore slow add-ins Using Outlook 0
B Add Prefix text to Subject Line Using Outlook 1
Jennifer Murphy Add birthdays to calendar Using Outlook 7
Z Add text to auto-forwarded e-mail Outlook VBA and Custom Forms 4
P Add, remove, & reorder folder pane Using Outlook 6
L Tired of Outlook disabling Adobe PDF Creator add-in Using Outlook 1
R Add 'Company' to Select Names Form Using Outlook 1
A Outlook 2016 Web add-in missing on some machines Using Outlook 9
P Syncing problems with add-ins Using Outlook 3
Mark Foley Cannot enable add-in in outlook 2010 Using Outlook 0
BretAB Is it possible to add a lookup field to a Message form? Outlook VBA and Custom Forms 4
J Add an Attachment Using an Array and Match first 17 Letters to Matching Template .oft to Send eMail Outlook VBA and Custom Forms 2
iwshim outlook 2013 - I cannot see the "Manage Add-ins" Using Outlook 2
A Add multiple servers "on behalf of" email to "safe senders" list. Using Outlook 1
S Add Exchange Account as Secondary to Existing PST? Exchange Server Administration 1
C Macro to add multiple recipients to message Outlook VBA and Custom Forms 3
A Add to Outlook Contacts from email - default view Outlook VBA and Custom Forms 1
P Add a contact to the New Task in Outlook 2016 Using Outlook 2
e_a_g_l_e_p_i Is there a way to add something that is in the "Format Text" tab to the "basic Text" on the message tab Using Outlook 1
B When working on emails in a certain folder, when I hit reply or reply all, I would like it re always reply all and add an email address to send to Outlook VBA and Custom Forms 3
M Macro to add date/time stamp to subject Outlook VBA and Custom Forms 4
O Outlook on Android - add BCC Using Outlook 2
J Execute Add-In Button from VBA Outlook 2016 Outlook VBA and Custom Forms 1
S Example VBA Macro - To Conditionally Change the From Account and Add a BCC Address on Emails Outlook VBA and Custom Forms 11

Similar threads

Top