Add to Right Click Menu

Status
Not open for further replies.

LMS

Senior Member
Outlook version
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
 
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?
 
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.
 
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
 
Thanks much. Can you tell where to put what and what to delete as I repeat, I only do what you show me.
 
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.
 
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!!!
 
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
 
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
G Add Map It button to Custom Contacts Form in Outlook Outlook VBA and Custom Forms 1
G Outlook 2021 Add Picture to Custom Contact Form Outlook VBA and Custom Forms 2
P Can't add custom field to custom Outlook form, it always adds to the Folder instead Outlook VBA and Custom Forms 2
P VBA to add email address to Outlook 365 rule Outlook VBA and Custom Forms 0
S Outlook 2019 Custom outlook Add-in using Visual Studio Outlook VBA and Custom Forms 0
G automatically choosing "add to autocorrect" option Using Outlook 0
F Want to add second email to Outlook for business use Using Outlook 4
K Add an entry to a specific calendar Using Outlook 1
F Add a category before "Send an Email When You Add an Appointment to Your Calendar" Outlook VBA and Custom Forms 0
J Want to create a button on the nav bar (module add-in) to run code Outlook VBA and Custom Forms 2
M "Attachment Detacher for Outlook" add in, does it update the server copy of the email? Using Outlook 1
J Outlook 365 Add keywords from Listbox to the message body where cursor is placed Outlook VBA and Custom Forms 0
O Add Day Number of the year for 2023-2033 Outlook VBA and Custom Forms 5
J GoDaddy migrated to Office365 - Outlook Wont Add Account Exchange Server Administration 21
F Outlook 2019 Outlook 2019 Add and Sync to New computer Comcast server Using Outlook 2
Witzker Add a text line at the end of the note field in all selected Contacts Outlook VBA and Custom Forms 7
A iCloud Outlook Add In is causing Outlook 2021 to crash and got disabled Using Outlook 10
N How to add or delete items to Move dropdown Menu Using Outlook 0
G Add contacts birthday to calendar Using Outlook 4
V How to add 'Previous Item' and 'Next Item' to the Quick Access Toolbar Using Outlook 1
Commodore Safe way to add or update holidays; Windows Notifications issue Using Outlook 8
kkqq1122 How would I add Search for attachment name Outlook VBA and Custom Forms 3
L did MS ever add way to text via Outlook Using Outlook 5
P How to add a column named categories when searching in Outlook Using Outlook 0
M add new attendee to existing meetings with VBA Outlook VBA and Custom Forms 5
N Can't create NEW GROUP and add/remove a member from existing Group in Outlook Using Outlook 1
Witzker Outlook 2019 Pls. add a Prefix for OUTLOOK 2019 here Using Outlook 1
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 17
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
Z 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
Z Task Filter Not Working When I add too many criteria Using Outlook 0

Similar threads

Back
Top