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.

Escola SaberExcel VBA Estudos® - Treinamentos com Macros, Fórmulas e Funções

Esses macros do Aplicativo Microsoft Excel VBA(Visual Basic Application), envia uma tabela do excel no corpo do email
essa planiha faz parte das planilhas da área exclusiva para assinantes Saberexcel
(todos os dias uma nova publicação) são milhares de planilhas.

Sub enviar_planilha_corpo_email()
Application.ScreenUpdating = False
Range ("vIntervalo").Copy Destination:=EscolaSaberExcel.Range("A1")
EscolaSaberExcel.Select
ActiveWorkbook.EnvelopeVisible = True
With ActiveSheet.MailEnvelope
.Introduction = "ESCOLA SABEREXCEL VBA ESTUDOS"
.Item.To = "[email protected]"
.Item.Subject = "PRODUTOS DIDÁTICOS MS EXCEL VBA"
.Item.Send
End With
ActiveCell.Activate
MsgBox "Sua mensagem foi enviada com sucesso!!", vbInformation, "Escola SaberExccel VBA Estudos®"
Application.ScreenUpdating = True
End Sub

Private Sub Adicionar_Planilha_Click()
ActiveSheet.Copy Before:=Sheets(1)
Sheets(1).Range("C3").Value = Sheets(1).Range("C3").Value + 14
End Sub

Private Sub Enviar_Click()
Call enviar_planilha_corpo_email
End Sub

Private Sub cmdRENOMEARPLAN_Click ()
ActiveSheet.Name = ActiveSheet.Range("F4").Value
MsgBox ("Planilha renomeada [ " & ActiveSheet.Range("F4").Value & " ] com sucesso"), vbInformation, "Escola Saberexcel VBa Estudos®"
End Sub

//=======' na folha de código da folha de Planilha
Private Sub Worksheet_Change(ByVal Target As Range)
ActiveSheet.Name = ActiveSheet.Range("F4").Value
End Sub

Aprenda tudo sobre planilhas do Aplicativo Microsoft Excel VBA(Visual Basic Application), sozinho, com baixo custo, praticando com os produtos didáticos Escola SaberExcel VBA Estudos® - Treinamentos com Macros, Fórmulas e Funções.





baixe o exemplo de planilha contendo os macros acima.

Escola Saberexcel VBA Estudos® - Treinamentos com Macros, Fórmulas e Funções

'Esse macro envia email com anexo para vários emails,
'insere dados no corpo do email e dados no corpo, mude o caminho do direto do arquivo
ou planilha para realização do seu teste que for enviar anexo para os emails que relacionar no macro.
Fique com Deus, Expedito Marcondes.

'- - - - - - - - - - - - - - - -
Sub ENVIAR_EMAIL_ADD_PLANILHA()
Dim MyOlapp As Object, MeuItem As Object
Set MyOlapp = CreateObject("Outlook.Application")
Set MeuItem = MyOlapp.CreateItem(olMailItem)
With MeuItem
.to = ("[email protected];[email protected]")
.Subject = "RELATORIO: PAGAMENTOS DE JANEIRO/2020"
.Body = "Bom dia Sr." & Plan1.[d1].Value & vbCrLf & _
"Anexo estamos lhe enviando a planilha Relatório" & vbCrLf & _
"Janeiro/2020 " & _
"Saudações " & vbCrLf & _
Plan1.[D2].Value
'troque o diretorio do documento que queira enviar 'add' anexo.
.Attachments.Add "C:\SaberExcel\decompor_treina_email.xlsm"
.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 Escola Saberexcel VBA Estudos® - Treinamentos com Macros, Fórmulas e Funções.

Escola Saberexcel VBA Estudos® - Treinamentos com Macros, Fórmulas e Funções

Esse procedimento do Aplicativo Microsoft Excel VBA, usando Evento de folha de Planilha Evento Worksheet_Change() ao escrever
em determinada coluna, o procedimento usando a Função Split, decompõe um endereço de email em nome e servidor,
sendo que o Servidor irá para uma coluna e o nome para outra pré-determinada no procedimento(macro)

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Column <> 5 Or Target.Count > 1 Then Exit Sub
If InStr(1, Target, "@") > 0 Then
Range("K" & Target.Row) = Split(Target, "@")(0)
Range("M" & Target.Row) = Split(Target, "@")(1)
Range("E" & Target.Row).Font.Size = 8
End If
End Sub



Aprenda tudo sobre planilhas do Aplicativo Microsoft Excel VBA(Visual Basic Application), sozinho, com baixo custo, praticando com os produtos didáticos Escola Saberexcel VBA Estudos® - Treinamentos com Macros, Fórmulas e Funções.

Aprenda tudo sobre planilhas do Aplicativo Microsoft Excel VBA(Visual Basic Application), sozinho, com baixo custo, praticando com os produtos didáticos Escola Saberexcel VBA Estudos® - Treinamentos com Macros, Fórmulas e Funções.