Macro para copiar e colar no corpo do E-mail (Outlook)  [Resolvido]

Visual Basic for Aplication e macros no Excel.
Regras do fórum
Sua dúvida foi respondida? Marque como RESOLVIDO em seus tópicos, usando o botão com marca verde. Imagem

Macro para copiar e colar no corpo do E-mail (Outlook)

Mensagempor TutoElizeu » Ter Nov 14, 2017 10:44 am

Bom dia Senhores!

Depois de quebrar a cabeça ontem o dia todo e a noite resolvi pedir ajuda!

Eu preciso enviar um farol automaticamente por e-mail para alguns gestores de Plano de ação.
Preciso copiar as informações da aba "Email" das células A1 até G16 e colar como figura (para não perder a formatação) no corpo do e-mail e enviar para os gestores dos Projetos.

Até consegui mais ou menos, mas no final da erro, ficva tudo desconfigurado e não cola como figura.

Vocês podem me ajudar?

Código que estou usando:
Código: Selecionar todos
Sub Email()
Application.ScreenUpdating = False
Range("A1:G16").Copy Destination:=Planilha2.Range("A1:G16")
Planilha2.Select
ActiveWorkbook.EnvelopeVisible = True
    With ActiveSheet.MailEnvelope
        .Introduction = "Farol - Status de Indicadores"
        .Item.To = "elizeu.martins@imcopa.com.br"
        .Item.Subject = "Farol Status de Projetos"
        .Item.Send
    End With
ActiveCell.Activate
MsgBox "Sua mensagem foi enviada com sucesso!!", vbInformation, "Planejamento"
Application.ScreenUpdating = True
End Sub


Obrigado.
Você não está autorizado a ver ou baixar esse anexo.
Editado pela última vez por wagner em Ter Nov 14, 2017 10:55 am, em um total de 1 vez.
Razão: Códigos VBA devem ser inseridos com a TAG CODE existente no início da caixa de mensagens.
TutoElizeu
Membro
Membro
 
Mensagens: 103
Registrado em: Dom Dez 13, 2015 8:39 pm
Has thanked: 6 times
Have thanks: 1 time

{ SO_SELECT }

Re: Macro para copiar e colar no corpo do E-mail (Outlook)

Mensagempor wagner » Ter Nov 14, 2017 11:02 am

TutoElizeu,

Bom dia!

Por gentileza, os códigos VBA aqui no fórum devem ser inseridos através da ferramenta CODE existente logo no início da caixa de mensagens. Os arquivos anexados também devem estar compactados com .ZIP (regras do fórum).

Quanto a sua dúvida, segue um arquivo exemplo que faz exatamente o que você quer (enviar uma parte da planilha como figura no corpo do email). Adapte as suas necessidades, pois da forma que você fez (utilizando o sistema de envio de email direto do próprio Excel - Envelope) não funciona.
Você não está autorizado a ver ou baixar esse anexo.
Se a resposta foi últil para você, por gentileza, Amigo,clique na mãozinha ao lado direito da sua tela. No canto superior.

Atenciosamente
Wagner Morel
Avatar do usuário
wagner
Moderador
Moderador
 
Mensagens: 3027
Registrado em: Sáb Out 20, 2012 12:49 pm
Localização: Fortaleza - CE
Has thanked: 43 times
Have thanks: 1331 times

Re: Macro para copiar e colar no corpo do E-mail (Outlook)

Mensagempor TutoElizeu » Ter Nov 14, 2017 12:37 pm

Obrigado pela ajuda meu amigo, mas não deu cetro!

dá erro na criação de arquivo temporário, talvez eu não tenha acesso a algumas pastas.

Ou eu não consegui adaptar.

Você como outro código?

Obrigado.
TutoElizeu
Membro
Membro
 
Mensagens: 103
Registrado em: Dom Dez 13, 2015 8:39 pm
Has thanked: 6 times
Have thanks: 1 time

Re: Macro para copiar e colar no corpo do E-mail (Outlook)  [Resolvido]

Mensagempor wagner » Ter Nov 14, 2017 2:14 pm

Ok.

Segue a adaptação já feita.

Observação: Veja que para funcionar corretamente é necessário antes inserir uma Referência no menu do VBA (está escrito no comentário do código.
Você não está autorizado a ver ou baixar esse anexo.
Se a resposta foi últil para você, por gentileza, Amigo,clique na mãozinha ao lado direito da sua tela. No canto superior.

Atenciosamente
Wagner Morel

For this post the author wagner thanked:
TutoElizeu (Ter Nov 14, 2017 2:49 pm)
Avatar do usuário
wagner
Moderador
Moderador
 
Mensagens: 3027
Registrado em: Sáb Out 20, 2012 12:49 pm
Localização: Fortaleza - CE
Has thanked: 43 times
Have thanks: 1331 times

Re: Macro para copiar e colar no corpo do E-mail (Outlook)

Mensagempor TutoElizeu » Ter Nov 14, 2017 2:49 pm

Wagner,

Muito obrigado, deu certo!
Vou estudar esse código.

Abraço!
TutoElizeu
Membro
Membro
 
Mensagens: 103
Registrado em: Dom Dez 13, 2015 8:39 pm
Has thanked: 6 times
Have thanks: 1 time


Voltar para VBA & Macros

Quem está online

Usuários navegando neste fórum: Google [Bot] e 6 visitantes