Visual Basic oder VB ist eine Programmiersprache, die verwendet werden, um Prozesse in Outlook gesteuert werden kann . Eine Liste Ihrer Outlook-Kontakte können automatisch über ein VB-Skript aktualisiert werden. Dinge, die Sie Visual Basic -Editor
brauchen anzeigen Weitere Anweisungen
1
Öffnen Sie eine Visual Basic -Editor.
2
Starten Sie ein neues Projekt . in VB und fügen Sie den folgenden Code
3
neues Unterprogramm und fügen Sie die Variablen für die Speicherung der Daten:
Sub addtoOutlook ()
Dim olkApp As Object Dim
olkFldr As Object Dim
olkContact As Object Dim
myContactList als Objekt
Const olFolderContacts As Integer = 10
< p> Const olContactItem As Integer = 2
Dim cel As Range
4
das Outlook-Objektmodell in Visual Basic Instanziieren :
Set olkApp = CreateObject (" Ausblick. Anwendung " )
5
Holen Sie sich alle Kontakte aus Outlook und speichern sie in einer Variablen :
Set olkFldr = olkApp.Session.GetDefaultFolder ( olFolderContacts )
6
Schleife durch alle Kontakte in der Liste, die Sie exportiert haben " myContactList . " Wenn es den Namen der Person findet, wird er alle drei Felder mit den Daten aus Ihrer Liste zu überschreiben. Wenn dies nicht der Fall , dann wird es einen neuen Eintrag erstellen , und füllen Sie die gleichen drei Felder .
For Each Zelle In myContactList
Wenn cel < > "" Then
< p > On Error Resume Next Set
olkContact = Nothing Set
olkContact = olkFldr.items ( cel.Offset (0, 1 ) & "" & cel )
On Error GoTo 0
Wenn olkContact Is Nothing Dann
Set olkContact = olkFldr.items.Add ( olContactItem )
End If
olkContact
< p> . Nachname = cel
. Vorname = cel.Offset (0, 1) german
. MobileTelephoneNumber = cel.Offset (0, 2)
. Speichern
End With
End If Next
End Sub
