RDCOMClient 和 Outlook:预定会议
RDCOMClient and Outlook: Booking a meeting
我正在尝试通过 R 中的脚本在 Outlook 中预订定期会议,我将每周批处理到 运行。我们目前不允许预订定期会议,因为房间很贵。我已经使用 RDCOMClient 发送自动电子邮件,所以我认为可能有一种方法可以使用该包来完成。我查看了 Stack Overflow 和文档,但还没有找到任何具体的内容。我认为它看起来像这样:
OutApp <- COMCreate("Outlook.Application")
outMeeting = OutApp$CreateItem(0)
outMeeting[["To"]] = paste("Person1@company.com","Person2@Company.com","Room1@Company.com", 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()
关于这是否可行以及如何实现的任何想法?
尝试使用 outMeeting = OutApp$CreateItem(1) 创建日历项。希望对你有帮助。
我知道这已经很老了,但我一直在尝试做同样的事情,而且我想通了。您需要执行以下操作:
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("Person1@company.com")
OutMeeting[["Recipients"]]$Add("Person2@Company.com")
OutMeeting[["Recipients"]]$Add("Room1@Company.com")
OutMeeting$Save()
OutMeeting$Send()
这应该会让你到达那里。
我正在尝试通过 R 中的脚本在 Outlook 中预订定期会议,我将每周批处理到 运行。我们目前不允许预订定期会议,因为房间很贵。我已经使用 RDCOMClient 发送自动电子邮件,所以我认为可能有一种方法可以使用该包来完成。我查看了 Stack Overflow 和文档,但还没有找到任何具体的内容。我认为它看起来像这样:
OutApp <- COMCreate("Outlook.Application")
outMeeting = OutApp$CreateItem(0)
outMeeting[["To"]] = paste("Person1@company.com","Person2@Company.com","Room1@Company.com", 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()
关于这是否可行以及如何实现的任何想法?
尝试使用 outMeeting = OutApp$CreateItem(1) 创建日历项。希望对你有帮助。
我知道这已经很老了,但我一直在尝试做同样的事情,而且我想通了。您需要执行以下操作:
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("Person1@company.com")
OutMeeting[["Recipients"]]$Add("Person2@Company.com")
OutMeeting[["Recipients"]]$Add("Room1@Company.com")
OutMeeting$Save()
OutMeeting$Send()
这应该会让你到达那里。