自动接受展望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