Check if outlook running in VBA

[Peter.Stevens2]

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.

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!

 

[mond007]

HI All,

I was just wondering if anyone knew how to check if the email send was successfull or not ?

Like maybe one could check the vaue of MyMail for a specific value.

Could be that the email supplied to the SendMail routine could be bad ?

When you sending several thousand email it would be useful ?

Thanks in Advance ?