Outlook VBA 将日历同步到 Exchange答案

【问题标题】：Outlook VBA to sync calendar to ExchangeOutlook VBA 将日历同步到 Exchange
【发布时间】：2014-09-17 14:03:08
【问题描述】：

我正在寻找一种方法来强制 Outlook 2010 将日历条目同步回 Exchange。

背景：我在功能区中有一个按钮，可将特定日历条目同步回 SQL 数据库。当用户添加新条目并在创建约会后直接单击按钮时，新条目在 Exchange 服务器上尚不可用。如果用户等待约 30 秒，则该工具能够找到新条目。 Outlook 每 n 秒同步一次数据。

上面提到的按钮调用一个宏，打开一个浏览器并做一些其他的事情。我一直在研究 Outlook API，但找不到将日历强制同步回 Exchange 的方法。有谁知道如何解决这个问题？

编辑：调用日历文件夹上的更新文件夹按钮（见屏幕截图），正是我想要的（其他按钮没有）。但我找不到通过宏调用它的方法。

【问题讨论】：

标签： vba outlook

【解决方案1】：

您可以使用ExecuteMso模拟按下功能区按钮

未经测试，因为按钮对我没有任何作用。

Private Sub ExecuteMso_UpdateFolder()

    ' https://msdn.microsoft.com/en-us/library/office/ff862419.aspx

    Dim objNS As Namespace
    Dim objExpl As Explorer
    Dim objFolder As folder

    Set objNS = Application.GetNamespace("MAPI")
    Set objExpl = Application.ActiveExplorer

    If Not objExpl Is Nothing Then
        Set objFolder = objExpl.CurrentFolder
        objExpl.CommandBars.ExecuteMso ("UpdateFolder")
    End If

End Sub

【讨论】：