How to detect if Outlook is open?

[dmkAlex]

I have a routine that send emails thru Outlook (using Redemption).

When Outlook is not open, the mails will go to the inbox instead of being sent out. I would like to write a block to detect if Outlook is already open, if not open it.

Can someone help please?

Thanks.

Alex

 

[HughLerwill]

Private Sub Command1_Click()

Dim ObjOL As Object

On Error Resume Next
Set ObjOL = GetObject(, "Outlook.application")
If Err Then
MsgBox "Outlook is not running"

Shell "C:\Program Files\Microsoft Office\OFFICE11\OUTLOOK.EXE /recycle", vbNormalFocus

End If

Set ObjOL = Nothing

End Sub

 

[dmkAlex]

Thanks for the quick response.

I entered error . . .

"Activex component can't create object"

in the line
Set ObjOL = GetObject(, "Outlook.application")

Alex

 

[dmkAlex]

I also need the screen to come back to Excel after it opens Outlook.

Thanks.

 

[HughLerwill]

1) you will not get an error on

Set ObjOL = GetObject(, "Outlook.application")

if it is preceded by On Error Resume Next as per my example.

2) <<screen to come back to Excel after it opens Outlook>>

Replace Shell "C:\Program Files\Microsoft Office\OFFICE11\OUTLOOK.EXE /recycle", vbNormalFocus

With Shell "C:\Program Files\Microsoft Office\OFFICE11\OUTLOOK.EXE /recycle", vbNormalNoFocus

Or Shell "C:\Program Files\Microsoft Office\OFFICE11\OUTLOOK.EXE /recycle", vbMinimizeNoFocus

3) It sounds like you are using VBA so you should be posting in the VBA forum707

Hugh

 

[strongm]

>1) you will not get an error on

Well, that rather depends on whether "Break On All Errors" is set ...

 

[dmkAlex]

Thanks.
It works.

Alex

 

[dmkAlex]

Hi,

Wondering if you guys can give me some help in the following:

I have the preview option/window open in my Outlook, when I highlight the message in the inbox, I can see most of the content in the preview box. I want to have the ability to response (reply) to the highlighted message by clicking on an icon on the toolbar (I know how to create the icon, but I need help in the macro).

Give me something so I can get started.

Thanks.

Alex

 

[HughLerwill]

Suggest you post in forum707