Results 1 to 3 of 3
  1. #1
    New Lounger
    Join Date
    Mar 2002
    Location
    South Carolina
    Posts
    5
    Thanks
    0
    Thanked 0 Times in 0 Posts

    Remove Private from Contacts (Outlook 2002)

    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

  2. #2
    Uranium Lounger
    Join Date
    Dec 2000
    Location
    Salt Lake City, Utah, USA
    Posts
    9,508
    Thanks
    0
    Thanked 6 Times in 6 Posts

    Re: Remove Private from Contacts (Outlook 2002)

    You could use a table View, such as categories, or you could export them to Excel, clear the Private field (column) and reimport them, but I'd probably use code like this:

    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
    -John ... I float in liquid gardens
    UTC -7ąDS

  3. #3
    New Lounger
    Join Date
    Mar 2002
    Location
    South Carolina
    Posts
    5
    Thanks
    0
    Thanked 0 Times in 0 Posts

    Re: Remove Private from Contacts (Outlook 2002)

    Thank you John, that worked perfectly. <img src=/S/bananas.gif border=0 alt=bananas width=33 height=35>

Posting Permissions

  • You may not post new threads
  • You may not post replies
  • You may not post attachments
  • You may not edit your posts
  •