Caros,

Preciso de um auxílio, tenho a sub abaixo que funciona corretamente, porém gostaria de acrescentar um conjunto de células no corpo do e-mail do outlook, pesquisei em vários fóruns e tentei várias coisas, porém sem sucesso. Alguém consegue me ajudar?

Sub EMAIL()

Application.DisplayAlerts = False
Dim out, mail As Object
Dim PARA1, ASSUNTO, TEXTO1 As String

Sheets("plan1").Select
ultima = Cells(Rows.Count, "B").End(xlUp).Row
Set out = CreateObject("outlook.application")
Set mail = out.CreateItem(olMailItem)
mail.SentOnBehalfOfName = Sheets("E-MAIL").Range("B1")
PARA = WorksheetFunction.VLookup(Sheets("CAD").Cells(i, 1), Sheets("CAD").Range("A:D"), 3, 0)
dest = "prezados"
CCOPIA = Sheets("E-MAIL").Range("B2")
ASSUNTO = Sheets("E-MAIL").Range("B3")
TEXTO1 = Sheets("E-MAIL").Range("B4")
nome = Sheets("E-MAIL").Range("B6")

'Verifica horário
If Hour(Now()) >= 12 And Hour(Now()) < 19 Then
    saudação = "Boa tarde "
ElseIf Hour(Now()) >= 19 And Hour(Now()) <= 6 Then
    saudação = "Boa noite "
Else
    saudação = "Bom dia "
End If

'variavel que indica as células que quero acrescentar ao e-mail
planilha = Sheets(Plan1).Range("b6:j" & ultima)

mail.To = PARA
mail.CC = CCOPIA
mail.Subject = ASSUNTO
mail.Body = saudação & dest & "," & Chr(13) & Chr(13) _
            & TEXTO1 & Chr(13) _
            & "Atensiosamente," & Chr(13) _
            & nome & Chr(13) _
           'aqui gostaria que a variável 'planilha' fosse fixada no e-mail

mail.display
On Error Resume Next
mail.Send
On Error GoTo 0
Set out = Nothing

End Sub