Open een Visual Basic -editor . Kopen van 2

Start een nieuw project . in VB en voeg de volgende code
3

Maak een nieuwe subroutine en voeg de variabelen voor het opslaan van de gegevens :

Sub addtoOutlook
( ) op

Dim olkApp als Voorwerp

Dim olkFldr als Voorwerp

Dim olkContact als Voorwerp

Dim myContactList als Object

Const olFolderContacts As Integer = 10 &

Const olContactItem als Geheel =

Dim cel 2
als Range
4

instantiëren de Outlook- object in Visual Basic :

Set olkApp = CreateObject ( " outlook . toepassing " )
5

Krijg alle contactpersonen uit Outlook en bewaar ze in een variabele :

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

Loop door alle van de contacten in de lijst die u hebt geëxporteerd " myContactList . " Als het de personen die naam vindt , zal het alle drie velden te overschrijven met de gegevens van uw lijst . Als dit niet gebeurt dan zal een nieuw item te maken en bevolken dezelfde drie velden .

Voor elke cel in myContactList

Als cel < > " " Dan

On Error Resume Next

Set
olkContact = Nothing

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

On Error GoTo 0

Als olkContact dan niets is

Set
olkContact = olkFldr.items.Add ( olContactItem )

Eind
Als

Met olkContact

. achternaam cel

. voornaam = = cel.Offset ( 0 , 1 ) op Twitter

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

. Opslaan < br

End > met

End
Als

Volgende

End Sub

uw Outlook -contactpersonenlijst nu zal worden bijgewerkt met de meest recente contactgegevens van uw lijst.