OL2002: Como alterar o arquivo como campo para todos os contatos

Traduções deste artigo Traduções deste artigo
ID do artigo: 291144 - Exibir os produtos aos quais esse artigo se aplica.
Expandir tudo | Recolher tudo

Neste artigo

Sumário

Este artigo descreve como usar um formulário do Outlook e Visual Basic Scripting Edition (VBScript) personalizados para alterar programaticamente o campo Arquivar como para um grande número de contatos existentes.

Mais Informações

importante : se você alterar o formato do campo Arquivar como usando o formulário de contato padrão do Outlook, Outlook garante que o formato deste campo não afeta outras áreas onde esse tipo de informação é exibido (como na parte superior de um contato ao visualizá-lo no modo de exibição cartões de visita). No entanto, este exemplo simplesmente altera o campo Arquivar como propriamente dito e, portanto, não executa a mesma função que o formulário de contato do Outlook. A Microsoft recomenda que você faça uma cópia de sua pasta de contatos e, em seguida, use o código de exemplo abaixo na pasta que você copiou para garantir que as vantagens de usar esse exemplo superem quaisquer limitações potenciais dessa abordagem.

Observação : quando você altera o campo Arquivar como , a ordem em que os contatos aparecem no catálogo de endereços do Outlook não é afetada.

Microsoft fornece exemplos de programação apenas para ilustração, sem garantia expressa ou implícita, incluindo, mas não se limitando às garantias implícitas de comercialização e/ou adequação a uma finalidade específica. Este artigo presume que você esteja familiarizado com a linguagem de programação demonstrada e as ferramentas usadas para criar e depurar procedimentos. Profissionais de suporte da Microsoft podem ajudar a explicar a funcionalidade de um determinado procedimento, mas eles não modificarão esses exemplos para fornecer funcionalidades adicionais ou construir procedimentos para atender às suas necessidades específicas.
Se você não tenha muita experiência de programação, talvez queira em contato com um Microsoft Certified Partner ou Microsoft Advisory Services. Para obter mais informações, visite da Microsoft:

Microsoft Certified Partners - https://partner.microsoft.com/global/30000104

Comunicado de Microsoft Services - http://support.microsoft.com/gp/advisoryservice

Para obter mais informações sobre as opções de suporte estão disponíveis e sobre como entrar em contato com a Microsoft, visite o seguinte site: http://support.microsoft.com/default.aspx?scid=fh;EN-US;CNTACTMSQuando você cria um novo formulário personalizado do Outlook, você pode alterar o campo Arquivar como para todos os contatos para qualquer um dos seguintes formatos:
  • Nome Sobrenome
  • Sobrenome, primeiro
  • Empresa
  • Sobrenome, nome (empresa)
  • Empresa (Sobrenome, nome)

