How To Auto Open Outlook from Excel

I currently use the following code to open any of my 4 types of email accounts, such as hotmail, gmail, juno etc. Now I am adding Outlook and I don't know how to incorporate it into my code.

As an Ex: I have a seperate worksheet that I place the name hotmail.com and the following code will open it. I use a separte cell for each email address along with a separate macro for each email name.

I doubt that I can use this same code. I think that I have to use Outlook.exe ?????

Help would be appreciated.

Sub OpenMyeMailNo2()
Dim oShell
Dim sUrl As String
 sUrl = "http://" & Sheets("Setup").Cells(9, 5).Value
    Set oShell = CreateObject("Wscript.Shell")

    oShell.Run (sUrl)
End Sub

Sub snb()
  with createobject("Outlook.Application")

  End with
End Sub

Your code can be reduced to:

Sub OpenMyeMailNo2()
  Shell "http://" & Sheets("Setup").Cells(9, 5).Value
End Sub

Good Morning from California

Thanks SNB for your input

When I copied your snb code, the following line turned red.

[CODE]with createobject("Outlook.Application[/CODE]

I also just thought of the fact that I want to open Microsoft Office Outlook.


2nd . . .
In your following code . . .

Sub OpenMyeMailNo2()
  Shell "http://" & Sheets("Setup").Cells(9, 5).Value
End Sub

the value in cells (9,5) is: hotmail.com

when I run this macro I get an error message "Run-time error '53':
File not found.

Got any additional suggestions? Need help.

Thanks
Matt

I corrected my previous post.

Sorry snb

I can not see any posting of a change and the original posting is still the same.

I need some Ideas please.

Thanks Matt