Nwlapcug.com


Come aggiornare i contatti di Outlook con VBS

Come aggiornare i contatti di Outlook con VBS


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

Istruzioni

1

Aprire un editor di Visual Basic.

2

Avviare un nuovo progetto in Visual Basic e aggiungere il codice riportato di seguito.

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

Dim myContactList as Object

CONST olFolderContacts As Integer = 10

Const olContactItem As Integer = 2

Dim cel As Range

4

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

Set olkApp = CreateObject

5

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

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

Loop attraverso tutti i contatti nell'elenco avete esportato "myContactList." Se ne trova le persone nome, sovrascriverà tutti i tre campi con i dati dal tuo elenco. Se così non fosse allora creerà una nuova voce e compilare gli stessi campi di tre.

Per ogni cella In myContactList

If cel <> "" Then

On Error Resume Next

Set olkContact = Nothing

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

On Error GoTo 0

If olkContact Is Nothing Then

Set olkContact = olkFldr.items.Add(olContactItem)

End If

With olkContact

.lastname = cel

.firstname = cel.Offset(0, 1)

.MobileTelephoneNumber = cel.Offset(0, 2)

.Save

End With

End If

Next

End Sub

Elenco contatti di Outlook verrà ora essere aggiornato con le ultime informazioni di contatto dalla tua lista.