Mudanças

Caros amigos, leitores e visitantes,

Neste momento estou a fazer uma mudança a nível profissional pelo que as minhas contribuições para o site, blog e fórum estão muito limitadas.

Gostaría no entanto informar-vos que logo que me seja possível retornarei à minha actividade ;-)

Abraço

Ricardo Silva

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