Código VBScript para mudar contactos de Privado para Normal

Para formulários de Outlook


Function Item_Open()

Dim iCount
MsgBox ("Esta macro vai mudar os Contactos de Privado para Normal")
Set olNS = Item.Application.GetNamespace("MAPI")
Set olContactsFolder = olNS.pickfolder
Set olContacts = olContactsFolder.Items
iCount = 0

For Each olContact In olContacts
If olContact.Sensitivity = 2 Then
olContact.Sensitivity = 0
olContact.Save
iCount = iCount + 1
End If
Next

MsgBox "Numero de contactos alterados: " & CInt(iCount)

End Function