Notifications
Clear all

Copiar células e colar no corpo do e-mail

15 Posts
2 Usuários
0 Reactions
2,127 Visualizações
(@reeesouza)
Posts: 4
New Member
Topic starter
 

Gostaria de saber como faço para criar uma VBA para copiar celulas do excel e colar no corpo de um novo e-mail como imagem.

Não sei se está certo abaixo, mas da forma que fiz ele seleciona a celula que preciso copiar e abre a janela de novo email do Outlook, porém não copia e também não cola no corpo do e-mail, ja tentei incluir alguns códigos porém sempre dá erro...

Sub Email()

 ActiveSheet.Range("A1:p26").Select
 
Dim olApp As Object
Dim Msg As Object

Set olApp = CreateObject("Outlook.Application")
Set Msg = olApp.CreateItem(0)

Msg.Display

Set Msg = Nothing
Set olApp = Nothing


End Sub
 
Postado : 03/01/2018 10:24 pm
(@klarc28)
Posts: 971
Prominent Member
 

Favor verificar o anexo

 
Postado : 04/01/2018 4:17 am
(@klarc28)
Posts: 971
Prominent Member
 

Favor verificar o anexo

 
Postado : 04/01/2018 4:18 am
(@klarc28)
Posts: 971
Prominent Member
 

Favor verificar o anexo

 
Postado : 04/01/2018 4:19 am
(@klarc28)
Posts: 971
Prominent Member
 

Favor verificar o anexo

 
Postado : 04/01/2018 4:20 am
(@klarc28)
Posts: 971
Prominent Member
 

Favor verificar o anexo

 
Postado : 04/01/2018 4:22 am
(@klarc28)
Posts: 971
Prominent Member
 

Favor verificar o anexo

 
Postado : 04/01/2018 4:27 am
(@klarc28)
Posts: 971
Prominent Member
 

Favor verificar o anexo

 
Postado : 04/01/2018 4:39 am
(@klarc28)
Posts: 971
Prominent Member
 

Favor verificar o anexo

 
Postado : 04/01/2018 5:14 am
(@reeesouza)
Posts: 4
New Member
Topic starter
 

Acho que expliquei de forma errada, eu preciso colar somente como imagem no corpo do e-mail.
Não preciso achar imagem de nenhuma pasta, apenas o conteúdo da célula A1:P26 precisa ser colado como imagem.
Pelo qu eme foi passado não consegui fazer.

 
Postado : 04/01/2018 6:00 am
(@klarc28)
Posts: 971
Prominent Member
 

Favor verificar o anexo

 
Postado : 04/01/2018 6:42 am
(@reeesouza)
Posts: 4
New Member
Topic starter
 

AINDA DEU ERRO MINHA FORMULA, MAS VOU FAZER MANUAL JÁ QUE NÃO CONSEGUI, MAS OBRIGADO PELA AJUDA.

 
Postado : 04/01/2018 7:48 am
(@klarc28)
Posts: 971
Prominent Member
 

Favor verificar o anexo.

Testei e deu certinho.

Na planilha, onde está C:UsersafdDesktop

Você deve mudar para o endereço da sua área de trabalho.

 
Postado : 04/01/2018 8:11 am
(@reeesouza)
Posts: 4
New Member
Topic starter
 

DEU CERTO PRA ENVIAR O ARQUIVO, PORÉM NÃO QUERO ENVIAR O ARQUIVO EM ANEXO AO EMAIL, QUERO ENVIAR SOMENTE O CONTEÚDO DA CÉLULA A1:P26 NO CORPO DO EMAIL...

 
Postado : 04/01/2018 9:14 am
(@klarc28)
Posts: 971
Prominent Member
 

A macro envia a imagem no corpo do email.
Talvez eu tenha anexado o arquivo errado.
Favor testar novamente.
https://www.youtube.com/watch?v=gkpJlllyKqA

 
Postado : 04/01/2018 9:47 am