Alterando o código de área de um Contato do Outlook via VBA


Esse código realiza a seguinte operação: Imaginando que você tenha um celular TIM onde os números em sua agenda estejam gravados com o código 41 e você trocou de operadora, por exemplo a CLARO e necessita que o código seja alterado para 21 (Embratel).

Execute o código abaixo e troque o número dos seus contatos automaticamente. Faça os devidos ajustes para qualquer operadora e códigos:

==========================

Private Sub AlteraContatos()

    Dim items As items, item As ContactItem, folder As folder

    Dim contactItems As Outlook.items

    Dim itemContact As Outlook.ContactItem

    Dim Count As Integer

    Set folder = Session.GetDefaultFolder(olFolderContacts)

    Set items = folder.items

    Count = items.Count

    If Count = 0 Then

        MsgBox “Nothing to do!”

        Exit Sub

    End If

    ‘Filter on the message class to obtain only contact items in the folder

    Set contactItems = items.Restrict(“[MessageClass]=’IPM.Contact'”)

    For Each itemContact In contactItems

       itemContact.BusinessTelephoneNumber = “(11) 4545-5031”

       itemContact.MobileTelephoneNumber = Replace(itemContact.MobileTelephoneNumber, “855”, “041”)

       itemContact.Save

    Next

    MsgBox “Your contacts have been re-filed.”

End Sub

=================


Para a conclusão desse POST contei com a ajuda do Programador Marcelo Santos (Mondial Tecnologia).

Até a próxima!

MAC

Deixe uma resposta

Preencha os seus dados abaixo ou clique em um ícone para log in:

Logotipo do WordPress.com

Você está comentando utilizando sua conta WordPress.com. Sair / Alterar )

Imagem do Twitter

Você está comentando utilizando sua conta Twitter. Sair / Alterar )

Foto do Facebook

Você está comentando utilizando sua conta Facebook. Sair / Alterar )

Foto do Google+

Você está comentando utilizando sua conta Google+. Sair / Alterar )

Conectando a %s