Ir ao conteúdo
  • Cadastre-se
Entre para seguir isso  
Unsu

Vba colar especial

Recommended Posts

Bom dia a todos.

 

Eu estou usando um VBA para, a partir do excel, abrir uma nova mensagem do Outlook, para facilitar o envio de um relatório.

 

Queria saber como faço para adicionar nesse código a função de colar em bitmap (copiar do excel eu já sei). Só queria a função de colar mesmo.

Sub Email()
 Dim olApp As Object
 Dim Msg As Object
 Set olApp = CreateObject("Outlook.Application")
 Set Msg = olApp.CreateItem(0)
 Msg.Subject = "XXXX"
 Msg.CC = "XXXXX"
 Msg.BCC = "Ocultos"
 Msg.Body = "Prezados, bom dia!" & Chr(10) & "" & Chr(10) & "Segue relatório atualizado com as informações de agosto/16." & Chr(10) & "" & Chr(10) & "Para realizar o download do arquivo clique aqui." & Chr(10) & "" & Chr(10) & "http://link_do_relatório_na_internet.com"
 Msg.Display
 Set Msg = Nothing
 Set olApp = Nothing
 
End Sub

 

Outra dúvida. como faço para aquele link da fórmula entrar como um hiperlink no "clique aqui"?

 

Muito obirgado pela ajuda e pelo seu tempo ao ler isso.

Compartilhar este post


Link para o post
Compartilhar em outros sites

Crie uma conta ou entre para comentar

Você precisar ser um membro para fazer um comentário

Criar uma conta

Crie uma nova conta em nossa comunidade. É fácil!

Crie uma nova conta

Entrar

Já tem uma conta? Faça o login.

Entrar agora
Entre para seguir isso  





Sobre o Clube do Hardware

No ar desde 1996, o Clube do Hardware é uma das maiores, mais antigas e mais respeitadas publicações sobre tecnologia do Brasil. Leia mais

Direitos autorais

Não permitimos a cópia ou reprodução do conteúdo do nosso site, fórum, newsletters e redes sociais, mesmo citando-se a fonte. Leia mais

×