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

  • Discussão Geral

  • 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 = ("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 "LOCAL DO ARQUIVO"
        .Display
    End With
    End Sub

    quinta-feira, 27 de junho de 2019 13:28