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
BonilasAsked:
Who is Participating?
 
scampgbConnect With a Mentor Commented:
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?
0
 
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.
0
 
scampgbCommented:
Bonilas:
There could well be a way of scripting it - but unfortunately I don't know how :-(
0
Cloud Class® Course: SQL Server Core 2016

This course will introduce you to SQL Server Core 2016, as well as teach you about SSMS, data tools, installation, server configuration, using Management Studio, and writing and executing queries.

 
mark-waConnect With a Mentor Commented:
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.

Mark
0
 
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
                            .Save
                        End If
                    End With
                Next lngC
            End If
        Else
            MsgBox "Not a Contact Folder"
        End If
    End If

    Set fldrSel = Nothing
End Sub


0
 
stefriCommented:
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.

Stefri
0
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.

All Courses

From novice to tech pro — start learning today.