VBA der genere en mail

Jeg har lavet en kode (med hjælp) der gemmer Excel arket som pdf, og derefter vedhæfter den i en Outlook mail.
Problemnet er at mailen ikke bliver sendt, da mail programmet ikke åbner, men kun mail dialog boksen.

Hvad kan jeg tilføje for at tvinge mailen igennem.

Koden ser sådan her ud
Sub ExcelToPDFMail()

Dim Filename1 As String
Dim Besked As String

Filename1 = Range("b17")

chdir ActiveWorkbook.Path
ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:=ActiveWorkbook.Path & "\" & Filename1 & " " & "Air Liquide bestilling.pdf"

Dim OutlookApp As Object
Dim OutlookMailItem As Object
Dim myAttachments As Object

Set OutlookApp = CreateObject("Outlook.application")
Set OutlookMailItem = OutlookApp.CreateItem(0)
Set myAttachements = OutlookMailItem.Attachments

With OutlookMailItem
.To = "xx@xx.xx"
.Subject = "Air Liquide bestilling"
Besked = "Hej Lene" & vbCrLf
Besked = Besked & vbCrLf
Besked = Besked & "Hermed bestilling til Air Liquide." & vbCrLf
Besked = Besked & vbCrLf
Besked = Besked & "På forhånd tak."
.Body = Besked
myAttachements.Add ActiveWorkbook.Path & "\" & Filename1 & " " & "Air Liquide bestilling.pdf"
.Display
End With

Set OutlookMailItem = Nothing
Set OutlookApp = Nothing

End Sub