Email pelo VBA

Question

Olá,

Como faço pra copiar um intervalo de células do Excel, colar no corpo de um email do Outlook e enviar?

P.S.: Isso tudo via VBA.

Desde já agradeço.

 

Answer 1

Dê uma olhada na referência abaixo:

http://www.rondebruin.nl/mail/folder3/mail4.htm

[ ]s

 

Answer 2

Boa noite,

Estou fazendo um codigo onde enviarei um email a uma pessoa caso uma situação ocorra. O problema é que eu consigo colocar no corpo do email, um range do excel caso a situação ocorra, mas eu gostaria também de inserir o cabeçalho da planilha, que é constante , no corpo do email. Ou seja eu juntaria a linha do cabeçalho com a linha que cair na condição proposta. Abaixo uma parte do código, sublinhado está a linha variavel, como podera acrescentar o cabeçalho, para irem juntos no email?Alguém poderia me ajudar ??Obrigado.

Sub Send_Range()
   
   ' Select the range of cells on the active worksheet.
   ActiveSheet.Range(cells(a,1),cells(a,9).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
      .Item.To = Cells(2, 10)
      .Item.BCC = ""
      .Item.Subject = "Desempenho da Unidade " & Cells(10, 4) & " - Certificação de Excelência em Gestão"
      .Item.send
   End With
End Sub