Excel宏Outlook电子邮件确定它是否';这是一次会议,反应如何
我正在尝试在Excel中编写一个宏,它将查看outlook日历,抓取所有事件,并显示以下信息:电子邮件的主题、开始时间、此电子邮件是否来自会议邀请,以及我对它的响应是否被接受 我已经记下了前两条信息,但我在试图弄清楚如何弄清楚后两条信息时遇到了困难。以下是我目前掌握的信息:Excel宏Outlook电子邮件确定它是否';这是一次会议,反应如何,excel,outlook,vba,Excel,Outlook,Vba,我正在尝试在Excel中编写一个宏,它将查看outlook日历,抓取所有事件,并显示以下信息:电子邮件的主题、开始时间、此电子邮件是否来自会议邀请,以及我对它的响应是否被接受 我已经记下了前两条信息,但我在试图弄清楚如何弄清楚后两条信息时遇到了困难。以下是我目前掌握的信息: Dim olApp As Object Dim olNS As Object Dim olFolder As Object Dim olApt As Object Dim NextRow As Long Set olApp
Dim olApp As Object
Dim olNS As Object
Dim olFolder As Object
Dim olApt As Object
Dim NextRow As Long
Set olApp = CreateObject("Outlook.Application")
Set olNS = olApp.GetNamespace("MAPI")
Set olFolder = olNS.GetDefaultFolder(9) 'olFolderCalendar
Range("A1:C1").Value = Array("Subject", "Start", "Meeting?", "Response")
NextRow = 2
For Each olApt In olFolder.Items
Cells(NextRow, "A").Value = olApt.Subject
Cells(NextRow, "B").Value = Format(olApt.Start, "MM-dd-yyyy")
Cells(NextRow, "C").Value = olApt.MeetingOrNot
Cells(NextRow, "C").Value = olApt.MeetingResponse
NextRow = NextRow + 1
Next olApt
显然,MeetingOrNot和MeetingResponse不是有效的属性,所以我想知道是否有人知道更多关于这一点,或者是否可以为我想要的最后两项提供一些参考。谢谢大家! 我能回答你一半的问题。您希望查看收件箱项目的
MessageClass
属性-您希望它是appointItem
类型(olappointItem
)
请参阅使用MeetingStatus属性(olMeetingReceived等)和ResponseStatus属性(olResponseAccepted等) 查看约会-选择一个约会,然后单击项目按钮以查看live AppointmentItem对象。或者单击IMessage按钮查看扩展MAPI属性