OL2002: Cómo cambiar el campo Archivar como para todos los contactos

Seleccione idioma Seleccione idioma
Id. de artículo: 291144 - Ver los productos a los que se aplica este artículo
Este artículo se publicó anteriormente con el número E291144
Expandir todo | Contraer todo

En esta página

Resumen

En este artículo se describe cómo utilizar un formulario personalizado de Outlook y Visual Basic Scripting Edition (VBScript) para cambiar mediante programación el campo Archivar como de un número elevado de contactos existentes.

Más información

IMPORTANTE: si cambia el formato del campo Archivar como mediante el formulario estándar de contacto de Outlook, éste se asegura de que el formato de este campo no afecte a otras áreas en las que se muestra este tipo de información (como en la parte superior del contacto cuando lo ve en la vista Tarjetas de visita). No obstante, este ejemplo sólo cambia el campo Archivar como propiamente dicho, pero no lleva a cabo la misma función que el formulario de contacto de Outlook. Microsoft le recomienda realizar una copia de la carpeta de contactos y, después, utilizar el código de ejemplo incluido a continuación en la carpeta que copió para estar seguro de que el uso de este código de ejemplo compensa cualquier posible inconveniente de este método.

NOTA: cuando cambie el campo Archivar como, el orden en el que aparecen los contactos en la Libreta de direcciones de Outlook no se verá afectado.

Microsoft proporciona ejemplos de programación con fines ilustrativos únicamente, sin ninguna garantía tanto expresa como implícita, incluyendo pero sin limitarse a, las garantías implícitas de comerciabilidad e idoneidad para un fin determinado. En este artículo se da por supuesto que ya conoce el lenguaje de programación que se demuestra y las herramientas empleadas para crear y depurar procedimientos. Los profesionales de soporte técnico de Microsoft pueden explicarle la funcionalidad de un determinado procedimiento, pero no modificarán estos ejemplos para ofrecer mayor funcionalidad o crear procedimientos adaptados a sus necesidades específicas. Si tiene poca experiencia en programación, quizá desee ponerse en contacto con un Microsoft Certified Partner o con la línea del servicio de consultoría que ofrece, mediante pago, dicho servicio llamando al Centro de Atención al Cliente de Microsoft en el número 902 197 198. Para obtener más información acerca de los Microsoft Certified Partners, consulte la siguiente página en el World Wide Web:
http://www.microsoft.com/spain/certifiedpartner/
Para obtener más información acerca de las opciones de soporte técnico de Microsoft, consulte la siguiente página en el World Wide Web:
http://www.microsoft.com/Spain/support/supportnet/default.htm
Cuando cree un formulario personalizado de Outlook, podrá cambiar el campo Archivar como de todos los contactos a cualquiera de los formatos siguientes:
  • Nombre Apellidos
  • Apellidos, Nombre
  • Compañía
  • Apellidos, Nombre (Compañía)
  • Compañía (Apellidos, Nombre)

