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

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.

252947
Este artigo foi arquivado. Este artigo é oferecido "tal como está" e deixará de ser actualizado.
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 = NothingEnd 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
OutSol OutSol2000 OL2K

Aviso: Este artigo foi traduzido automaticamente

Propriedades

ID do Artigo: 252947 - Última Revisão: 02/02/2014 05:10:17 - Revisão: 3.2

  • Microsoft Outlook 2000
  • kbnosurvey kbarchive kbmt kbhowto KB252947 KbMtpt
Esta informação foi útil?