Come aggiornare i contatti di Outlook con VBS

May 6

Come aggiornare i contatti di Outlook con VBS


Visual Basic o VB è un linguaggio di programmazione che può essere utilizzato per controllare processi in Outlook. Un elenco di contatti di Outlook può essere aggiornato automaticamente utilizzando uno script VB.

istruzione

1 Aprire un editor di Visual Basic.

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

3 Creare una nuova subroutine e aggiungere le variabili per memorizzare i dati:

Sub addtoOutlook ()

Dim olkApp As Object

Dim olkFldr As Object

Dim olkContact As Object

myContactList Dim come oggetto

olFolderContacts Const As Integer = 10

Const olContactItem As Integer = 2

cel fioco come Gamma

4 Un'istanza dell'oggetto di Outlook in Visual Basic:

Set olkApp = CreateObject ( "Outlook.Application")

5 Ottenere tutti i contatti da Outlook e memorizzarli in una variabile:

Set olkFldr = olkApp.Session.GetDefaultFolder(olFolderContacts)

6 Il ciclo di tutti i contatti nell'elenco aver esportato "myContactList." Se trova il nome di persone, si sovrascrive tutti e tre i campi con i dati del tuo elenco. Se non, allora si creerà una nuova voce e popolare gli stessi tre campi.

Per ogni cella myContactList

If cel <> "" Then

On Error Resume Next

Set olkContact = Nothing

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

On Error GoTo 0

Se olkContact è niente allora

Set olkContact = olkFldr.items.Add (olContactItem)

Finisci se

con olkContact

.lastName = cel

.firstname = cel.Offset (0, 1)

.MobileTelephoneNumber = Cel.Offset (0, 2)

.Salvare

End With

Finisci se

Il prossimo

End Sub

Il tuo elenco di contatti di Outlook sarà ora aggiornato con le ultime informazioni contatto dall'elenco.