Send mail

Hej
Jeg har denne kode, men den sætter ikke min autosignatur ind i mailen, jeg kan lige nå se den, men så forsvinder den, hvor går det galt?

Sub SendMail()
    Dim Wkb As String
    Dim OutApp As Object
    Dim OutMail As Object
    Dim strSubject As String
    Dim strbody As String

    Set OutApp = CreateObject("Outlook.Application")
    Set OutMail = OutApp.CreateItem(0)
    With OutMail
    .Display
    End With
        Signature = OutMail.body 'gets the email's standard signature

    On Error Resume Next

    With OutMail
        .To = "mail@mail.dk
        .CC = ""
        .BCC = ""
        .Subject = Ark11.Range("p2")
        .body = "Hej" & Chr(10) & Chr(10) & "S? er tallene for " & " ' " & Ark11.Range("P2") & " '  " & "klar til gennemsyn"
        .OutMail.body
       
    End With
    On Error GoTo 0
    Set OutMail = Nothing
    Set OutApp = Nothing

End Sub