Ir para o conteúdo
  • Revista PROGRAMAR: Já está disponível a edição #60 da revista programar. Faz já o download aqui!

aapadeiro

vba colar imagem excel no email

Mensagens Recomendadas

aapadeiro

Boa tarde,

Preciso de enviar diariamente relatórios excel por email mas queria que os mesmos fossem em formato de imagem no corpo de email. Sabem como ajudar?

Já consegui fazer alguma coisa mas não consigo colar a imagem.

Sub envia_email()
   
    Set myOlApp = CreateObject("Outlook.Application")
    Set emailInforme = myOlApp.CreateItem(olMailItem)
    
     
    emailInforme.Subject = "Resumo diário : " & Range("B8").Value & " - " & Range("B7").Value
    
    MainWS = ActiveSheet.Name
    Worksheets.Add(After:=Worksheets(Worksheets.Count)).Name = "TempSheet"
    ActiveWorkbook.Sheets(MainWS).Select
    
    Range("A1:M13").Select
    reportImage = Selection.Copy
    
    ActiveWorkbook.Sheets("TempSheet").Select
    ActiveSheet.Pictures.Paste.Select
    
    Selection.Copy
     
    emailInforme.Display
    emailInforme.HTMLBody = reportImage & emailInforme.HTMLBody
     ' The above line doesn't work
     
     
    Application.DisplayAlerts = False
    Sheets("TempSheet").Select
    ActiveWindow.SelectedSheets.Delete

    Sheets(1).Select
    Range("B2").Select

End Sub

Será que alguém me consegue ajudar?

Obrogado!

Partilhar esta mensagem


Ligação para a mensagem
Partilhar noutros sites

Crie uma conta ou ligue-se para comentar

Só membros podem comentar

Criar nova conta

Registe para ter uma conta na nossa comunidade. É fácil!

Registar nova conta

Entra

Já tem conta? Inicie sessão aqui.

Entrar Agora

×

Aviso Sobre Cookies

Ao usar este site você aceita os nossos Termos de Uso e Política de Privacidade. Este site usa cookies para disponibilizar funcionalidades personalizadas. Para mais informações visite esta página.