none
Bom noite, Pessoal. RRS feed

  • Pergunta

  • Uso essa macro para enviar e-mail automático, porem o e- mail so é enviado depois que eu abro o Outlook, depois que o Outlook abre aparece  atualizando pastas, e envia o e-mail.

    gostaria de saber se envia mesmo sem precisar abrir o outlook ?

    Dim xOutApp As Object
        Dim xOutMail As Object
        Dim xMailBody As String
        Set xOutApp = CreateObject("Outlook.Application")
        Set xOutMail = xOutApp.CreateItem(0)
        xMailBody = "Operador/Auxiliar: " & Cells(e, 7) & vbNewLine & vbNewLine & _
                 "Chapa: " & Cells(e, 6) & vbNewLine & _
                 "Área: " & Cells(e, 8) & vbNewLine & _
                 "Máquina ou Área comprometida: " & Cells(e, 14) & vbNewLine & _
                  "Problemas: " & Cells(e, 16) & vbNewLine & _
                  "Nível de risco: " & Cells(e, 13) & vbNewLine & _
                  "Condições de risco: " & Cells(e, 12) & vbNewLine & _
                  "Mecânica/Elétrica: " & Cells(e, 15) & vbNewLine & _
                  "Cor da etiqueta: " & Cells(e, 11) & vbNewLine & vbNewLine & _
                  "Nºordem: " & Cells(e, 1) & vbNewLine & _
                  "-" & Cells(e, 5) & vbNewLine & _
                  "-" & Cells(e, 3) & vbNewLine & _
                  "Nº O.S:" & Cells(e, 4) & vbNewLine & _
                  ""

        On Error Resume Next
        With xOutMail
            .To = Cells(e, 17)
            .CC = ""
            .BCC = ""
            .Subject = Cells(e, 8) & " - Uma etiqueta foi aberta"
            .Body = xMailBody
            .attachments.Add ActiveWorkbook.FullName
            .Send

        End With
        On Error GoTo 0
        Set xOutMail = Nothing
        Set xOutApp = Nothing

    abs,

    segunda-feira, 17 de setembro de 2018 21:15