Gruppe
Extern
Problem
Einem Outlook-Mailkontakt soll eine Anmerkung hinzugefügt werden.
StandardModule: Modul1
Sub xl2ol()
Dim oOl As Outlook.Application
Dim oNsp As Outlook.NameSpace
Dim oFolder As Outlook.MAPIFolder
Dim oContact As Outlook.ContactItem
Set oOl = CreateObject("Outlook.Application")
Set oNsp = Outlook.GetNamespace("MAPI")
Set oFolder = oNsp.Folders("Persönliche Ordner").Folders("Kontakte")
Set oContact = oFolder.Items("Hans W. Herber")
oContact.Body = "Hallo"
oContact.Save
Set oContact = Nothing
Set oFolder = Nothing
Set oNsp = Nothing
Set oOl = Nothing
End Sub