Gostaria de saber como enviar e-mail diretamente do excel de forma que no corpo do e-mail vá determinada range de uma planilha, consegui esse código que funionou quase perfeitamente.
Sub Send_Range()
' Select the range of cells on the active worksheet.
ActiveSheet.Range("A1:G79").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 = "bragaadriel@gmail.com;marcio@cebrac.com.br; gestaoadm@cebrac.com.br; gestao.educacao@cebrac.com.br; fabiano.comercial@cebrac.com.br; bruno.comercial@cebrac.com.br; gestao.marketing@cebrac.com.br"
.Item.Subject = "Desempenho da Unidade " & Cells(10, 4) & " - Certificação de Excelência em Gestão"
.Item.send
End With
End Sub
Porem quando abro o e-mail via webmail, por exemplo gmail, a planilha fica desconfigurada (linhas, mesclagem, etc...) gostaria de saber se há uma forma de enviar a range no corpo do e-mail preservando a formatação. Pode ser até um copiar e colar como imagem no corpo do e-mail.
Antecipadamente agradeço pelo retorno.
Existem mil maneiras de preparar Neston. Invente a sua!
http://www.youtube.com/ExpressoExcel
Postado : 01/07/2013 7:33 am