Prezados,

Estou preparando uma macro em que finaliza mandando uma determinada tabela selecionada por e-mail, colada como bitmap.

Estou com dificuldade na linha de código na qual cola a 'Range' já selecionada no Outlook.

Alguém saberia me ajudar?

Segue o exemplo de código abaixo

Obrigado!

Range("a3:n42").Select  ' <==== SELECIONA A TABELA NA QUAL PRETENDO ENVIAR POR E-MAIL
Selection.Copy

Set OutApp = CreateObject("Outlook.Application")
Set OutMail = OutApp.CreateItem(0)
On Error Resume Next
With OutMail
    .To = ThisWorkbook.Sheets("E-Mail").Range("C2").Value
    .CC = ThisWorkbook.Sheets("E-Mail").Range("C3").Value
    .BCC = ""
    .Subject = "Previsão de Vazões ONS - " & Revisao & " - " & mes
    Dim corpo As String
 
    corpo = "Prezados," & vbCr & vbCr
    corpo = corpo & "Segue abaixo tabela" & vbCr & vbCr
    'COLAR A TABELA AQUI!!    
    .Body = corpo
    .Attachments.Add PastaArq
    .Display
End With
    Set OutMail = Nothing
    Set OutApp = Nothing