[RESOLVED] how to know if outlook is running or not?

[neoxavier]

Haloo

I m new here, and I want to make a program that only run if outlook2002 is not open. so if outlook is open it will abort.
how to check if the outlook office is open or not
can somebody tell me the syntax how to recognize wether outlook is running or not.

thanks a lot

[Static]

Use this function to check

Private Function OutlookRunning() As Boolean
On Error GoTo NotRunning
Dim OTL As Object
Set OTL = GetObject(, "Outlook.Application")
Set OTL = Nothing
OutlookRunning = True
Exit Function
NotRunning:
Set OTL = Nothing
OutlookRunning = False
End Function

Private Sub Form_Load()
If Not OutlookRunning Then
MsgBox "Its Not Running"
Else
MsgBox "Its Running"
End If
End Sub

[neoxavier]

ok i will try that.. thanks..
i can not make it at the moment because i dont have vb compiler

[Static]

you should be able to run that in an office app.. (like excel)
Just change the form_open to something else.... for testing

[neoxavier]

ok thank a lot its help me a lot.. can u also tell me the syntax wether the internet connection is available or not..
thanks for the help

btw if i compile and run it from excel.. if its possible to make it run at start up so the program will listen to internet availability until it run other task..

thanks

[Static]

you can really "compile" and run from excel..
I just told u that so u can test it...

u will need VB to compile it to an exe...

as far as the internet.. you'll have to ping a server or something to test for the connection..

[neoxavier]

ah ok then