Kontakte in Outlook updaten (Frage an Ramses)
12.10.2005 09:37:33
Matthias_FFM
Deine folgende Programmierung zum Exportieren der Kontakte nach Outlook funktioniert super:
Sub Send_Contact_List()
Dim qWks As Worksheet, i As Integer
Dim MyOutApp As Object, MyOutCon As Object
'Wo stehen die Kontaktdaten
Set qWks = Worksheets("Tabelle2")
'Outlook Objekt erstellen
Set MyOutApp = CreateObject("Outlook.Application")
'Mit "With" wird auf das Tabellenobjekt referenziert
With qWks
'Zählschleife starten
'Dazu wird der letzten Eintrag in Spalte A bestimmt
'Der Adressenbereich beginn in Zeile 2
'deshalb startet auch die Zählschleife dort
For i = 2 To Range("A65536").End(xlUp).Row
'Outlook Kontaktobject erstellen
Set MyOutCon = MyOutApp.CreateItem(2)
'Eine vollständige Liste der möglichen Felder
'finden Sie in der Outlook-VBA-Hilfe
With MyOutCon
.LastName = Cells(i, 1).Value
.FirstName = Cells(i, 1).Offset(0, 1).Value
.BusinessAddressStreet = Cells(i, 1).Offset(0, 2).Value
.BusinessAddressPostalCode = Cells(i, 1).Offset(0, 3).Value
.BusinessAddressCity = Cells(i, 1).Offset(0, 4).Value
.BusinessAddressCountry = Cells(i, 1).Offset(0, 5).Value
.BusinessAddressState = Cells(i, 1).Offset(0, 6).Value
.Email1Address = Cells(i, 1).Offset(0, 7).Value
.Save
End With
'Object entfernen
Set MyOutCon = Nothing
Next i
End With
Set MyOutApp = Nothing
End Sub
Meine Frage: Bestehende Kontakte sollen nicht ein zweites Mal in Outlook angelegt werden (wenn vorhanden, Abgleich z. B. voller Name), sondern upgedated werden.
Kann dieser Abgleich in Outlook stattfinden oder sollten besser die Kontakte nach Excel exportieren und dort vergleichen werden?
Was wäre Dein Vorschlag?
Vielen Dank für Deine Antwort.....
Matthias