Excel planilha vba envia tabela no corpo email

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.
Excel planilha vba email envia celulas corpo email (64.38 KB)

Tags: