vbscript - VBS 检查outlook 约会的参加者，并为那些没有回答的人发送电子邮件

Question

我正在尝试使 Outlook 自动化以查找我的约会并检查谁是未回答邀请的与会者。

我设法给自己发送了一封电子邮件，其中显示了我的议程，但我正在努力寻找用于检查参加者的设置......

有谁能给我指个方向吗？

提前致谢！

'Setup
Const myEmailAddress = "[e-mail]"
Const includePrivateDetails = True 
Const howManyDaysToDisplay = 5
Const olCalendarMailFormatDailySchedule = 0
Const olFreeBusyAndSubject = 2
Const olFullDetails = 2 
Const olFolderCalendar = 9

SendCalendar myEmailAddress, Date, (Date + (howManyDaysToDisplay - 1))

Sub SendCalendar(strAdr, datBeg, datEnd) 
Dim olkApp, olkSes, olkCal, olkExp, olkMsg 
Set olkApp = CreateObject("Outlook.Application") 
Set olkSes = OlkApp.GetNameSpace("MAPI") 
olkSes.Logon olkApp.DefaultProfileName 
Set olkCal = olkSes.GetDefaultFolder(olFolderCalendar) 
Set olkExp = olkCal.GetCalendarExporter

With olkExp 
.CalendarDetail = olFreeBusyAndSubject 
.IncludePrivateDetails = includePrivateDetails 
.RestrictToWorkingHours = False 
.StartDate = datBeg 
.EndDate = datEnd 
End With

Set olkMsg = olkExp.ForwardAsICal(olCalendarMailFormatDailySchedule)

With olkMsg 
.To = strAdr 
.Display Change to Send later
End With

'Free memory
Set olkCal = Nothing 
Set olkExp = Nothing 
Set olkMsg = Nothing 
olkSes.Logoff 
Set olkSes = Nothing 
Set olkApp = Nothing 
End Sub 

标签： vbscriptoutlook