none
Envio automático de E-mails RRS feed

  • Pergunta

  • Prezados, bom dia!

    Preciso disparar um e-mail automático sempre que um determinado valor seja superado; escrevi o código abaixo, mas ele não roda automaticamente pelo resultado da formula, contida na coluna "AU".
    Alguém pode me ajudar?
    Segue o código:

    Private Sub Worksheet_Change(ByVal Target As Range)
    Dim Column As Range
    linha = ActiveCell.Row
    texto = "A OP Nº " & Plan1.Cells(linha, 4) & ", do produto " & Plan1.Cells(linha, 13) & ", concluída em " & Plan1.Cells(linha, 9) & ", teve um refugo de " & (Plan1.Cells(linha, 47) * 100) & "%."
    assunto = "Excesso de Refugo"
    Set Column = Range("AU:AU")
    Dim olApp As Object, olMail As Object
    If Not Application.Intersect(Target, Range("AU:AU")) Is Nothing Then
    If IsNumeric(Target.Value) And Target.Value > 0.03 Then
    Set olApp = CreateObject("Outlook.Application")
    Set olMail = olApp.CreateItem(0)
    olMail.Subject = assunto
    olMail.Body = texto
    olMail.To = "jricardoq@gmail.com"
    olMail.Send
    MsgBox "Um e-mail foi enviado aos envolvidos, informando o refugo acima de 3% desta OP."
    Set olApp = Nothing
    Set olMail = Nothing
    End If
    End If
    End Sub
    terça-feira, 28 de março de 2017 15:09