VBA-Programmierung in Microsoft Excel

Tutorial: Excel-Beispiele

Kommentar in Outlook-Kalender eintragen

Gruppe

Extern

Bereich

Outlook

Thema

Kommentar in Outlook-Kalender eintragen

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

    


Beiträge aus dem Excel-Forum zu den Themen Extern und Outlook