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

Seleccione idioma Seleccione idioma
Id. de artículo: 239711 - Ver los productos a los que se aplica este artículo
Este artículo se ha archivado. Se ofrece "tal cual" y no se volverá a actualizar.
Expandir todo | Contraer todo

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 = Nothing
    
    End 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

Propiedades

Id. de artículo: 239711 - Última revisión: lunes, 3 de febrero de 2014 - Versión: 3.2
La información de este artículo se refiere a:
  • Microsoft Outlook 2000 Standard
Palabras clave: 
kbnosurvey kbarchive kbmt kbhowto kbprogramming KB239711 KbMtes
Traducción automática
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.
Haga clic aquí para ver el artículo original (en inglés): 239711

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