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.