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
Postado : 14/04/2016 8:50 am