Peter.Stevens2
Board Regular
- Joined
- Sep 16, 2008
- Messages
- 56
Hi,
I am trying to establish if Outlook 2000 is currently running in VBA , I have tried the following code but this only works when the user is actually positioned in "Inbox - Microsoft Outlook" etc. At this point I don't really care where/what the user has open in Outlook but merely to check if outlook is running.
I have tried below but does not work robustly enough.
I have also tried AppActivate("Microsoft Outlook")
I have also tried IsRunning("Outlook.Application") which does not even compile.
Thanks in advance for your help!
I am trying to establish if Outlook 2000 is currently running in VBA , I have tried the following code but this only works when the user is actually positioned in "Inbox - Microsoft Outlook" etc. At this point I don't really care where/what the user has open in Outlook but merely to check if outlook is running.
I have tried below but does not work robustly enough.
I have also tried AppActivate("Microsoft Outlook")
I have also tried IsRunning("Outlook.Application") which does not even compile.
Code:
Dim OutlookErr, OutlookBox
On Error GoTo OutlookIsNotRunning
AppActivate ("outlook")
GoTo now_send_email
OutlookIsNotRunning:
OutlookErr = "Outlook is either not open or busy with another task." & vbCrLf & vbCrLf
OutlookErr = OutlookErr & "Please Open Outlook, Close any draft emails," & vbCrLf & vbCrLf
OutlookErr = OutlookErr & "the Global Address List or other activities and try again."
OutlookBox = MsgBox(OutlookErr, vbCritical, "Unable to access Outlook to send email")
Exit Sub
[COLOR=black]now_send_email: [/COLOR]
Thanks in advance for your help!