OL2002: Como alterar o ficheiro como campo de todos os contactos

Traduções de Artigos Traduções de Artigos
Artigo: 291144 - Ver produtos para os quais este artigo se aplica.
Expandir tudo | Reduzir tudo

Nesta página

Sumário

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

Mais Informação

importante : Se alterar o formato do campo Arquivar como utilizando o formulário de contacto padrão do Outlook, Outlook assegura que o formato deste campo não afecta outras áreas onde este tipo de informações é apresentado (como, por exemplo, na parte superior de um contacto quando o visualizar na vista de cartões de endereço). No entanto, este exemplo altera simplesmente o Ficheiro como campo e, por isso, não efectua a mesma função que o formulário de contacto do Outlook. A Microsoft recomenda que efectue uma cópia da pasta de contactos e, em seguida, utilizar o código de exemplo abaixo na pasta que copiou para garantir que os benefícios de utilizar este exemplo se sobrepuserem quaisquer potenciais falhas desta abordagem.

Nota : Quando altera o campo Arquivar como , a ordem pela qual os contactos aparecem no livro de endereços do Outlook não é afectada.

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;CNTACTMSQuando cria um novo formulário personalizado do Outlook, pode alterar o campo Arquivar como para todos os contactos para qualquer um dos seguintes formatos:
  • Nome Apelido
  • Apelido, nome
  • Empresa
  • Última, nome (empresa)
  • Empresa (Apelido, nome)

A estrutura do formulário personalizado

  1. No menu ficheiro , aponte para Novo e, em seguida, clique em Mensagem de correio para abrir uma nova mensagem de correio electrónico.
  2. No menu Ferramentas da nova mensagem de correio electrónico, aponte para formulários e, em seguida, clique em Estruturar este formulário .
  3. Inserir cinco botões de comando no novo formulário. Para efectuar este procedimento:
    1. Clique no separador (P.2) para ir para uma página em branco no formulário.
    2. No menu forma , clique em Caixa de ferramentas dos controlos , clique em CommandButton e arraste o botão para a página de formulário em branco.
    3. Clique com o novo botão direito do rato, clique em Propriedades e, em seguida, escreva cmdLastFirst na caixa nome .
    4. Na caixa da legenda , escreva o Apelido, nome e, em seguida, clique em OK .
    5. Na caixa de diálogo caixa de ferramentas , clique 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 rato, clique em Propriedades e, em seguida, escreva cmdFirstLast na caixa nome .
    7. Na caixa da legenda , escreva o Nome apelido e, em seguida, clique em OK .
    8. Na caixa de diálogo caixa de ferramentas , clique 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 rato, clique em Propriedades e, em seguida, escreva cmdCompany na caixa nome .
    10. Na caixa da legenda , escreva da empresa e, em seguida, clique em OK .
    11. Na caixa de diálogo caixa de ferramentas , clique em CommandButton e, em seguida, arrastar um quarto botão para a página de formulário em branco.
    12. Clique com o novo botão direito do rato, clique em Propriedades e, em seguida, escreva cmdLastFirstCompany na caixa nome .
    13. Na caixa da legenda , escreva o Apelido, nome (empresa) e, em seguida, clique em OK .
    14. Na caixa de diálogo caixa de ferramentas , clique em CommandButton e, em seguida, arrastar um quinto botão para a página de formulário em branco.
    15. Clique com o novo botão direito do rato, clique em Propriedades e, em seguida, escreva cmdCompanyLastFirst na caixa nome .
    16. Na caixa da legenda , escreva da empresa (Apelido, nome) e, em seguida, clique em OK .
  4. Escreva o seguinte código de Visual Basic Scripting Edition (VBScript). Para efectuar este procedimento:
    1. No menu forma , clique em Ver código para abrir o Editor de scripts.
    2. No Editor de scripts, escreva 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 ficheiro no Editor de scripts, clique em Fechar para regressar ao formulário.
    4. Clique na mensagem de página do formulário.
    5. No menu forma , clique em Mostrar esta página . Isto oculta a página de formulário para que não aparece quando o formulário é utilizado.
  5. Publicar o formulário. Para efectuar este procedimento:
    1. No menu Ferramentas , aponte para formulários e, em seguida, clique em Publicar o formulário como .
    2. Certifique-se que junto ao botão Procurar na consulte Biblioteca de formulários pessoais .
    3. Na caixa nome a apresentar , escreva um nome de discriptive para o novo formulário (tais como alterar o ficheiro como campos ) e, em seguida, clique em Publicar .
    4. Quando for pedido para guardar a definição de formulário com o item, clique em ' não '.
    5. Feche a mensagem sem o guardar.

Como utilizar o formulário personalizado

Para utilizar o novo formulário:
  1. Localize a pasta Contactos que pretende re-sequence.
  2. No menu ficheiro , aponte para Novo e, em seguida, clique em Escolher formulário .
  3. Altere a caixa Procurar em para Biblioteca de formulários pessoais , faça clique sobre o novo formulário e, em seguida, clique em OK .
  4. Clique no botão apropriado para actualizar o campo Arquivar como .

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:
287530OL2002: Perguntas sobre formulários personalizados e soluções do Outlook

Propriedades

Artigo: 291144 - Última revisão: 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 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: 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