Envio de multiplos range do excel por e-mail (outlook)

Question

Pessoal, 

Vejam se podem me auxiliar. Preciso automatizar o envio 3 ranges de uma planilha ativa a um e-mail específico. Encontrei o código a seguir e ele faz exatamente o que preciso, entretanto não tenho conhecimento de como adicionar um ou mais range a ser enviado no corpo do e-mail.

Ficaria grato se alguém puder me auxiliar.

Sub Send_Range()
   
   ' Select the range of cells on the active worksheet.
   ActiveSheet.Range("A1:B5").Select
   
   ' Show the envelope on the ActiveWorkbook.
   ActiveWorkbook.EnvelopeVisible = True
   
   ' Set the optional introduction field thats adds
   ' some header text to the email body. It also sets
   ' the To and Subject lines. Finally the message
   ' is sent.
   With ActiveSheet.MailEnvelope
      .Introduction = "This is a sample worksheet."
      .Item.To = "E-Mail_Address_Here"
      .Item.Subject = "My subject"
      .Item.Send
   End With
End Sub

Answer 1

Bom dia Junior,

Se são ranges fixos, você pode determiná-los confirme abaixo:

ActiveSheet.Range("A2:B4,D5:F7").Select

Isso deve solucionar o seu problema.

Answer 2

Daniel, boa noite.

Agradeço a resposta, mas não funcionou meu caro. Dá erro e ele não seleciona somente os range indicados.

Answer 3

Experimente o exemplo desta página: http://www.rondebruin.nl/win/s1/outlook/amail4.htm

---

Felipe Costa Gualberto - http://www.ambienteoffice.com.br