RDCOMClient и Outlook: бронирование встречи

Я пытаюсь заказать повторяющуюся встречу в Outlook с помощью сценария в R, который я буду запускать каждую неделю. В настоящее время нам не разрешено бронировать повторяющиеся встречи, так как стоимость номеров высока. Я использовал RDCOMClient для отправки автоматических электронных писем, поэтому я думаю, что может быть способ сделать это с этим пакетом. Я просмотрел Stack Overflow и документацию и пока не нашел ничего конкретного для этого. Я думаю, это будет выглядеть примерно так:

OutApp <- COMCreate("Outlook.Application")

outMeeting = OutApp$CreateItem(0)

outMeeting[["To"]] = paste("[email protected]","[email protected]","[email protected]", sep = ";", collapse = NULL)
outMeeting[["start"]] = strptime(2017/04/28 13:30, "%Y/%m/%d %H:%M")
outMeeting[["end"]] = strptime(2017/04/28 14:30, "%Y/%m/%d %H:%M")
outMeeting[["subject"]] = "Weekly Meeting"
outMeeting[["body"]] = "Hi Team,

Attached is the weekly meeting agenda.

Thanks,
Person 3"

outMeeting$Send()

Любые мысли о том, если и как это может работать?


r rdcomclient
person DW1    schedule 28.04.2017    source источник

Ответы (2)


arrow_upward
1
arrow_downward

Я знаю, что это довольно старо, но я пытался сделать то же самое, и я понял это. Вы захотите сделать следующее:

OutApp <- COMCreate$("Outlook.Application")
OutMeeting <- OutApp$CreateItem(1)

OutMeeting[["Start"]] = "2019-02-22 08:00"
OutMeeting[["Subject"]] = "Weekly Meeting"
OutMeeting[["Body"]] = "Hi Team,

Attached is the weekly meeting agenda.

Thanks,
Person 3"
OutMeeting[["Duration"]] = "60"
# MeetingStatus is key to this - that's how it can be sent to others as an invite
OutMeeting[["MeetingStatus"]] = "1"
OutMeeting[["Recipients"]]$Add("[email protected]")
OutMeeting[["Recipients"]]$Add("[email protected]")
OutMeeting[["Recipients"]]$Add("[email protected]")
OutMeeting$Save()
OutMeeting$Send()

Это должно привести вас туда.

person Zachary Smithingell    schedule 22.02.2019
comment
Это здорово, спасибо! В конце концов, в то время я использовал Python и VBA, но приятно видеть решение R. - person DW1; 12.11.2020

arrow_upward
0
arrow_downward

Попробуйте использовать outMeeting = OutApp$CreateItem(1) для создания элементов календаря. Надеюсь, это поможет вам.

person Julius JF    schedule 20.06.2017