Formatação no Corpo do E-mail.

Olá Thiago, tudo bem com você?

Peço desculpas pela demora em obter um retorno.

Fico feliz em saber que está gostando das aulas! Com relação à sua dúvida, é, sim, possível enviar o email com a mesma formatação utilizada na aula. Para isso, você pode utilizar os códigos presentes na sub-rotina fnMontaCorpoEmail, como mostro abaixo:

Private Function fnMontaCorpoEmail() As String
    
    Dim ContaLinhas As Long
    Dim auxRetorno As String
    
    ContaLinhas = 6
    auxRetorno = "Prezado fornecedor" & vbCrLf
    auxRetorno = auxRetorno & "Seguem os modelos para reposição de estoque." & vbCrLf
    auxRetorno = auxRetorno & vbCrLf
    auxRetorno = auxRetorno & vbCrLf
    
    Do While Trim$(Sheets("Reposição de Estoque").Cells(ContaLinhas, 1)) <> vbNullString
        
        auxRetorno = auxRetorno & Trim$(Sheets("Reposição de Estoque").Cells(ContaLinhas, 1))
        auxRetorno = auxRetorno & "  "
        auxRetorno = auxRetorno & Trim$(Sheets("Reposição de Estoque").Cells(ContaLinhas, 2))
        auxRetorno = auxRetorno & vbCrLf
        
        ContaLinhas = ContaLinhas + 1
    Loop
        
    fnMontaCorpoEmail = auxRetorno

End Function

Já para incluir a assinatura de e-mail, você pode adicionar o conteúdo da assinatura na variável auxRetorno antes de enviar o e-mail. Assim, a assinatura será incluída no corpo do e-mail.

Deixo neste link para download, o gabarito do projeto feito no curso onde onde você poderá explorar os códigos e formatação utilizada para enviar o e-mail.

Espero ter ajudado. Continue mergulhando em conhecimento e não hesite em voltar ao fórum para continuar aprendendo e interagindo com a comunidade.

Abraços e bons estudos!