VBS, чтобы проверить участников встречи Outlook и отправить электронную почту для тех, кто не ответил - PullRequest
Новая
       19

VBS, чтобы проверить участников встречи Outlook и отправить электронную почту для тех, кто не ответил

1 голос
/ 19 февраля 2020

Я пытаюсь автоматизировать внешний вид, чтобы искать мои встречи и проверять, кто из участников не ответил на приглашение.

Мне удалось отправить себе электронное письмо с указанием моей повестки дня, но я изо всех сил пытаясь найти настройки для проверки чеков ...

Есть ли кто-нибудь, кто может указать мне направление?

Заранее спасибо! 

'Setup
Const myEmailAddress = "myEmail@email.com"
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
...