Home Excel - Dicas Microsoft Excel VBA Excel VBA - Envia Email Excel planilha vba envia email envia tabela para corpo email planilha

Excel planilha vba envia email envia tabela para corpo email planilha

E-mail Imprimir PDF

SaberExcel VBA Estudos® - o site das macros

Essa macro do Aplicativo Microsoft Excel VBA, copia uma imagem de uma tabela para o corpo do outlook para envio de Email

Option Explicit

Sub Envia_selecao_celulas_via_email_HTML()
Dim objApp As Object, Novo_Email As Object
Dim sbObj As Scripting.FileSystemObject
Dim vlor_text As Scripting.TextStream
Dim rngValor As Range
Dim stHTMLBody As String
On Error Resume Next

'abre o inputbox para seleção da area a ser enviada...
Set rngValor = Application.InputBox("Selecione a area que deseja enviar via email:", _
, Selection.Address, , , , , 8)
If rngValor Is Nothing Then Exit Sub
On Error GoTo 0

'HTML-File cria um arquivo htm temporario
ActiveWorkbook.PublishObjects. _
Add(xlSourceRange, "C:\temp.htm", rngValor.Parent.Name, rngValor.Address, _
xlHtmlStatic).Publish True

'cria uma nova seção no outlook para envio
Set objApp = CreateObject("Outlook.Application")
Set Novo_Email = objApp.CreateItem(0)

'Abre HTML-file o arquivo Htm para inserção no texto do outlook via FIleSystemObject Textvlor_text objeto.
Set sbObj = New Scripting.FileSystemObject
Set vlor_text = sbObj.OpenTextFile("C:\temp.htm", ForReading)

stHTMLBody = vlor_text.ReadAll

With Novo_Email
.HTMLBody = stHTMLBody
.Display
End With


End Sub

Aprenda tudo sobre planilhas do Aplicativo Microsoft Excel VBA(Visual Basic Application), sozinho, com baixo custo, praticando com os produtos didáticos Saberexcel



Baixe o exemplo de planilha contendo a macro acima
Excel planilha vba envia email envia tabela para corpo email planilha (33.65 kB)




Publicidade:
Compre com segurança, garantia e ótimos preços.
Informática - Submarino.com.br

Última atualização em Sáb, 13 de Agosto de 2011 18:37  

Comentários  

 
# Carlos Oliveira 19/01/2014 12:38
Olá amigo, testei seu código mas dá erro na hora de criar o arquivo htm temporario.

Erro em tempo de execução 1004:
O método 'Publish' do objeto 'PublishObject' falhou

Sabe o que pode ser?
Abraço!
Responder | Responder com citação | Citação
 

Adicionar comentário

"Jamais considere seus estudos como uma obrigação, mas como uma oportunidade invejável para aprender a conhecer a influência libertadora da beleza do reino do espírito, para seu próprio prazer pessoal e para proveito da comunidade." Albert Einstein


Código de segurança
Atualizar

Pesquisa Google SaberExcel

Publicidade Google

Publicidade

Rastreamento Correios

Digite o número do SEDEX conforme o exemplo:
Correios do Brasil

Assinatura SaberExcel

Google Associados

Depoimentos

Visitantes SaberExcel

Excel VBA Estudos®
mod_vvisit_countermod_vvisit_countermod_vvisit_countermod_vvisit_countermod_vvisit_countermod_vvisit_countermod_vvisit_countermod_vvisit_counter
mod_vvisit_counterHoje1693
mod_vvisit_counterOntem5672
mod_vvisit_counterEsta Semana11824
mod_vvisit_counterSemana passada36487
mod_vvisit_counterEsse mês25553
mod_vvisit_counterMês passado153723
mod_vvisit_counterTodos10448382
Aprenda MS Excel VBA

Adicione Saberexcel Favoritos

 
 

Aprenda tudo sobre o Aplicativo Microsoft Excel VBA

Aprenda tudo sobre o Aplicativo Microsoft Excel VBA(Visual Basic Application), sozinho, com baixo custo, praticando com os produtos didáticos Saberexcel,


   Sobre as WorksheetFunctions Funções de Planilhas que retornam valores do VBA