This works for me:
Sub ShowOutlook()

Dim olApp As OutLook.Application
Dim olNs As NameSpace

On Error Resume Next
Set olApp = GetObject(, "Outlook.Application")

If Err.Number = 429 Then
Set olApp = CreateObject("Outlook.Application")
End If

On Error GoTo 0

Set olNs = olApp.GetNamespace("MAPI")

If olApp.ActiveExplorer Is Nothing Then
olApp.Explorers.Add _
(olNs.GetDefaultFolder(olFolderCalendar)).Activate
Else
Set olApp.ActiveExplorer.CurrentFolder = _
olNs.GetDefaultFolder(olFolderCalendar)
olApp.ActiveExplorer.Display
End If

Set olNs = Nothing
Set olApp = Nothing

End Sub

I found it at:
http://www.dicks-clicks.com/excel/olBinding.htm

Remember to activate the reference in the Visual Basic Editor, Tools
References...
Happy Excelling!!


--
RyGuy


"Bob Phillips" wrote:

I just gave you code to test whether Outlook was started, if not start it.

You would add this to some code to send the mail.

--
---
HTH

Bob

(change the xxxx to gmail if mailing direct)


"Corey" wrote in message
...
Thanks for the reply Bob.

Am I suppose to any more than to test the code you posted than to run it
from a macro?
It thinks but does nothing??


Corey....
"Bob Phillips" wrote in message
...
It should do.

To start Outlook, just test it and open it

On Error Resume Next
Set AppOL = GetObject(,"Outlook.Application")
If AppOL Is Nothing Then
Set AppOL = CreateObject("Outlook.Application")
If AppOL Is Nothing Then
MsgBox "Something's up"
Exit Sub
Else
AppOL.Visible = True
End If
End If


--
---
HTH

Bob

(change the xxxx to gmail if mailing direct)


"Corey" wrote in message
...
Thanks for the reply,
But Ron's site is very helpful, yet does not assist me with the OPENING
on Outlook from a Macro.

Corey....
"Jim Thomlinson" wrote in
message ...
Check out this site...

http://www.rondebruin.nl/sendmail.htm
--
HTH...

Jim Thomlinson


"Corey" wrote:

I have a code to send(email) a range of a worksheet to an email addres
on
the sheet.
But if Outlook is not opened it simply sits in the OUTBOX until
Outlook is
opened.
Is ther a line i can add to open Outlook if Not already.
This way it Will send immediately ?

Corey...