Outlook VBA教程:GetAssociatedAppointment方法

返回AppointmentItem对象,代表与会议要求相关的约会。

expression.GetAssociatedAppointment(AddToCalendar)

expression  必选。该表达式返回MeetingItem对象。

AddToCalendar  必选,Boolean 类型。如果为 True,将会议添加到默认的“日历”文件夹中。

VBA示例

本 Visual Basic for Applications 示例在默认“收件箱”文件夹中查找MeetingItem,并将相关约会添加到“日历”文件夹中。


Set myOlApp = CreateObject("Outlook.Application")
Set myNameSpace = myOlApp.GetNameSpace("MAPI")
Set myFolder = _
    myNameSpace.GetDefaultFolder(olFolderInbox)
Set myMtgReq = myFolder.Items.Find _
    ("[MessageClass] = 'IPM.Schedule.Meeting.Request'")
If TypeName(myMtgReq) <> "Nothing" Then
   Set myAppt = myMtgReq.GetAssociatedAppointment(True)
End If

如果使用 VBScript,则不创建Application对象,而且也不能使用命名常量。本示例说明如何使用 VBScript 执行相同任务。


Set myNameSpace = Application.GetNameSpace("MAPI")
Set myFolder = _
    myNameSpace.GetDefaultFolder(6)
Set myMtgReq = myFolder.Items.Find _
    ("[MessageClass] = 'IPM.Schedule.Meeting.Request'")
If TypeName(myMtgReq) <> "Nothing" Then
   Set myAppt = myMtgReq.GetAssociatedAppointment(True)
End If

本示例接受约会要求,在不显示检查器的情况下发送响应。


Set myNewMeeting = myMtgReq.GetAssociatedAppointment(True)
myNewMeeting.Respond olResponseAccepted, True

上页:Outlook VBA教程:FreeBusy方法 下页:Outlook VBA教程:GetAssociatedTask方法

Outlook VBA教程:GetAssociatedAppointment方法:相关链接

Outlook VBA教程:GetAssociatedTask方法 Outlook VBA教程:GetDefaultFolder方法
Outlook VBA教程:GetExplorer方法 Outlook VBA教程:GetFirst方法
Outlook VBA教程:GetFolderFromID方法 Outlook VBA教程:GetFreeBusy方法
Outlook VBA教程:GetItemFromID方法 Outlook VBA教程:GetLast方法
Outlook VBA教程:GetMember方法 Outlook VBA教程:GetNameSpace方法
Outlook VBA教程:GetNext方法 Outlook VBA教程:GetOccurrence方法
Outlook VBA教程:GetPageInfo方法 Outlook VBA教程:GetPrevious方法
Outlook VBA教程:GetRecipientFromID方法 Outlook VBA教程:GetRecurrencePattern方法
Outlook VBA教程:GetSharedDefaultFolder方法 Outlook VBA教程:GoToDate方法
Outlook VBA教程:HideFormPage方法 Outlook VBA教程:IsPaneVisible方法
版权所有 © 中山市飞娥软件工作室 证书:粤ICP备09170368号