[Okta Webinar] Learn how to a build a cloud-first strategyRegister Now


How do I add a Confidential button on the standard toolbar of an e-mail in Outlook?

Posted on 2006-05-26
Medium Priority
Last Modified: 2006-11-18
If you open a new e-mail, then click View...Options, you will see a drop down for Sensitivity in the Message Settings section. In that drop down is an option for Confidential. Is there a way to add that option as a button on the toolbar?
Question by:itagent007
  • 2
  • 2
  • 2

Expert Comment

ID: 16770939
What Office version? OS?

Expert Comment

ID: 16770958
Add a button, menu, or command
Do one of the following:

Add a button or menu to a toolbar

On the View menu, point to Toolbars, and then click the toolbar you want to display.
On the toolbar, click the Toolbar Options arrow .
Point to Add or Remove Buttons, and then click Customize.
Do one of the following:
Add a button

Click the Commands tab.
In the Categories list, click a category for the command you want the button to perform.
In the Commands list, click the command or macro you want and drag it to the displayed toolbar.
Add a menu

Click the Commands tab.

In the Categories list, click New Menu.

In the Commands list, click New Menu and drag it to the displayed toolbar.

Right-click the new menu on the toolbar, type a name in the Name box on the shortcut menu, and then press ENTER.

LVL 76

Expert Comment

by:David Lee
ID: 16772846
Greetings, itagent007.

The code below will add a toolbar button for making the message open in the window Confidential.  Follow these instructions to use it.
1.  Start Outlook
2.  Click Tools->Macros->Visual Basic Editor
3.  If not already expanded, expand Microsoft Office Outlook Objects and select ThisOutlookSession
4.  Copy the code in <First Code Block> and paste it into the right-hand pane of the VB editor
5.  If not already expanded, expand Modules and select Module1.
6.  Copy the code in <Second Code Block> and paste it into the right-hand pane of the VB editor
7.  Click the diskette icon on the toolbar to save the code
8.  Close the VB editor
9.  Click Tools->Macros->Security
10.  Change the security level to Medium
11.  Click Ok
12.  Close Outlook
13.  Start Outlook
14.  You'll receive a dialog-box telling you that ThisOutlookSession contains macros and asking if you want to enable them.  Click Enable Macros.
15.  Create a new message.  You should see a button with a safe on it right next to the Options button.  Clicking it will make the message Confidential.

'<First Code Block>
Private WithEvents olkInspectors As Outlook.Inspectors, _
    WithEvents olkControl As CommandBarButton

Private Sub Application_Quit()
    Set olkInspectors = Nothing
End Sub

Private Sub Application_Startup()
    Set olkInspectors = Application.Inspectors
End Sub

Private Sub olkInspectors_NewInspector(ByVal Inspector As Inspector)
    Dim olkBar As Office.CommandBar
    If Inspector.CurrentItem.Class = olMail And Not Inspector.CurrentItem.Sent Then
        Set olkBar = Inspector.CommandBars.Item("Standard")
        'Test to see if the toolbar button already exists
        Set olkControl = olkBar.FindControl(, , "Confidential")
        'If not found, then create button
        If olkControl Is Nothing Then
            Set olkControl = olkBar.Controls.Add(, , , 22, True)
            With olkControl
                .OnAction = "MakeMessageConfidential"
                .Caption = "Confidential"
                .FaceId = 2654
                .Style = msoButtonIcon
                .Tag = "Confidential"
                .TooltipText = "Set this message's sensitivity to Confidential"
                .Visible = True
            End With
        End If
    End If
End Sub
'</First Code Block>

'<Second Code Block>
Sub MakeMessageConfidential()
    Application.ActiveInspector.CurrentItem.Sensitivity = olConfidential
End Sub
'</Second Code Block>

Efficient way to get backups off site to Azure

This user guide provides instructions on how to deploy and configure both a StoneFly Scale Out NAS Enterprise Cloud Drive virtual machine and Veeam Cloud Connect in the Microsoft Azure Cloud.


Author Comment

ID: 16805096
Hey BlueDevilFan, you're the closest so far to get what I'm looking for. Is there any way though to not have a user be prompted to enable the macro so that the Confidential button visible? We have over 5,000 employees, and it would be best if this can be made seamless to the users. I just want to be able to open a new e-mail without having to be prompted.
LVL 76

Accepted Solution

David Lee earned 2000 total points
ID: 16812951
There are two ways to avoid the prompt for enabling macros.  One, set the macro security level to Low.  I don't recommend that since it leaves you vulnerable to Outlook based macro viruses and worms.  Two, sign the code.  Here's a link to instructions for doing that: http://msdn.microsoft.com/library/default.asp?url=/library/en-us/dnoxpta/html/odc_dsvba.asp

Author Comment

ID: 16822243
Thanks for the help on us!

Featured Post

Prepare for your VMware VCP6-DCV exam.

Josh Coen and Jason Langer have prepared the latest edition of VCP study guide. Both authors have been working in the IT field for more than a decade, and both hold VMware certifications. This 163-page guide covers all 10 of the exam blueprint sections.

Question has a verified solution.

If you are experiencing a similar issue, please ask a related question

This article lists the top 5 trialware OST to PST Converter Tools. These tools save a lot of time for users when they want to convert OST to PST after their Exchange server is no longer available or other critical issues with Exchange server or impo…
Take a look at these 6 Outlook Email management tools which can augment the working and performance of Microsoft Outlook to give you a more rewarding emailing experience.
Get people started with the process of using Access VBA to control Outlook using automation, Microsoft Access can control other applications. An example is the ability to programmatically talk to Microsoft Outlook. Using automation, an Access applic…
This Experts Exchange video Micro Tutorial shows how to tell Microsoft Office that a word is NOT spelled correctly. Microsoft Office has a built-in, main dictionary that is shared by Office apps, including Excel, Outlook, PowerPoint, and Word. When …
Suggested Courses

873 members asked questions and received personalized solutions in the past 7 days.

Join the community of 500,000 technology professionals and ask your questions.

Join & Ask a Question