Notifications
Clear all

Copiar e Colar como imagem no corpo do e-mail Excel vba

6 Posts
1 Usuários
0 Reactions
5,416 Visualizações
Fernando Fernandes
(@fernandofernandes)
Posts: 43750
Illustrious Member
Topic starter
 

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
Fernando Fernandes
(@fernandofernandes)
Posts: 43750
Illustrious Member
Topic starter
 

Boa noite!!

Os assuntos de VBA devem ser postados em VBA & Macros.

Vou mover seu tópico para o local correto.

Lembre se de usar a pesquisa do fórum!

Att

Existem mil maneiras de preparar Neston. Invente a sua!
http://www.youtube.com/ExpressoExcel

 
Postado : 01/07/2013 6:28 pm
Fernando Fernandes
(@fernandofernandes)
Posts: 43750
Illustrious Member
Topic starter
 

Ok... Obrigado.

Existem mil maneiras de preparar Neston. Invente a sua!
http://www.youtube.com/ExpressoExcel

 
Postado : 02/07/2013 5:07 am
Fernando Fernandes
(@fernandofernandes)
Posts: 43750
Illustrious Member
Topic starter
 

Se seguir a dica do Alexandre quanto a Pesquisa no fortum, alem de encontrar o Tópico abaixo encontrara varios outros :

Salvar Range como imagem
viewtopic.php?f=28&t=2495

Uma outra sugestão seria salvar como PDF.

[]s

Existem mil maneiras de preparar Neston. Invente a sua!
http://www.youtube.com/ExpressoExcel

 
Postado : 02/07/2013 5:37 am
Fernando Fernandes
(@fernandofernandes)
Posts: 43750
Illustrious Member
Topic starter
 

Então Mauro esse código ensina como SALVAR a imagem da range selecionada, o que eu preciso é COLAR A IMAGEM no corpo do e-mail...

Se você observar a Código que postei ele simplesmente copia e cola a range no corpo do e-mail, porem quando abrimos o e-mail via webmail ele perde as configurações. Portanto precisaria de alguma forma, seja colar apenas a imagem no corpo ou alguma outra coisa relacionada a html talvez, de forma que, quando abrir via webmail ele mantenhas as configurações.

Obrigado.

Existem mil maneiras de preparar Neston. Invente a sua!
http://www.youtube.com/ExpressoExcel

 
Postado : 02/07/2013 7:23 am
Fernando Fernandes
(@fernandofernandes)
Posts: 43750
Illustrious Member
Topic starter
 

Mais alguém pode me ajudar??

Calma gente um de cada vez... cri cri... cri cri...

Existem mil maneiras de preparar Neston. Invente a sua!
http://www.youtube.com/ExpressoExcel

 
Postado : 04/07/2013 11:12 am