none
Envio de E-mail pelo Excel (Outlook 365) RRS feed

  • Pergunta

  • Bom dia!

    Por gentileza, como seria o código para enviar um e-mail pelo Outlook 365, ou seja, aberto no navegador, e não no app outlook da máquina direto por um botão em uma planilha do excel?

    Exemplo de envio pelo APP (parte do código), porém quero enviar pelo navegador (Explorer) no 365.

    Private Sub CommandButton1_Click()


    If TextBox1 = "" Then

        Me.CommandButton1.Caption = "Enviar E-mail"

        Else

        Me.CommandButton1.Caption = "E-mail Enviado"

    End If


    'Updated by Extendoffice 2017/9/14


            Dim TempFilePath As String

            Dim xOutApp As Object

            Dim xOutMail As Object

            Dim xHTMLBody As String

            Dim xRg As Range

            On Error Resume Next

            Set xRg = Range("$D$36:$S$42")

            If xRg Is Nothing Then Exit Sub

            

            With Application

                .Calculation = xlCalculationAutomatic

                .ScreenUpdating = False

                .EnableEvents = False

                

            End With

            Set xOutApp = CreateObject("outlook.application")

            Set xOutMail = xOutMail.CreateItem(olMailItem)

            Call createJpg(ActiveSheet.Name, xRg.Address, "DashboardFile")

            TempFilePath = Environ$("temp") & "\"

            strbody = Range("w85") _

    Desde já agradeço!

    quinta-feira, 13 de junho de 2019 12:06