Como obter contatos globais no VBA Outlook

Escrito por lindsey mason | Traduzido por pedro antonio
  • Compartilhar
  • Tweetar
  • Compartilhar
  • Pin
  • E-mail
Como obter contatos globais no VBA Outlook
Aprenda a criar a lista de endereços global em poucos passos (Jason Reed/Photodisc/Getty Images)

O Microsoft Outlook armazena os contatos para seu uso e a Lista de Endereços Global (GAL, em inglês) contém informações de contato para os usuários em seu servidor da Microsoft Exchange. De acordo com Mike Caraker, Diretor de TI da MGF Architects, pode-se utilizar o código Visual Basic for Applications (VBA) para sincronizar a sua GAL com uma subpasta em seus contatos. Ao sincronizar essa pasta, você irá trazer novos contatos, atualizar os já existentes e remover os antigos que estiverem fora de data. É necessário habilitar os macros no seu Microsoft Outlook para usar o código VBA.

Nível de dificuldade:
Moderadamente desafiante

Outras pessoas estão lendo

Instruções

    Preparando o código de entrada

  1. 1

    Inicie o Microsoft Outlook.

  2. 2

    Pressione Alt+F11 para abrir o Editor Visual Basic.

  3. 3

    Clique em "Inserir" e selecione "Procedimento".

  4. 4

    Digite "CreateSubFolder" no campo "Nome".

  5. 5

    Selecione "Sub" nos botões de opção "Tipo" e clique em "OK".

    Digite o código

  1. 1

    Mova o cursor para a segunda linha. O Outlook irá gerar a primeira linha automaticamente. Ela deverá informar "Sub CreateSubFolder()".

  2. 2

    Digite "On Error Resume Next" e aperte Enter.

  3. 3

    Digite "Dim GAL As AddressList, i As Integer, objContact As ContactItem" e aperte Enter.

  4. 4

    Digite "Set objOutlook = CreateObject ("Outlook.Application")" e aperte Enter.

  5. 5

    Escreva “Set myNameSpace = objOutlook.GetNamespace("MAPI")” e aperte Enter.

  6. 6

    Digite “Set myFolder = myNameSpace.GetDefaultFolder(olFolderContacts)” e pressione Enter.

  7. 7

    Digite “Set myNewFolder = myFolder.Folders("global")” e pressione Enter.

  8. 8

    Digite “myNewFolder.Delete” e aperte Enter.

  9. 9

    Escreva “Set myNewFolder = myFolder.Folders.Add("global")” e aperte Enter.

  10. 10

    Digite “Set myNewFolder = myFolder.Folders("global")” e pressione Enter.

  11. 11

    Digite “Set GAL = myNameSpace.AddressLists("Global Address List")” e aperte Enter.

  12. 12

    Digite “GAL.AddressEntries.Sort” e aperte Enter.

  13. 13

    Digite “For i = 1 To GAL.AddressEntries.Count - 1” e pressione Enter.

  14. 14

    Digite “Set objContact = myNewFolder.Items.Add("IPM.Contact")” e aperte Enter.

  15. 15

    Digite “objContact.FirstName = (GAL.AddressEntries.Item(i).GetExchangeUser.FirstName)” e aperte Enter.

  16. 16

    Escreva “objContact.LastName = (GAL.AddressEntries.Item(i).GetExchangeUser.LastName)” e aperte Enter.

  17. 17

    Escreva “objContact.Save” e tecle Enter.

  18. 18

    Digite "Next i" e aperte Enter.

  19. 19

    Verifique que a última linha informa "End Sub". O Outlook irá gerar essa linha para você.

  20. 20

    Clique em "Arquivo" e selecione "Salvar Projeto1".

  21. 21

    Saia do Editor Visual Basic.

    Executando o código

  1. 1

    Clique na aba "Desenvolvedor".

  2. 2

    Clique em "Macros".

  3. 3

    Selecione "Projeto1.CreateSubFolder". O código irá funcionar agora. Isso pode levar um minuto ou mais, dependendo do número de contatos globais.

Dicas & Advertências

  • Você pode adicionar mais campos, como o telefone comercial ou endereço de e-mail secundário, para o código para obter mais informações do GAL.
  • Certifique-se de utilizar a capitalização e pontuação, conforme mostrado, pois esta é uma parte importante da sintaxe do código VBA.
  • O código neste artigo foi projetado por Mike Caraker e foi reproduzido aqui com a devida permissão. Ele pode ser usado para programar, mas não é para ser reproduzido sem a sua autorização expressa.

Não perca

Filtro:
  • Geral
  • Artigos
  • Slides
  • Vídeos
Mostrar:
  • Mais relevantes
  • Mais lidos
  • Mais recentes

Nenhum artigo disponível

Nenhum slide disponível

Nenhum vídeo disponível