Cómo diseñar un formulario personalizado

  1. En el menú Archivo, seleccione Nuevo y, después, haga clic en Mensaje para abrir un nuevo mensaje de correo electrónico.
  2. En el menú Herramientas del nuevo mensaje de correo electrónico, seleccione Formularios y, después, haga clic en Diseñar este formulario.
  3. Inserte cinco botones Comando en el nuevo formulario. Para ello:
    1. Haga clic en la ficha (P.2) para ir a una página en blanco del formulario.
    2. En el menú Formulario, haga clic en Cuadro de controles y en Botón de comando y, después, arrastre el botón hasta la página en blanco del formulario.
    3. Haga clic con el botón secundario del mouse (ratón) en el nuevo botón, haga clic en Propiedades y escriba cmdLastFirst en el cuadro Nombre.
    4. En el cuadro Título, escriba Apellidos, Nombre y, a continuación, haga clic en Aceptar.
    5. En el cuadro de diálogo Cuadro de controles, haga clic en Botón de comando y, después, arrastre un segundo botón hasta la página en blanco del formulario.
    6. Haga clic con el botón secundario del mouse (ratón) en el nuevo botón, haga clic en Propiedades y escriba cmdFirstLast en el cuadro Nombre.
    7. En el cuadro Título, escriba Nombre Apellidos y, a continuación, haga clic en Aceptar.
    8. En el cuadro de diálogo Cuadro de controles, haga clic en Botón de comando y, después, arrastre un tercer botón hasta la página en blanco del formulario.
    9. Haga clic con el botón secundario del mouse (ratón) en el nuevo botón, haga clic en Propiedades y escriba cmdCompany en el cuadro Nombre.
    10. En el cuadro Título, escriba Compañía y, a continuación, haga clic en Aceptar.
    11. En el cuadro de diálogo Cuadro de controles, haga clic en Botón de comando y, después, arrastre un cuarto botón hasta la página en blanco del formulario.
    12. Haga clic con el botón secundario del mouse (ratón) en el nuevo botón, haga clic en Propiedades y escriba cmdLastFirstCompany en el cuadro Nombre.
    13. En el cuadro Título, escriba Apellidos, Nombre (Compañía) y, a continuación, haga clic en Aceptar.
    14. En el cuadro de diálogo Cuadro de controles, haga clic en Botón de comando y, después, arrastre un quinto botón hasta la página en blanco del formulario.
    15. Haga clic con el botón secundario del mouse (ratón) en el nuevo botón, haga clic en Propiedades y escriba cmdCompanyLastFirst en el cuadro Nombre.
    16. En el cuadro Título, escriba Compañía (Apellidos, Nombre) y, a continuación, haga clic en Aceptar.
  4. Escriba el siguiente código de Visual Basic Scripting Edition (VBScript). Para ello:
    1. En el menú Formulario, haga clic en Ver código para abrir el Editor de secuencias de comandos.
    2. En el Editor de secuencias de comandos, escriba o copie el código siguiente:
       
      Option Explicit 
      Dim strSortBy
      
      Sub cmdLastFirst_Click() 
      strSortBy = "ApellidosNombre" 
      UpdateContacts 
      End Sub
      
      Sub cmdFirstLast_Click() 
      strSortBy = "NombreApellidos" 
      UpdateContacts 
      End Sub
      
      Sub cmdCompany_Click() 
      strSortBy = "Compañía" 
      UpdateContacts 
      End Sub
      
      Sub cmdLastFirstCompany_Click() 
      strSortBy = "Apellidos, Nombre (Compañía)" 
      UpdateContacts 
      End Sub
      
      Sub cmdCompanyLastFirst_Click() strSortBy = "Compañía (Apellidos, Nombre)" UpdateContacts End Sub
      
      Sub UpdateContacts()
      
       Dim CurFolder 
       Dim MyItems
       Dim MyItem
       Dim NumItems, i
      
       ' Utilizar la carpeta seleccionada
       Set CurFolder = Application.ActiveExplorer.CurrentFolder
      
       ' Asegurarse de que es una carpeta de contactos 
      If CurFolder.DefaultItemType = 2 Then 
      MsgBox "Este proceso puede tardar un poco. Se le notificará " & _ 
      "cuando esté terminado.", , "Mensaje de herramientas de contactos" 
      Set MyItems = CurFolder.Items 
      NumItems = MyItems.Count 
      For i = 1 to NumItems
      Set MyItem = MyItems.Item(i) 
      ' Asegurarse de que no hay una lista de distribución en la carpeta 
      ' (realmente, sólo se aplica a OL98 y OL2000)
      If TypeName(MyItem) = "Contacto" Then 
      Select Case strSortBy 
      Case "Apellidos, Nombre"
        If MyItem.LastNameandFirstName <> "" Then
        MyItem.FileAs = MyItem.LastNameandFirstName
        Else
        MyItem.FileAs = MyItem.CompanyName
        End IF
       Case "Nombre Apellidos"
        If MyItem.Subject <> "" Then
        MyItem.FileAs = MyItem.Subject
        Else
        MyItem.FileAs = MyItem.CompanyName
        End IF Case "Compañía"
        If MyItem.CompanyName <> "" Then
        MyItem.FileAs = MyItem.CompanyName
        Else  MyItem.FileAs = MyItem.LastNameandFirstName
        End IF
       Case "Apellidos, Nombre (Compañía)"
        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 "Compañía (Apellidos, Nombre)"
        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 "Actualización de contactos finalizada."
       Else
       MsgBox "La carpeta actual debe ser una carpeta de contactos."
       End If
        ' comprobar la carpeta de contactos
      
       Set MyItem = Nothing
       Set MyItems = Nothing
       Set CurFolder = Nothing
      
      End Sub
    3. En el menú Archivo del Editor de secuencias de comandos, haga clic en Cerrar para volver al formulario.
    4. Haga clic en la página Mensaje del formulario.
    5. En el menú Formulario, haga clic en Mostrar esta página. Esto ocultará la página del formulario para que no aparezca cuando se utilice el formulario.
  5. Publique el formulario. Para ello:
    1. En el menú Herramientas, seleccione Formularios y haga clic en Publicar formulario como.
    2. Compruebe que junto al botón Buscar en puede ver Biblioteca de formularios personales.
    3. En el cuadro Nombre para mostrar, escriba un nombre que describa el nuevo formulario (por ejemplo, Cambiar los campos Archivar como) y, después, haga clic en Publicar.
    4. Cuando se le pregunte si desea guardar la definición de formulario con el elemento, haga clic en No.
    5. Cierre el mensaje sin guardarla.

Cómo utilizar el formulario personalizado

Para utilizar el nuevo formulario:
  1. Busque la carpeta Contactos cuyo orden desea cambiar.
  2. En el menú Archivo, seleccione Nuevo y haga clic en Elegir formulario.
  3. Establezca el cuadro Buscar en como Biblioteca de formularios personales, haga clic en su nuevo formulario y, a continuación, haga clic en Aceptar.
  4. Haga clic en el botón apropiado para actualizar el campo Archivar como.

Referencias

Para obtener información adicional acerca de los recursos disponibles y respuestas a las preguntas más frecuentes acerca de las soluciones para Microsoft Outlook, haga clic en el número del artículo siguiente para verlo en Microsoft Knowledge Base:
287530 OL2002: Preguntas acerca de los formularios personalizados y las soluciones de Outlook

Propiedades

Id. de artículo: 291144 - Última revisión: martes, 24 de abril de 2001 - Versión: 1.0
La información de este artículo se refiere a:
  • Microsoft Outlook 2002 Standard
Palabras clave: 
kbhowto KB291144

Enviar comentarios

 

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