自動接受展望VBA

Question

是否有VB宏或某種附加組件可讓我自動接受發件人或文件夾在Outlook中的邀請？

我在想這樣做VB腳本這個，但我不想重新發明輪子呢？

Answer 1

我已經在過去使用這種，這樣當你從certian發件人和ITA的會議邀請或更新接受它它觸發添加此子進入VBA頁面和電線了您的規則。

Sub AutoAccept(ByRef Item As Outlook.MeetingItem) 

    Dim strID As String 
    Dim olNS As Outlook.NameSpace 
    Dim oMeetingItem As Outlook.MeetingItem 
    Dim oResponse As Outlook.MeetingItem 
    Dim oAppointment As Outlook.AppointmentItem 

    strID = Item.EntryID 

    Set olNS = Application.GetNamespace("MAPI") 
    Set oMeetingItem = olNS.GetItemFromID(strID) 
    Set oAppointment = oMeetingItem.GetAssociatedAppointment(True) 

    Set oResponse = oAppointment.Respond(olMeetingAccepted) 
    oResponse.Send 

    oAppointment.Save 
    oMeetingItem.Save 


    Set oAppointment = Nothing 
    Set oMeetingItem = Nothing 
    Set olNS = Nothing 

End Sub