Você está offline; aguardando reconexão

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

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
Este artigo foi arquivado. É oferecido "como está" e não será mais atualizado.
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 ExplicitDim strSortBySub cmdLastFirst_Click()   strSortBy = "LastFirst"   UpdateContactsEnd SubSub cmdFirstLast_Click()   strSortBy = "FirstLast"   UpdateContactsEnd SubSub cmdCompany_Click()   strSortBy = "Company"   UpdateContactsEnd SubSub cmdLastFirstCompany_Click()   strSortBy = "Last, First (Company)"   UpdateContactsEnd SubSub cmdCompanyLastFirst_Click()   strSortBy = "Company (Last, First)"   UpdateContactsEnd SubSub 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 = NothingEnd 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
OfficeKBHowTo OutSol OutSol2002

Propriedades

ID do Artigo: 291144 - Última Revisão: 12/06/2015 01:04:19 - Revisão: 2.4

Microsoft Outlook 2002 Standard Edition

  • kbnosurvey kbarchive kbmt kbhowto KB291144 KbMtpt
Comentários