Outlook: Insert Signature to Mail Body

sigSample.bas

Public Sub CreateMail(mailAddress as String)
    Dim subject As String: subject = "案内状"
    Dim sig As String: sig = ReadAllText("C:\Users\yamakawa\AppData\Roaming\Microsoft\Signatures\通常.txt")
    
    Dim StrBody As String: StrBody = "ほげほげ株式会社" & vbCrLf & _
             "ふがふが様" & vbCrLf & _
             vbCrLf & _
             "中略｡以上。" & vbCrLf & _
             vbCrLf & _
             sig
 
    Call CreateByOutlook2010(subject, StrBody, mailAddress)
End Sub
 
Public Function ReadAllText(fileName As String)
    Dim fso As Object, buf As String
    Set fso = CreateObject("Scripting.FileSystemObject")
    With fso.GetFile(fileName).OpenAsTextStream(1, -2)
        buf = .ReadAll
        .Close
    End With
    Set fso = Nothing
    
    ReadAllText = buf
End Function
 
Sub CreateByOutlook2010(subject As String, body As String, mailAddress As String)
    Dim OL: Set OL = CreateObject("Outlook.Application")
    Dim ML: Set ML = OL.CreateItem(olMailItem)
    
    ML.To = mailAddress
    ML.subject = subject
    ML.body = body
 
    ML.Display
End Sub