VBA para envio automático de planilha através do Outlook 365

Question

Pessoal,

Bom dia!

Estou precisando montar um código para o qual eu consiga enviar uma planilha em anexo através do Outlook 365, já tenho um código pronto, porém não consigo direcionar o e-mail para Outlook 365.

Alguém pode me ajudar?

Segue código:

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 = ("[e-mail];[e-mail]")
    .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 "LOCAL DO ARQUIVO"
    .Display
End With
End Sub