OL2000: Como definir programaticamente registo em diário para todos os contactos

Traduções de Artigos Traduções de Artigos
Artigo: 252947 - Ver produtos para os quais este artigo se aplica.
Este artigo foi arquivado. Este artigo é oferecido "tal como está" e deixará de ser actualizado.
Expandir tudo | Reduzir tudo

Nesta página

Sumário

Este artigo fornece uma Outlook Visual Basic para aplicações de macro que pode utilizar programaticamente alterar todos os seus contactos para que são automaticamente definidas para o diário.

Mais Informação

A predefinição para o registo no diário de itens de contacto está desactivada. Se criar contactos e, em seguida, optar por activar o registo no diário para estes contactos, defina a opção de diário para cada contacto:
  1. No menu Ferramentas , clique em Opções .
  2. No separador Preferências , clique em Opções de diário .
  3. Na caixa relativamente aos contactos , clique em cada contacto para o qual pretende activar o registo no diário.
Se tiver um grande número de contactos e pretender activar o registo no diário para todas elas, poderá ser mais eficiente para alterar todos os contactos programaticamente.

Microsoft fornece exemplos de programação ilustração só, sem garantia expressa ou implícita, incluindo, sem limitação, garantias implícitas de comercialização e/ou adequação a um fim específico. Este artigo pressupõe que está familiarizado com a linguagem de programação apresentada e as ferramentas utilizadas para criar e depurar procedimentos. Profissionais de suporte da Microsoft podem ajudar a explicar a funcionalidade de um determinado procedimento, mas não modificarão estes exemplos para proporcionarem funcionalidades adicionais nem criarão procedimentos adaptados às necessidades específicas.
Se dispõe de limitada experiência de programação, poderá contactar um Microsoft Certified Partner ou a serviços de aviso. Para obter mais informações, visite estes Web sites da Microsoft:

Microsoft certificado Partner - https://partner.microsoft.com/global/30000104

Serviços Microsoft aviso - http://support.microsoft.com/gp/advisoryservice

Para obter mais informações sobre as opções de suporte estão disponíveis e sobre como contactar a Microsoft, visite o seguinte Web site da Microsoft: http://support.microsoft.com/default.aspx?scid=fh;EN-US;CNTACTMSPara criar a macro:
  1. No menu Ferramentas , aponte para macro e, em seguida, clique em macros .
  2. Na caixa Nome da macro , escreva SetAllContactsToJournal e, em seguida, clique em criar . O Editor do Visual Basic é iniciado e cria automaticamente uma subrotina para si.
  3. Escreva as seguintes linhas de código:
    Sub SetAllContactsToJournal()
    
       Dim objContactsFolder As Outlook.MAPIFolder
       Dim objContacts As Outlook.Items
       Dim objContact As Object
       Dim iCount As Integer
    
       ' Specify which contact folder to work with
       Set objContactsFolder = Session.GetDefaultFolder(olFolderContacts)
       Set objContacts = objContactsFolder.Items
    
       iCount = 0
    
       ' Process the changes
       For Each objContact In objContacts
          If TypeName(objContact) = "ContactItem" Then
             If objContact.Journal = False Then
                objContact.Journal = True
                objContact.Save
                iCount = iCount + 1
             End If
          End If
       Next
       
       MsgBox "Number of contacts updated:" & Str$(iCount)
    
       ' Clean up
       Set objContact = Nothing
       Set objContacts = Nothing
       Set objContactsFolder = Nothing
    
    End Sub
    					
  4. No menu ficheiro , clique em Close and Return to Microsoft Outlook .
Para utilizar a macro:
  1. No menu Ferramentas , aponte para macro e, em seguida, clique em macros .
  2. Clique em SetAllContactsToJournal e, em seguida, clique em Executar .
É apresentada uma janela que indica o número de contactos que tenham sido actualizados.

Notas

  • Pode demorar algum tempo para processar itens na pasta Contactos.
  • Quando os contactos estão a ser actualizados, o ponteiro não é alterado para uma ampulheta.
  • Pode atribuir a macro a um botão se utilizar este frequentemente.Para obter informações adicionais sobre como atribuir esta macro a um botão da barra de ferramentas, clique no número de artigo existente abaixo para visualizar o artigo na base de dados de conhecimento da Microsoft:
    252426OL2000: Como atribuir uma macro a um botão de barra de ferramentas
  • O código de exemplo só funciona com a pasta de contactos predefinida. Se pretender que trabalhar com qualquer pasta de contactos, localize a seguinte linha de código
    Set objContactsFolder = Session.GetDefaultFolder(olFolderContacts)
    						
    e alterá-la para:
    Set objContactsFolder = Outlook.ActiveExplorer.CurrentFolder
    					
  • Se estiver familiarizado com programação e pretender utilizar uma pasta contactos específicos numa localização diferente, consulte o seguinte artigo na base de dados de conhecimento da Microsoft:
208520OL2000: Exemplos de programação de referência de itens e pastas

Referências

Para obter informações adicionais sobre recursos disponíveis e answersto normalmente mais frequentes sobre soluções do Microsoft Outlook, clique no número de artigo existente abaixo para visualizar o artigo na base de dados de conhecimento da Microsoft:
146636OL2000: Perguntas sobre formulários personalizados e soluções do Outlook

Propriedades

Artigo: 252947 - Última revisão: 2 de fevereiro de 2014 - Revisão: 3.2
A informação contida neste artigo aplica-se a:
  • Microsoft Outlook 2000
Palavras-chave: 
kbnosurvey kbarchive kbmt kbhowto KB252947 KbMtpt
Tradução automática
IMPORTANTE: Este artigo foi traduzido por um sistema de tradução automática (também designado por Machine translation ou MT), não tendo sido portanto revisto ou traduzido por humanos. A Microsoft tem artigos traduzidos por aplicações (MT) e artigos traduzidos por tradutores profissionais. O objectivo é simples: oferecer em Português a totalidade dos artigos existentes na base de dados do suporte. Sabemos no entanto que a tradução automática não é sempre perfeita. Esta pode conter erros de vocabulário, sintaxe ou gramática? erros semelhantes aos que um estrangeiro realiza ao falar em Português. A Microsoft não é responsável por incoerências, erros ou estragos realizados na sequência da utilização dos artigos MT por parte dos nossos clientes. A Microsoft realiza actualizações frequentes ao software de tradução automática (MT). Obrigado.
Clique aqui para ver a versão em Inglês deste artigo: 252947

Submeter comentários

 

Contact us for more help

Contact us for more help
Connect with Answer Desk for expert help.
Get more support from smallbusiness.support.microsoft.com