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

我正在尝试在Excel中编写一个宏,它将查看outlook日历,抓取所有事件,并显示以下信息:电子邮件的主题、开始时间、此电子邮件是否来自会议邀请,以及我对它的响应是否被接受

我已经记下了前两条信息,但我在试图弄清楚如何弄清楚后两条信息时遇到了困难。以下是我目前掌握的信息:

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属性