'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
Um das Notizfeld eines Outlook-Kontakts zu bearbeiten, kannst du VBA verwenden. Hier ist eine einfache Schritt-für-Schritt-Anleitung:
Öffne den VBA-Editor in Outlook:
ALT + F11.Füge ein neues Modul hinzu:
Einfügen > Modul.Kopiere und füge den folgenden Code ein:
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
If objItems.FirstName = "Kay" Then
objItems.Body = "Ich bin täglich im Internet bei Herbers Excel-Forum"
objItems.Save
Exit For
End If
Next objItems
Set objNameSpace = Nothing
Set objMapiFolder = Nothing
Set objItems = Nothing
End SubÄndere den Vornamen in der If-Bedingung, um den gewünschten Kontakt zu finden.
Führe das Skript aus, um die Notiz zu speichern.
Fehler: "Objekt nicht gefunden"
Fehler: "Der Verweis auf Microsoft Outlook Object Library fehlt"
Extras > Verweise und aktiviere den Verweis auf die Microsoft Outlook Object Library.Probleme beim Speichern von Notizen
Eine alternative Methode, um Notizen für Outlook-Kontakte zu verwalten, ist die Verwendung von Microsoft Power Automate. Du kannst Flows erstellen, die Notizen automatisch hinzufügen oder aktualisieren, wenn sich bestimmte Bedingungen erfüllen.
Beispiel 1: Notiz für einen Kontakt hinzufügen
Beispiel 2: Alle Kontakte mit einer bestimmten Notiz durchsuchen
For Each objItems In objMapiFolder.Items
If InStr(objItems.Body, "Herbers Excel-Forum") > 0 Then
Debug.Print objItems.FullName
End If
Next objItemsVerwende die nachnamensuche: Du kannst die Suche nach Nachnamen implementieren, um spezifische Kontakte schneller zu finden. Ändere die Bedingung im Code entsprechend.
Verwalte outlook duplikate entfernen: Nutze VBA, um Duplikate in deinen Kontakten zu finden und zu entfernen, indem du die FirstName und LastName Felder vergleichst.
Notizen anzeigen: Wenn du die outlook notizen anzeigen möchtest, kannst du den Body-Inhalt in einer MsgBox ausgeben:
MsgBox objItems.Body1. Wie ändere ich das Notizfeld für mehrere Kontakte gleichzeitig? Du kannst eine Schleife verwenden, um das Notizfeld für jeden Kontakt zu ändern, indem du die Bedingungen anpasst.
2. Gibt es eine Möglichkeit, Notizen in Outlook zu filtern? Ja, du kannst die Suchfunktion in Outlook verwenden, um Kontakte basierend auf Notizen zu filtern, oder VBA nutzen, um spezifische Kriterien anzuwenden.
3. Ist der VBA-Code in allen Outlook-Versionen gleich? Der bereitgestellte Code funktioniert unter Outlook 2003 und 2007. Neuere Versionen können ebenfalls verwendet werden, jedoch kann es Unterschiede in der Benutzeroberfläche geben.
Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden
Suche nach den besten AntwortenEntdecke unsere meistgeklickten Beiträge in der Google Suche
Top 100 Threads jetzt ansehen