当所有电子邮件都由宏处理时，执行某些操作（显示消息）

Question

编辑：

我写了一个处理电子邮件的宏。通过选择多个电子邮件并点击宏按钮，它将按顺序在每个选定的电子邮件上运行。一旦处理了所有电子邮件，我想在Outlook中显示一条消息。

Answer 1

您似乎对SyncEnd事件感兴趣。在Microsoft Outlook使用指定的发送/接收组完成同步用户文件夹后立即触发。

Dim WithEvents mySync As Outlook.SyncObject 

Sub Initialize_handler() 
   Set mySync = Application.Session.SyncObjects.Item(1) 
   mySync.Start 
End Sub  
Private Sub mySync_SyncEnd() 
    MsgBox "Synchronization is complete." 
End Sub