none
Email Automático RRS feed

  • Pergunta

  • Olá

    A minha dúvida é a seguinte, estou desenvolvendo um macro de Change, pra quando uma coluna pra "Faltam 2 dias" ele lança um email automatico, mas eu só consigo fazer isso por enquanto com a "ActiveCell.row" e eu quero que seja automatico. dessa forma eu tenho que escrever na célula "H" no caso, "Faltam 2 Dias" para que o email seja lançado. quero saber se tem como fazer isso sem "ActiveCell.RoW" segue uma cópia de como está o macro até agora.


    Private Sub Worksheet_Change(ByVal Target As Range)
        
        Dim OutApp As Object
        Dim OutMail As Object
        Dim texto As String

        Set OutApp = CreateObject("Outlook.Application")
        Set OutMail = OutApp.CreateItem(0)

        Linha = ActiveCell.Row - 1
        
        If Target.Address = "$H$" & Linha Then
        
        If Plan3.Cells(Linha, 8) = "FALTAM 2 DIAS" Then
                
                texto = "Prezados, " & vbCrLf & vbCrLf & _
                "Faltam dois dias para vencer o prazo do Processo nº" & Plan3.Cells(Linha, 2) & " Publicado no Diário da Justiça no dia " & _
                Plan3.Cells(Linha, 1) & vbCrLf & _
                " Veja informações abaixo:" & vbCrLf & _
                "    Status: " & Plan3.Cells(Linha, 8) & vbCrLf & _
                "    Ordem do Juiz: " & Plan3.Cells(Linha, 9) & vbCrLf & vbCrLf & _
                "Atenciosamente," & vbCrLf & _
                "Artur Mangabeira Soares"
            End If

            With OutMail
                .To = "artursoares@prefeitura.sp.gov.br"
                .CC = ""
                .BCC = ""
                .Subject = "Atenção"
                .Body = texto
                .Display  
                                
            End With
            On Error GoTo 0

            Set OutMail = Nothing
            Set OutApp = Nothing
        End If
    End Sub

    terça-feira, 22 de julho de 2014 16:15