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