'Benötigt den Verweis auf Microsoft Outlook Object Library
Sub Beispiel()
Dim objOutlook As Outlook.Application
Dim objNameSpace As Namespace
Dim objMapiFolder As MAPIFolder
Dim objItems As ContactItem
Set objOutlook = New Outlook.Application
Set objNameSpace = objOutlook.GetNamespace("MAPI")
Set objMapiFolder = objNameSpace.GetDefaultFolder(olFolderContacts)
For Each objItems In objMapiFolder.Items
'FirstName = Vorname
'LastName = Nachname
'Suche Eintrag mit diesem Vornamen
If objItems.FirstName = "Kay" Then
'Notiz ändern
objItems.Body = "Ich bin täglich im Internet bei Herbers Excel-Forum"
'Notiz speichern
objItems.Save
Exit For
End If
Next objItems
Set objNameSpace = Nothing
Set objNameSpace = Nothing
Set objMapiFolder = Nothing
Set objItems = Nothing
End Sub
Sub Beispiel()
Dim objOutlook As Object
Dim objNameSpace As Object
Dim objMapiFolder As Object
Dim objItems As Object
Set objOutlook = CreateObject("Outlook.Application")
Set objNameSpace = objOutlook.GetNamespace("MAPI")
Set objMapiFolder = objNameSpace.GetDefaultFolder(10)
For Each objItems In objMapiFolder.Items
'FirstName = Vorname
'LastName = Nachname
'Suche Eintrag mit diesem Vornamen
If objItems.FirstName = "excel" Then
'Notiz ändern
objItems.Body = "Ich bin täglich im Internet bei Herbers Excel-Forum"
'Notiz speichern
objItems.Save
Exit For
End If
Next objItems
Set objNameSpace = Nothing: Set objNameSpace = Nothing
Set objMapiFolder = Nothing: Set objItems = Nothing
End Sub