none
Envio automatico de email de acordo com o valor da célula RRS feed

  • Pergunta

  • Estou com mta dificuldade no Seguinte código:

    Private Sub Worksheet_Change(ByVal target As Range)
        Dim OL              As Object
        Dim EmailItem       As Object
        Dim texto As String
       
        Set OL = CreateObject("Outlook.Application")
        Set EmailItem = OL.CreateItem(0)
         
        linha = ActiveCell.Row - 1
        If target.Address = "$L$" & linha Then
       
            If Sheets("Plan8").Cells(linha, "L").Text = "Desligar" Then
                texto = "O dependente " & Sheets("Plan8").Cells(linha, 3) & Sheets("Plan8").Cells(linha, 2) & vbCrLf & _
                "Terá o plano chegando ao fim em " & Sheets("Plan8").Cells(linha, 11)
            End If
               
        With EmailItem
            .Subject = "ALERTA"
            .Body = Sheets("Plan8").Cells(linha, 13)
            .To = "thalyswylton@hotmail.com"
            .Send
        End With
        On Error GoTo 0
      
       
        Set OL = Nothing
        Set EmailItem = Nothing
       
        End If
    End Sub



    O que eu preciso é o seguinte... a coluna L é o resultado de uma fórmula SE; eu preciso que toda vez que alguma linha da coluna L apareça a palavra Desligar (como resultado de uma fórmula se), dispare o email.

    O código acima sempre envia email, independentemente com o valor que apareça na coluna L. Por sua vez o email só é disparado quando digitado um valor, ele não executa a fórmula automaticamente com o resultado das variáveis da Fórmula Se.
    sexta-feira, 28 de março de 2014 10:58