Macro de excel sobre outlook

Que tal te agradecería si me pudieras ayudar con esta macro
Saludos y gracias de antemano
Esta es mi macro:
Sub Send_Msg()
Dim objOL As New Outlook.Application
Dim olApp As Outlook.Application
Dim objMail As MailItem
Set objOL = New Outlook.Application
Set olApp = New Outlook.Application
Set objMail = objOL.CreateItem(olMailItem)
With objMail
.To = "(xxxxxx)" ' destinatario de correo
.Subject = "cumpleaños del mes"
Sheets("Cumpl Cltes & Aniver Poliza").Select
.Body = Range("p5").Text
With objMail
.Send
End With
End With
Set objMail = Nothing
Set objOL = Nothing
End Sub
Y funciona perfectamente, el único problema, es que quiero que excel automáticamente me abra outlook desde algún comando dentro de la macro(el cual no se), ya que si tengo cerrado el outlook esta macro no funciona.
En resumen: ¿Cómo le hago para que una macro me habrá el programa de outlook automáticamente?