| Home  | Casa  | Hardware  | Networking  | Programmazione  | Software  | Domanda  | Sistemi  |   
Programmazione  
  • C /C + + Programming

  • Computer Programming Languages

  • Delphi Programming

  • Java Programming

  • Programmazione Javascript

  • PHP /MySQL Programmazione

  • Perl Programming

  • Python Programming

  • rubino Programmazione

  • Nozioni di base di Visual Programming
  •  
    Conoscenza Informatica >> Programmazione >> Computer Programming Languages >> Content
    Come aggiornare contatti di Outlook con VBS
    Visual Basic o Visual Basic è un linguaggio di programmazione che può essere utilizzato per controllare i processi in Outlook . Una lista di contatti di Outlook può essere aggiornato automaticamente utilizzando uno script VB . Cose che ti serviranno
    Visual Basic Editor
    Show More Istruzioni
    1

    Aprire un editor di Visual Basic .
    2

    Avviare un nuovo progetto . in VB e aggiungere il seguente codice
    3

    Creare un nuovo sottoprogramma e aggiungere le variabili per la memorizzazione dei dati :

    Sub addtoOutlook ( ) per

    dim olkApp As Object dim

    olkFldr As Object dim

    olkContact As Object dim

    myContactList come oggetto

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

    Dim cel come gamma
    4

    un'istanza dell'oggetto di Outlook in Visual Basic :

    olkApp = CreateObject ( " outlook . applicazione " ) economici 5

    Ricevi tutti i contatti da Outlook e li memorizza in una variabile :

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

    il ciclo di tutti i contatti presenti nella lista che avete esportato " myContactList . " Se trova il nome delle persone , essa sovrascriverà tutti e tre i campi con i dati della vostra lista. Se non lo fa , allora si creerà una nuova voce e compilare gli stessi tre campi .

    Per ogni cella myContactList

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

    olkContact = Nothing Set

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

    On Error GoTo 0

    olkContact è niente allora

    olkContact = olkFldr.items.Add ( olContactItem ) per

    End If

    olkContact
    < p > . cognome = cel

    . Nome = cel.Offset ( 0 , 1 ) per

    . MobileTelephoneNumber cel.Offset = ( 0 , 2 ) per

    . Salva < br

    End > con

    End If

    Avanti

    End Sub

    Il tuo elenco di contatti di Outlook viene ora aggiornato con le informazioni più contatto dalla elenco .

    Previous :

    next :
      Articoli Correlati
    ·MS Access 97 Tutorials 
    ·Come fornire le credenziali di un proxy Web con C # 
    ·Come faccio a modificare la password utilizzando un pro…
    ·PHP Array Sort Funzione 
    ·Come creare un file SWF per chiudere 
    ·Come ottenere la lunghezza di un record in COBOL 
    ·Differenze di Perl e PHP 
    ·Come allegare documenti con LotusScript 
    ·Come fare uno storyboard per il Design System 
    ·Le tecniche di Semantic descrizione 
      Articoli in evidenza
    ·Come leggere i file Hex in C + + 
    ·Come utilizzare Microsoft XNA 
    ·Elenco delle funzioni di Visual Basic 6.0 
    ·Come controllare il driver ODBC in VBA 
    ·Come fare un gioco Cliccando Con Visual Basic 
    ·Come convertire Classi di stringa in PHP 
    ·Come per inizializzare i parametri di ingresso nelle Pr…
    ·MySQL Mailing List Tutorial 
    ·Come scrivere codice VB per una tastiera touch screen 
    ·Come convertire un elenco in un array in Python 
    Copyright © Conoscenza Informatica http://it.wingwit.com