| Casa | Hardware | Redes | Programación | software | Criticar | Sistemas |   
Programación  
  • C /C + + Programming

  • Lenguajes De Programación

  • Delphi Programación

  • Programación Java

  • JavaScript Programación

  • Programación PHP /MySQL

  • Perl Programming

  • Python Programming

  • Rubí Programación

  • Visual Basics Programación
  •  
    Conocimientos Informáticos >> Programación >> Lenguajes De Programación >> Content
    Cómo actualizar los contactos de Outlook con VBS
    Visual Basic o Visual Basic es un lenguaje de programación que se puede utilizar para controlar los procesos en Outlook. Una lista de los contactos de Outlook se puede actualizar de forma automática mediante el uso de una secuencia de comandos VB . Cosas que necesitará
    editor de Visual Basic
    Mostrar más instrucciones
    1

    Abra un editor de Visual Basic .
    2

    Inicie un nuevo proyecto . en VB y agregue el código siguiente
    3

    Crear un nuevo subprograma y añadir las variables para almacenar los datos :

    Sub addtoOutlook ()

    Dim olkApp As Object

    olkFldr Dim As Object

    olkContact Dim As Object

    myContactList Dim como objeto

    olFolderContacts Const As Integer = 10
    < p> Const olContactItem As Integer = 2

    cel As Range
    4

    una instancia del objeto de Outlook en Visual Basic :

    Set olkApp = CreateObject ( " outlook. aplicación " )
    5

    Obtén todos los contactos de Outlook y los almacena en una variable :

    Set olkFldr = olkApp.Session.GetDefaultFolder ( olFolderContacts )
    6

    bucle a través de todos los contactos en la lista que ha exportado " myContactList . " Si encuentra el nombre de la persona , que se sobreponen a los tres campos con los datos de su lista. Si no lo hace , entonces se creará una nueva entrada y rellenar los mismos tres campos.

    Para cada celda myContactList

    Si cel < > "" Entonces
    < p > On Error Resume Next

    olkContact Set = Nothing

    Set olkContact = olkFldr.items ( cel.Offset ( 0 , 1 ) & " " & cel )

    On Error GoTo 0

    Si olkContact es nada entonces

    Set olkContact = olkFldr.items.Add ( olContactItem )

    End If

    olkContact
    < p> . apellido = cel

    . nombre = cel.Offset ( 0 , 1) spanish

    . MobileTelephoneNumber cel.Offset = ( 0 , 2 )

    . Guardar < br >

    extremo con

    End If

    Siguiente

    End Sub

    tu lista de contactos de Outlook ahora será actualizado con la última información de contacto de su lista.

    Previous :

    next :
      Artículos relacionados
    ·Problemas con la instalación de Service Pack 3 
    ·Cómo personalizar gVim para HTML Codificación 
    ·Aplicación Estrategias de Desarrollo Prototipos 
    ·Cómo cambiar PLC Programación 
    ·Cómo Código de XSPF 
    ·¿Cómo accedo a mi VAR privado 
    ·Cómo hacer un diagrama de secuencia UML 
    ·Cómo desmontar Hex 
    ·Cómo almacenar datos de BASIC Stamp 
    ·Cómo utilizar una sentencia case en ASP.Net 
      Artículos destacados
    ·Cómo convertir de Perl a Python y appengine 
    ·Cómo tomar la entrada en Java utilizando un escáner 
    ·Introducción a las técnicas de clasificación en Bioi…
    ·Cómo hacer una animación de Java para funcionar más …
    ·Cómo redirigir una página Web en Javascript 
    ·Cómo acceder a controles ActiveX 
    ·Cómo usar una etiqueta de objeto para incrustar un app…
    ·¿Por qué una cadena inmutable calcular su hash Valor 
    ·Cómo actualizar el plan de pruebas 
    ·Usos de Prolog 
    Copyright © Conocimientos Informáticos http://ordenador.wingwit.com