| maison  | Hardware  | réseaux  | programmation  | Logiciel  | Dépannage  | systèmes |  
programmation  
  • C /C + + Programming

  • Computer Programming Languages

  • Delphi Programming

  • Programmation Java

  • Programmation JavaScript

  • PHP /MySQL Programmation

  • programmation Perl

  • Programmation Python

  • Ruby Programming

  • Visual Basics programmation
  •  
    Connaissances Informatiques >> programmation >> Computer Programming Languages >> Content
    Comment mettre à jour les contacts Outlook avec VBS
    Visual Basic ou Visual Basic est un langage de programmation qui peut être utilisé pour contrôler les processus dans Outlook. Une liste de vos contacts Outlook peut être mise à jour automatiquement en utilisant un script VB . Choses que vous devez
    Visual Basic éditeur
    Afficher plus Instructions
    1

    Ouvrez un éditeur Visual Basic.
    2

    Démarrer un nouveau projet . dans VB et ajoutez le code suivant
    3

    Créer une nouvelle routine et ajouter des variables pour stocker les données :

    Sous addtoOutlook ()

    Dim olkApp As Object

    olkFldr As Object

    olkContact As Object

    myContactList As Object

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

    cel As Range
    4

    instancier l'objet Outlook dans Visual Basic:

    Set olkApp = CreateObject (" perspectives . demande " )
    5

    Obtenez tous les contacts d'Outlook et de les stocker dans une variable :

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

    boucle à travers tous les contacts dans la liste que vous avez exporté " myContactList . " S'il trouve le nom des personnes , il remplacera les trois champs avec les données de votre liste. Si ce n'est pas alors il va créer une nouvelle entrée et remplir les trois mêmes champs.

    Pour chaque cellule myContactList

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

    Set olkContact = Nothing Set

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

    On Error GoTo 0

    Si olkContact n'est rien Puis

    Set olkContact = olkFldr.items.Add ( olContactItem )

    End If

    olkContact
    < p> . lastname = cel

    . Prénom = cel.Offset (0, 1 )

    . mobileTelephoneNumber = cel.Offset ( 0, 2)

    . Enregistrer < br >

    End With

    End If

    Suivant

    End Sub

    votre liste de contact Outlook sera maintenant mis à jour avec les informations de contact des dernières nouvelles de votre liste.

    Previous :

    next :
      articles connexes
    ·Comment supprimer toutes les transitions sur VideoStudi…
    ·Comment modifier le texte qui apparaît lorsque vous dé…
    ·Qu'est-ce qu'une instruction conditionnelle 
    ·Comment faire une zone de texte dans XNA 
    ·Comment pirater 
    ·Comment charger les articles PowerPoint dans Joomla 
    ·Comment obtenir Souris X & Y en ActionScript 3 
    ·Comment faire pour supprimer les caractères accentués…
    ·Comment trouver un Coder 
    ·Règles pour Paper Punch Encoding 
      articles en vedette
    ·Comment faire pour vérifier la disponibilité de l'imp…
    ·Comment faire pour installer Java Script sur ​​un PC 
    ·Tutoriel sur Android OpenGL 
    ·Comment faire pour convertir Int32 en C + + 
    ·Comment activer les applets Java 
    ·Comment utiliser des décimales dans Visual Basic 
    ·Comment créer une barre d'état de votre navigateur We…
    ·Comment lire un fichier XML avec PHP 4 Script 
    ·Les types de syntaxe dans SQL 
    ·Comment envoyer des pièces jointes en PHP 
    Copyright © Connaissances Informatiques http://fr.wingwit.com