Hi I am using this code to automatically draft a email from excel but unable to get default signature.

Please help me to get default signature at the end of email.

Sub email()
Dim mainWB As Workbook
Dim SendID
Dim CCID
Dim Subject
Dim Body
Dim rng1 As Range
 
Set otlApp = CreateObject("Outlook.Application")
Set olMail = otlApp.CreateItem(olMailItem)
Set Doc = olMail.GetInspector.WordEditor
Set mainWB = ActiveWorkbook
SendID = mainWB.Sheets("Product Report").Range("I20").Value
CCID = mainWB.Sheets("Product Report").Range("I21").Value
Subject = mainWB.Sheets("Product Report").Range("I22").Value
Body = mainWB.Sheets("Screenshot").Range("A1:Z500").Value
With olMail
    .To = SendID
    If CCID <> "" Then
      .CC = CCID
    End If
    .Subject = Subject
    mainWB.Sheets("Screenshot").Range("A1:Z500").Copy
    
    Set WrdRng = Doc.Range
    .Display
    WrdRng.Paste
    .Display
End With
Sheets("Product Report").Select

End Sub