Outlook Calendar Information
Visual Basic
1
Posts
1
Posters
0
Views
1
Watching
-
I have seen a few posts about getting outlook's calendar information aka appointment items. Here is a quick way of getting the information Imports Microsoft.Office.Core Imports Outlook Function Test() Dim myOlApp = CreateObject("Outlook.Application") Dim myNameSpace = myOlApp.GetNameSpace("MAPI") Dim myCalendar = myNameSpace.GetDefaultFolder(OlDefaultFolders.olFolderCalendar) Dim myItems = myCalendar.Items Dim apptItem As AppointmentItem For Each apptItem In myItems If apptItem.Start >= Date.Today Then Debug.WriteLine(apptItem.Subject & " : " & apptItem.Start) End If Next End Function