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.




   Baixe o exemplo de planilha contendo os macros acima: