Microsoft Excel

Excel und VBA: Formeln, Programmierung, Lösungen

Die Excel/VBA-Beispiele

Thema

Kommentar in Outlook-Kalender eintragen

Gruppe

Outlook

Problem

Im Outlook-Kalender soll unter erstem Eintrag zu dem in Zelle genannten Datum der in Zelle B2 genannte Kommentar eingetragen werden.

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

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