ouvrir un message outlook avec VBA

hello ::

comment faire pour ouvrir un message outlook avec vba ??

j'ai trouver ce code mais il ne permet pas d'ouvrir juste le message, celui ci: ecrit le titre, le message, l adressse mail et l 'envoie....

Sub testoutlook()
'test envoie message via outlook

Dim ofolder As Outlook.MAPIFolder
Dim oitem As Outlook.MailItem
Dim ooutlook As New Outlook.Application
Dim mooutlook As Outlook.Namespace

Set mooutlook = ooutlook.GetNamespace('MAPI')
Set ofolder = mooutlook.GetDefaultFolder(olFolderOutbox)
Set oitem = ofolder.Items.Add(olMailItem)
With oitem

.Recipients.Add ('jeanrene@hotmail.com')
.Subject = 'test d'envoie message outlook'
.Body = 'test par bva'
.Send
End With
End Sub

merci bcp bcp bcp