Aula 05 - Criando o corpo do e-mail - 04. Ajustando o corpo do e-mail

Outra maneira de montar o corpo do e-mail:

Private Function fMontaCorpoEmail() As String

    Dim contador As Long
    Dim auxRetorno As String
    contador = 6
    auxRetorno = vbNullString

    Do While Trim$(Sheets("Reposição de Estoque").Cells(contador, 1)) <> vbNullString
        auxRetorno = auxRetorno & "Descrição: " & Trim$(Sheets("Reposição de Estoque").Cells(contador, 1)) & _
        " | " & "Tamanho: " & Trim$(Sheets("Reposição de Estoque").Cells(contador, 2)) & vbCrLf
        contador = contador + 1
    Loop

     fMontaCorpoEmail = auxRetorno

End Function