Macro enviar e-mail padrão automático

Macro para enviar e-mail com destinatário, assunto e mensagem já preenchida de forma de forma automática, com opção de anexar qualquer arquivo disponível.


Acesse a guia Desenvolvedor, Visual Basic e crie um novo módulo
Insira o código abaixo, substituindo os textos em vermelho.

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 = ("xlplanilhas@msn.com;xleves@msn.com")
    .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:\teste.doc"
    .Display
End With
End Sub