boa tarde a todos

como faço para adicionar uma assinatura de email?

Sub ENVIAR_EMAIL_ADD_PLANILHA()
Dim MyOlapp As Object, MeuItem As Object
Set MyOlapp = CreateObject("Outlook.Application")
Set MeuItem = MyOlapp.CreateItem(olMailItem)
With MeuItem
    .to = ("Joao Paulo Soares Fragoso <joao.fragoso@profarmaspecialty.com.br>")
    .Subject = Cells(19, 2)
    .Body = Plan16.[b17].Value & vbCrLf & _
     vbCrLf & _
           "Bloqueio NF: " & Plan16.[c2].Value & " Fornecedor: " & Plan16.[d2].Value & " Pedido: " & Plan16.[E2].Value & vbCrLf & _
           "Motivo: " & Plan16.[k4].Value & " unidades(s) de " & Plan16.[D4].Value & ", " & Plan16.[O4].Value & vbCrLf & _
           "Saudações " & vbCrLf & _
           Plan16.[d2].Value
     'troque o diretorio do documento que queira enviar 'add' anexo.
    .Attachments.Add "C:Usersjoao.fragosoDesktopPlanilha de Acompanhamento FORN.xlsm"
    .DISPLAY
End With
End Sub