OL2000: Cómo actualizar mediante programación los nombres de compañías

IMPORTANTE: Este artículo ha sido traducido por un software de traducción automática de Microsoft (http://support.microsoft.com/gp/mtdetails) en lugar de un traductor humano. Microsoft le ofrece artículos traducidos por un traductor humano y artículos traducidos automáticamente para que tenga acceso en su propio idioma a todos los artículos de nuestra base de conocimientos (Knowledge Base). Sin embargo, los artículos traducidos automáticamente pueden contener errores en el vocabulario, la sintaxis o la gramática, como los que un extranjero podría cometer al hablar el idioma. Microsoft no se hace responsable de cualquier imprecisión, error o daño ocasionado por una mala traducción del contenido o como consecuencia de su utilización por nuestros clientes. Microsoft suele actualizar el software de traducción frecuentemente.

239711
Este artículo se ha archivado. Se ofrece "tal cual" y no se volverá a actualizar.
Resumen
En este artículo se explica cómo se puede utilizar Visual Basic para Aplicaciones de Outlook para cambiar el nombre de compañía de muchos contactos sin tener que abrir manualmente cada contacto. Esta solución es útil si una compañía cambia de nombre y se tienen muchos contactos de esa compañía.
Más información
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 propósito determinado. En este artículo se supone que está familiarizado con el lenguaje de programación que se muestra y las herramientas utilizadas 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 ni crearán procedimientos a necesidades específicas.
Si tiene poca experiencia en programación, desea póngase en contacto con un Microsoft Certified Partner o servicios de consultoría de Microsoft. Para obtener más información, visite estos sitios Web de Microsoft:

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

Servicios de asesoramiento de Microsoft - http://support.microsoft.com/gp/advisoryservice

Para obtener más información acerca de las opciones de soporte técnico que están disponibles y cómo ponerse en contacto con Microsoft, visite el siguiente sitio Web de Microsoft: http://support.microsoft.com/default.aspx?scid=fh;EN-US;CNTACTMS
Para crear la macro de Visual Basic para Aplicaciones, siga estos pasos:
  1. En el menú Herramientas , elija macro y, a continuación, haga clic en macros .
  2. En el cuadro Nombre de macro , escriba CambiarNombreDeCompañía (sin espacios) y, a continuación, haga clic en crear . Con esto se inicia el Editor de Visual Basic y se crea una subrutina.
  3. Escriba las siguientes líneas de código para que el procedimiento de Visual Basic para aplicaciones aparezca como sigue:
    Sub ChangeCompanyName()   Dim objContactsFolder As Outlook.MAPIFolder   Dim objContacts As Outlook.Items   Dim strOldCo As String   Dim strNewCo As String   Dim objContact As Object   Dim iCount As Integer   ' Specify which contact folder to work with   Set objContactsFolder = Session.GetDefaultFolder(olFolderContacts)   Set objContacts = objContactsFolder.Items   ' Prompt for old and new company names   strOldCo = InputBox("Enter the old company name.")   strNewCo = InputBox("Enter the new company name.")   iCount = 0   ' Process the changes   For Each objContact In objContacts      If TypeName(objContact) = "ContactItem" Then         If objContact.CompanyName = strOldCo Then            objContact.CompanyName = strNewCo            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. En el menú archivo , haga clic en Cerrar y volver a Microsoft Outlook .
Para utilizar la macro, siga estos pasos:
  1. En el menú Herramientas , elija macro y, a continuación, haga clic en macros .
  2. Haga clic en la macro CambiarNombreDeCompañía y, a continuación, haga clic en Ejecutar .
  3. Espere hasta que aparezca una ventana que indica cuántos contactos se han actualizado.
A continuación, hay algunas notas adicionales que debe considerar:
  • Puede tomar un tiempo procesar los elementos de la carpeta. Mientras ocurre, el puntero del mouse (ratón) no cambia a un reloj de arena que indica que se está ejecutando una macro en Outlook. El modelo de objetos de Outlook no admite que cambie el puntero del mouse (ratón) de este modo.
  • Puede asignar la macro a un botón de la barra de herramientas si utiliza esta funcionalidad con frecuencia. Para ello, haga clic en Ver , elija barras de herramientas y, a continuación, haga clic en Personalizar . Cambie las categorías en las macros y a continuación, arrastre la macro de la barra de herramientas. Para obtener más información acerca de cómo personalizar las barras de herramientas, consulte la Ayuda en línea.
  • El código anterior sólo funciona con la carpeta Contactos predeterminada. Si desea que funcione con cualquier carpeta de contactos que seleccionó, cambie la línea siguiente:
    Set objContactsFolder = Session.GetDefaultFolder(olFolderContacts)					
    a:
    Set objContactsFolder = Outlook.ActiveExplorer.CurrentFolder					
    si está familiarizado con programación y desea utilizar una carpeta de contactos específicos en una ubicación diferente, vea el artículo siguiente en Microsoft Knowledge Base para obtener información acerca de cómo conseguirlo:
    208520 OL2000: ejemplos de programación para hacer referencia a elementos y carpetas
Referencias
Para obtener más información acerca de los recursos disponibles y respuestas a las preguntas más frecuentes acerca de las soluciones de Microsoft Outlook 2000, consulte el siguiente artículo en Microsoft Knowledge Base:
146636 OL2000: preguntas acerca de los formularios personalizados y las soluciones de Outlook
OutSol OutSol2000 vbscript

Advertencia: este artículo se ha traducido automáticamente

Propiedades

Id. de artículo: 239711 - Última revisión: 02/03/2014 02:04:32 - Revisión: 3.2

  • Microsoft Outlook 2000 Standard
  • kbnosurvey kbarchive kbmt kbhowto kbprogramming KB239711 KbMtes
Comentarios