Using the AdvancedSearchComplete Event and the AdvancedSearchStopped Event
Private Sub Application_AdvancedSearchComplete(ByVal SearchObject As Search) MsgBox "The search has finished running and found " & _ SearchObject.Results.Count & " results.", vbOKOnly + vbInformation, _ "Advanced Search Complete Event" End Sub
1. | Using the Startup Event | ||
2. | Using the Quit Event | ||
3. | Using the ItemSend Event |