Como criar o formulário personalizado

  1. No menu arquivo , aponte para novo e, em seguida, clique em Email para abrir uma nova mensagem de email.
  2. No menu Ferramentas do novo email, aponte para formulários e, em seguida, clique em Criar um formulário .
  3. Inserir cinco botões de comando no novo formulário. Para fazer isso:
    1. Clique na guia (P.2) para ir para uma página em branco no formulário.
    2. No menu formulário , clique em Caixa de ferramentas de controle , clique CommandButton e, em seguida, arraste o botão para a página de formulário em branco.
    3. Clique com o novo botão direito do mouse, clique em Propriedades e, em seguida, digite cmdLastFirst na caixa nome .
    4. Na caixa legenda , digite o último, primeiro e, em seguida, clique em OK .
    5. Na caixa de diálogo a caixa de ferramentas , clique em CommandButton e, em seguida, arraste um segundo botão para a página de formulário em branco.
    6. Clique com o novo botão direito do mouse, clique em Propriedades e, em seguida, digite cmdFirstLast na caixa nome .
    7. Na caixa legenda , digite o Nome e sobrenome e, em seguida, clique em OK .
    8. Na caixa de diálogo a caixa de ferramentas , clique em CommandButton e em seguida, arraste um terceiro botão para a página de formulário em branco.
    9. Clique com o novo botão direito do mouse, clique em Propriedades e, em seguida, digite cmdCompany na caixa nome .
    10. Na caixa legenda , digite empresa e, em seguida, clique em OK .
    11. Na caixa de diálogo a caixa de ferramentas , clique em CommandButton e em seguida, arraste um quarto o botão para a página de formulário em branco.
    12. Clique com o novo botão direito do mouse, clique em Propriedades e, em seguida, digite cmdLastFirstCompany na caixa nome .
    13. Na caixa legenda , digite o Sobrenome, nome (empresa) e, em seguida, clique em OK .
    14. Na caixa de diálogo a caixa de ferramentas , clique em CommandButton e em seguida, arraste um quinto botão para a página de formulário em branco.
    15. Clique com o novo botão direito do mouse, clique em Propriedades e, em seguida, digite cmdCompanyLastFirst na caixa nome .
    16. Na caixa legenda , digite empresa (Sobrenome, nome) e, em seguida, clique em OK .
  4. Digite o seguinte código Visual Basic Scripting Edition (VBScript). Para fazer isso:
    1. No menu formulário , clique em View Code para abrir o Editor de scripts.
    2. No Editor, digite ou copie o seguinte código:
      Option Explicit
      Dim strSortBy
      
      Sub cmdLastFirst_Click()
         strSortBy = "LastFirst"
         UpdateContacts
      End Sub
      
      Sub cmdFirstLast_Click()
         strSortBy = "FirstLast"
         UpdateContacts
      End Sub
      
      Sub cmdCompany_Click()
         strSortBy = "Company"
         UpdateContacts
      End Sub
      
      Sub cmdLastFirstCompany_Click()
         strSortBy = "Last, First (Company)"
         UpdateContacts
      End Sub
      
      Sub cmdCompanyLastFirst_Click()
         strSortBy = "Company (Last, First)"
         UpdateContacts
      End Sub
      
      Sub UpdateContacts()
      
         Dim CurFolder
         Dim MyItems
         Dim MyItem
         Dim NumItems, i
      
         ' Use whichever folder is currently selected
         Set CurFolder = Application.ActiveExplorer.CurrentFolder
      
         ' Make sure it's a contact folder
         If CurFolder.DefaultItemType = 2 Then
            MsgBox "This process may take some time. You will be " & _
            "notified when complete.", , "Contact Tools Message"
            Set MyItems = CurFolder.Items
            NumItems = MyItems.Count
            For i = 1 to NumItems
               Set MyItem = MyItems.Item(i)
               ' Make sure it's not a distribution list in the folder
               ' (really only applies to OL98 and OL2000)
               If TypeName(MyItem) = "ContactItem" Then
                  Select Case strSortBy
                     Case "LastFirst"
                        If MyItem.LastNameandFirstName <> "" Then
                           MyItem.FileAs = MyItem.LastNameandFirstName
                        Else
                           MyItem.FileAs = MyItem.CompanyName
                        End IF
                     Case "FirstLast"
                        If MyItem.Subject <> "" Then
                           MyItem.FileAs = MyItem.Subject
                        Else
                           MyItem.FileAs = MyItem.CompanyName
                        End IF
                     Case "Company"
                        If MyItem.CompanyName <> "" Then
                           MyItem.FileAs = MyItem.CompanyName
                        Else
                           MyItem.FileAs = MyItem.LastNameandFirstName
                        End IF
                     Case "Last, First (Company)"
                        MyItem.FileAs = MyItem.LastNameAndFirstName
                        If MyItem.CompanyName <> "" Then
                           If MyItem.FileAs <> "" Then
                              MyItem.FileAs = MyItem.FileAs & " (" & _
                                              MyItem.CompanyName & ")"
                           Else
                              MyItem.FileAs = MyItem.FileAs & _
                                        MyItem.CompanyName
                           End If
                        End If
                     Case "Company (Last, First)"
                        MyItem.FileAs = MyItem.CompanyName
                        If MyItem.LastNameandFirstName <> "" Then
                           If MyItem.FileAs <> "" Then
                              MyItem.FileAs = MyItem.FileAs & " (" & _
                                     MyItem.LastNameAndFirstName & ")"
                           Else
                              MyItem.FileAs = MyItem.FileAs & _
                                     MyItem.LastNameAndFirstName
                           End If
                        End If
                  End Select
                  MyItem.Save
               End If           ' check TypeName
            Next
            MsgBox "Finished updating contacts."
         Else
            MsgBox "The current folder must be a contacts folder."
         End If                 ' check contacts folder
      
         Set MyItem = Nothing
         Set MyItems = Nothing
         Set CurFolder = Nothing
      
      End Sub
      						
    3. No menu arquivo no Editor de scripts, clique em Fechar para retornar ao formulário.
    4. Clique na página Message do formulário.
    5. No menu formulário , clique em Exibir esta página . Isso oculta a página de formulário para que ele não aparece quando o formulário é usado.
  5. Publique o formulário. Para fazer isso:
    1. No menu Ferramentas , aponte para formulários e, em seguida, clique em Publicar formulário .
    2. Verifique se próxima ao botão Examinar você ver Biblioteca de formulários particulares .
    3. Na caixa nome para exibição , digite um nome de discriptive para o novo formulário (como alterar o arquivo como campos ) e, em seguida, clique em Publicar .
    4. Quando você for solicitado para salvar a definição do formulário com o item, clique em não .
    5. Feche a mensagem sem salvá-lo.

Como usar o formulário personalizado

Para usar o novo formulário:
  1. Localize a pasta Contatos que você deseja re-sequence.
  2. No menu arquivo , aponte para novo e, em seguida, clique em Escolher formulário .
  3. Altere a caixa Examinar para a Biblioteca de formulários particulares , clique em seu novo formulário e, em seguida, clique em OK .
  4. Clique no botão apropriado para atualizar o campo Arquivar como .

Referências

Para obter informações adicionais sobre recursos disponíveis e respostas a perguntas feitas normalmente sobre soluções do Microsoft Outlook, clique no número abaixo para ler o artigo na Base de dados de Conhecimento da Microsoft:
287530OL2002: Perguntas sobre formulários personalizados e soluções do Outlook

Propriedades

ID do artigo: 291144 - Última revisão: quinta-feira, 23 de novembro de 2006 - Revisão: 2.4
A informação contida neste artigo aplica-se a:
  • Microsoft Outlook 2002 Standard Edition
Palavras-chave: 
kbmt kbhowto KB291144 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 traduzido ou revisto por pessoas. A Microsoft possui artigos traduzidos por aplicações (MT) e artigos traduzidos por tradutores profissionais, com o objetivo de oferecer em português a totalidade dos artigos existentes na base de dados de suporte. No entanto, a tradução automática não é sempre perfeita, podendo conter erros de vocabulário, sintaxe ou gramática. A Microsoft não é responsável por incoerências, erros ou prejuízos ocorridos em decorrência da utilização dos artigos MT por parte dos nossos clientes. A Microsoft realiza atualizações freqüentes ao software de tradução automática (MT). Obrigado.
Clique aqui para ver a versão em Inglês deste artigo: 291144

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