• Status: Solved
  • Priority: Medium
  • Security: Public
  • Views: 641
  • Last Modified:

Using GPO to hide BCC tab in Outlook 2000

Hi Experts!

What are the next steps to disable the blind carbon copy field in Outlook 2000?

I have successfully snapped the admin template I need into a GPO (outlk9.adm) and can now see the options for Outlook 2000 listed.

I believe I now need to configure USER>MS Outlook 2000>Disable Items in Use>(either predefined or custom) with the contents of the brackets being my gray area!

What do I do now??

Thanks!
0
TCuk
Asked:
TCuk
  • 4
  • 2
1 Solution
 
mdiglioCommented:
Hello,
Unfortunately that method only works for disabling commandbars and the bcc does not fall into that category

This code will work on a single machine.
but I don't know how to create com add-ins or if it is even necessary to do so
Tools >> macros >> visual basic editor

Private Sub Application_ItemSend(ByVal Item As Object, Cancel As Boolean)
If Not Item.BCC = "" Then
     MsgBox "No BCC Allowed"
     Cancel = True
End If
End Sub

There is an outlook section in EE and you can post a low point pointer question there;
the mod will knock the points down to 0 so you won't have to use any more of your points
http://www.experts-exchange.com/Applications/MS_Office/Outlook/
0
 
mdiglioCommented:
For future reference here is how you find the id numbers to place into that gpo
code taken from Sue Mosher

Tools >> macros >> visual basic editor >> paste this in and click the Run button or F5

Sub EnumMenus()
    Dim objApp As Application
    Dim objExplorer As Explorer
    Dim objCB As CommandBar
    Dim objControl As CommandBarControl
    Dim objSubCB As CommandBar
    Dim objSubCBCtrl As CommandBarControl
    Set objApp = CreateObject("Outlook.Application")
    Set objExplorer = objApp.ActiveExplorer
    For Each objCB In objExplorer.CommandBars
        Debug.Print objCB.Name, objCB.Type
        If objCB.Type = msoBarTypeMenuBar Then
            For Each objControl In objCB.Controls
                Debug.Print "Menu: " & objControl.Caption, _
                            objControl.Index, objControl.ID
                If objControl.Type = msoControlPopup Then
                    Set objSubCB = objControl.CommandBar
                    For Each objSubCBCtrl In objSubCB.Controls
                        Debug.Print objSubCBCtrl.Caption, _
                                    objSubCBCtrl.Index, _
                                    objSubCBCtrl.ID
                    Next
                    Debug.Print
                End If
            Next
            Debug.Print
        End If
    Next
End Sub

Good Luck!
0
 
TCukAuthor Commented:
Forgive my ignorance MDiglio but where would the first bit of code go?  How does it tie into Outlook (I`m not from a programming background),- would it stop users from using BCC?

I did get a bit futher with the issue in that  found a predefined element within the Outlook 9 GPO.  Unfortunately, even though I enabled the policy to remove the BCC field, it's still there when I click on TO: to access the contacts!!

Thanks in advance
0
NFR key for Veeam Backup for Microsoft Office 365

Veeam is happy to provide a free NFR license (for 1 year, up to 10 users). This license allows for the non‑production use of Veeam Backup for Microsoft Office 365 in your home lab without any feature limitations.

 
mdiglioCommented:
Hello,

What predifened element did you find in the outlook 9 gpo; perhaps we
can work with that problem ?

For the first piece of code you would open outlook >>
click tools >>  macros >> visual basic editor
You will now see a new window open and on the left you will see something that says
Project1(VbaProject.otm). Expand that and you will see 'Microsoft Office Solutions'  expand that and
click on 'ThisOutlookSession'
The right side should now be blank and this is where you would paste the code.

This code would fire everytime you send an email and if the bcc is not blank it will
cancel the send and show a message box stating "No BCC Allowed"

There is a way to create something called a com add-in that is meant to distribute code like this;
I have never done it and do not know how it is done.

'Begin Copy
Private Sub Application_ItemSend(ByVal Item As Object, Cancel As Boolean)
If Not Item.BCC = "" Then
     MsgBox "No BCC Allowed"
     Cancel = True
End If
End Sub
'End copy
0
 
TCukAuthor Commented:
Brilliant.  That certainly works in that sense and I`m impressed with your answer so I`ll up the points.

Thanks
0
 
mdiglioCommented:
That is as far as I can take you, like I said I don't know how to properly distribute outlook code.
Post the pointer question in the outlook section as described above
0

Featured Post

Independent Software Vendors: We Want Your Opinion

We value your feedback.

Take our survey and automatically be enter to win anyone of the following:
Yeti Cooler, Amazon eGift Card, and Movie eGift Card!

  • 4
  • 2
Tackle projects and never again get stuck behind a technical roadblock.
Join Now