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 o Aplicativo Microsoft Excel VBA
Publicidade: Compre com segurança, garantia e ótimos preços.
|