Use this code to quickly determine whether Microsoft Mail is currently running:
Declare Function GetModuleHandle Lib _ "Kernel" (ByVal lpModuleName As String) As IntegerFunction IsMicrosoftMailRunning ()On Error GoTo IsMicrosoftMailRunning_ErrIsMicrosoftMailRunning = GetModuleHandle("MSMAIL")IsMicrosoftMailRunning_Err: If Err Then 'Do whatever you need to here End IfEnd Function
You can also use this method to determine if just about any particular program is running. Simply replace the Mail references with the appropriate name you are looking for.