VBA で Outlook 予定表から日報メールを作成する – Tk2 と kpdn の廻る日常Public Sub CreateDailyMail() Dim l_calendar As Outlook.Folder Set l_calendar = Application.Session.GetDefaultFolder(Outlook.OlDefaultFolders.olFolderCalendar) Dim l_appointments As Outlook.Items Set l_appointments = l_calendar.Items Set l_appointments = l_appointments.Restrict( _ "(([Start] = '2015/12/24 0:00') And ([AllDayEvent] = True)) Or " & _ "(([Start] <= '2015/12/24 0:00') And ([End] < '201
