Åbne Outlook med VBA kode fra Word

Rem Er placeret i ThisDocument

Private Sub åbnOutLook()
Dim mailApp, Namespace, nyMail
    Set mailApp = CreateObject("Outlook.Application")
    Set Namespace = mailApp.GetNamespace("MAPI")
    Set nyMail = mailApp.CreateItem(olMailItem)
         
    nyMail.Display
End Sub
Private Sub CommandButton1_Click()
    åbnOutLook
End Sub

Hej.
Mange tak for svaret
.
Mvh.
Hans