Beispiel für die Kontakte
04.08.2009 16:41:12
Tino
Hallo,
danke erst mal dass Du Dir die Zeit genommen hast die Rückmeldungen zu geben.
Hier mal ein Beispiel für die Kontakte,
anhand des Nachnamen und Vornamen wird der entsprechende Kontakt gesucht.
Wird dieser gefunden, wird er bearbeitet sonst angelegt.
Ähnlich kannst Du es auch mit den Aufgaben oder Kalendereinträgen machen,
da würde ich zur Überprüfung den Betreff und die Start und Endzeit verwenden.
Sub Beispiel()
Dim objOutlook As Object, objNameSpace As Object
Dim objMapiFolder As Object, objItems As Object
Dim zaehler As Integer
Dim strNachname As String, strVorname As String
Dim booFind As Boolean
strNachname = "Mustermann"
strNachname = "Musterfamilie"
Set objOutlook = CreateObject("Outlook.Application")
Set objNameSpace = objOutlook.GetNamespace("MAPI")
Set objMapiFolder = objNameSpace.GetDefaultFolder(10)
Set objItems = objMapiFolder.Items
'Schleife durch alle Kontakte bis vor und Nachname übereinstimmen
For zaehler = 1 To objItems.Count
If (objItems(zaehler).LastName & objItems(zaehler).FirstName) = (strNachname & strVorname) Then
booFind = True
Exit For
End If
Next zaehler
If booFind Then
'hier berabeiten *************************
With objItems(zaehler)
.Email1Address = "Mustermann@Proviter.de"
.Body = "irgendeine Notiz"
.Save
End With
Else
'hier anlegen *************************
Set objItems = objMapiFolder.Items.Add
With objItems
.FirstName = strVorname
.LastName = strNachname
.Email1Address = "Mustermann@Proviter.de"
.Body = "irgendeine Notiz"
.Save
End With
End If
Set objNameSpace = Nothing
Set objNameSpace = Nothing
Set objMapiFolder = Nothing
Set objItems = Nothing
End Sub
Gruß Tino