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

Remove Private from Contacts

I have a user who has many of his Contacts marked as private by mistake and his assistant cannot see them. He does not want her to have access to all private items but instead wants the private checkmark removed from all of his contacts. Does anyone know of a way to accomplish this?

Angela Gallo
South Carolina
2 Solutions
Hi Bonilas,
I can't think of any straightforward way of doing this other than going through the contacts and removing the "Private" tick box.

Alternatively, customise the list view in contacts to include the "Sensitivity" field.  You can then update them directly on this list without having to open each contact.

Does that help?
BonilasAuthor Commented:
Thanks, he has a TON of contacts so I'm trying for a way to change the lot of them without having to touch them all.  I hadn't thought of the view angle though, that may be the way we have to go.
There could well be a way of scripting it - but unfortunately I don't know how :-(
Free tool for managing users' photos in Office 365

Easily upload multiple users’ photos to Office 365. Manage them with an intuitive GUI and use handy built-in cropping and resizing options. Link photos with users based on Azure AD attributes. Free tool!

I have looked for this answer a bunch of times and so far the best I can come up with is as follows:

Click the contacts folder, then go to View, Current View, choose Phone List.
Then right click on any one of the fields (like "Fullname" or "Company"), then click Field Chooser.  When the Field Chooser box comes up, click the drop down and choose "All Contact Fields", then scroll down and find Private.  Drag Private with the left mouse button and place it into the list of fields so that it becomes listed as a field above the contacts.  Then click on the Private field, so that it is sorted by that and go down the line one at a time and uncheck them.

I know that's not what you wanted but it's better than opening each one up and having to uncheck it and save and close.  It's faster, but it's still manual.  

I've tried selecting all of them or even just a few and unchecking, but it still only unchecks one at a time.

That's the best I've got, so far.

BonilasAuthor Commented:
Thank you scampgb and Mark for the ideas.  FYI, in case you ever need it, I'm putting the code in below.  Angela

Sub NoPrivateContacts()
    Dim fldrSel As MAPIFolder
    Dim lngC As Long

    Set fldrSel = Application.GetNamespace("MAPI").PickFolder
    If Not fldrSel Is Nothing Then
        If fldrSel.DefaultItemType = olContactItem Then
            If vbYes = MsgBox("Set all Contacts in this Folder as Public?", vbYesNoCancel) Then
                For lngC = 1 To fldrSel.Items.Count
                    With fldrSel.Items(lngC)
                        If .Class = olContact Then
                            .Sensitivity = olNormal
                        End If
                    End With
                Next lngC
            End If
            MsgBox "Not a Contact Folder"
        End If
    End If

    Set fldrSel = Nothing
End Sub

Other way not involving code
Calendar Phonelist view
Group by field: Private
Drag and drop from Private Yes to Private No
Easy, fast and allow you to select which Contact is Private or no.

Question has a verified solution.

Are you are experiencing a similar issue? Get a personalized answer when you ask a related question.

Have a better answer? Share it in a comment.

Join & Write a Comment

Featured Post

Free Tool: Site Down Detector

Helpful to verify reports of your own downtime, or to double check a downed website you are trying to access.

One of a set of tools we are providing to everyone as a way of saying thank you for being a part of the community.

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