Microsoft Excel

Excel und VBA: Formeln, Programmierung, Lösungen

Die Excel/VBA-Beispiele

Thema

Einem Outlook-Mailkontakt eine Anmerkung hinzufügen

Gruppe

Outlook

Problem

Einem Outlook-Mailkontakt soll eine Anmerkung hinzugefügt werden.

Lösung
Geben Sie den nachfolgenden Code in ein Standardmodul ein und weisen Sie ihn einer Schaltfläche zu.

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