Gruppe
Extern
Problem
Im Outlook-Kalender soll unter erstem Eintrag zu dem in Zelle genannten Datum der in Zelle B2 genannte Kommentar eingetragen werden.
StandardModule: Modul1
Sub SetOLComment()
Dim olApp As Outlook.Application
Dim olNS As Outlook.NameSpace
Dim olAI As Outlook.AppointmentItem
Dim olFolder As Outlook.MAPIFolder
Set olApp = New Outlook.Application
Set olNS = olApp.GetNamespace("MAPI")
Set olFolder = olNS.GetDefaultFolder(olFolderCalendar)
For Each olAI In olFolder.Items
If Format(olAI.Start, "dd.mm.yyyy") = Format(Range("B1").Value, "dd.mm.yyyy") Then
olAI.Body = Range("B2").Value
olAI.Save
End If
Next olAI
Set olAI = Nothing
Set olNS = Nothing
Set olApp = Nothing
End Sub