Outlookが閉鎖されたときに自動的に電子メール警告を送信

Question

Outlookセッションが閉じられたことをOutlookに通知する電子メールを送信する必要があります。以下のコードは動作しませんが、Application_Startup（）で動作します。それを行う方法に関する他の提案はありますか？

Private Sub Application_Quit() 

Dim objMsg As MailItem 
Dim EmailSubject As String 
Dim SendTo As String 
Set objMsg = Application.CreateItem(olMailItem) 
EmailSubject = "Outlook session Closing" 
SendTo = "xxxx@outlook.com" 

objMsg.To = SendTo 
objMsg.Subject = EmailSubject 
objMsg.Send 

End Sub 

Answer 1

最新バージョンのOutlookは、Application.Quitイベントを起動しません。唯一の回避策は、開いているエクスプローラウィンドウとインスペクタウィンドウを追跡し、最後のウィンドウが閉じようとしていることを確認することです。起動時にApplication.ActiveExplorerウィンドウを接続し、Application.Explorers.NewExplorerイベントも追跡します。検査官（Application.Inspectors.NewInspector）と同じです。 Explorer.CloseまたはInspector.Closeイベントが発生すると、まだ開いているエクスプローラとインスペクタ（Application.Explorers.CountとApplication.Inspectors.Count）の数を確認します。残っているウィンドウが1つだけの場合は、実行する必要がある操作を行います。