VBA EXCEL发送带有默认签名的Outlook电子邮件

Question

我正在尝试通过VBA生成电子邮件，但是当它生成它时不会应用默认的电子邮件签名，我的代码中是否有问题？这是我正在使用的：

Sub Email_Charge()
Dim OutApp As Object
    Dim OutMail As Object
    Dim strbody As String
    Dim stSubject As String
    Dim stEmail As String
    Dim stSignature As String


    Set OutApp = CreateObject("Outlook.Application")
    Set OutMail = OutApp.CreateItem(0)

    strbody = Range("Body")
    stSubject = Range("Subject")
    stEmail = Range("Email")

    With OutMail
        .To = stEmail
        .Subject = stSubject
        .Body = strbody
        'Adds the summary attachment
        .Attachments.Add ("C:\Summary.pdf")
        '.Send
        .Display
    End With

    Set OutMail = Nothing
    Set OutApp = Nothing