如何自动转发Outlook中的日历更改(例外)

时间:2019-06-14 05:55:00

标签: vba outlook

我有多种观点(私人和工作),需要与之进行约会/会议同步。

我确实设置了一些转发规则。不幸的是,当我自己创建约会/会议时,这些按钮不起作用。

所以现在我正在寻找一些可以添加到我的所有视图中的代码。

通过这种方式,我的私人Outlook充当“主Outlook”,每次约会/会议都发送到该主Outlook,并将其分发给我的其他Outlook地址

Pseudocode:

Main-Outlook Code (Private Outlook):

FwdAddr_Array = Work1@email1.com, Work2@email2.com, Work3@email3.com

If (Calendar item is added) or (Calendar item is removed) then
   For each fwd in FwdAddr_Array 
      If Calendar.Item.Sender <> fwd Then 'stop loops from happening
         forward Calendar.Item to fwd
      End If
   Next fwd
End If




Work-Outlook Code (WorkOutlook):

FwdAddr = private@email.com

If (Calendar item is added) or (Calendar item is removed) then
   If Calendar.Item.Sender <> FwdAddr Then 'stop loops from happening
      forward Calendar.Item to FwdAddr 
   End If
End If

0 个答案:

没有答案