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:
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.
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.
Desenvolvo pequenas soluções em VBA Excel a valores que variam entre R$ 50,00 a R$ 200,00. Se te interessar, entre no meu instagran (vba_excel_desenvolvimento)
Atenciosamente
Wagner Morel
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.
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.
Desenvolvo pequenas soluções em VBA Excel a valores que variam entre R$ 50,00 a R$ 200,00. Se te interessar, entre no meu instagran (vba_excel_desenvolvimento)
Atenciosamente
Wagner Morel
Wagner,
Muito obrigado, deu certo!
Vou estudar esse código.
Abraço!