Alerta por VBA no execel de um evento por meio de email

[Souza77]

 

Sou iniciante no universo da programação.

Tenho uma planilha de medição que eu uso e gostaria que 7 dias

antes de uma determinada data, fosse enviado um email a determinados

endereços alertando que a medição da obra deve ser realizada.

O meu progresso esta colado.

 

Poderiam me dar uma orientação, mostrar o caminho que devo seguir.

o código base que estou usando é uma cópia de um site americana.

Porem na sintaxe do comando if estou encontrando problemas para

fazer ela funcionar.

 

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 Plan1.Cells(E, 50) = "enviar email" Then
        If Plan1.Cells(E, 51) = "enviar email" Then
        If Plan1.Cells(E, 52) = "enviar email" Then
        If Plan1.Cells(E, 53) = "enviar email" Then
        If Plan1.Cells(E, 54) = "enviar email" Then
        If Plan1.Cells(E, 55) = "enviar email" Then
        If Plan1.Cells(E, 56) = "enviar email" Then
        If Plan1.Cells(E, 57) = "enviar email" Then
              texto = "Faltam" & Plan1.Cells(D, 50) & _
                    "Favor realizar a:" & Plan1.Cells(C, 50) & _
                    "Data final:" & Plan1.Cells(L, 6) & _
                    "Grato " & Plan1.Cells(C, 48)
        End If

        With OutMail
            .To = "m.souza@gamafire.com.br"
            .cc = "m.souza@gamafire.com.br"
            .BCC = ""
            .Subject = "Realizar medição"
            .HTMLBody = texto
            .Send
        End With
        On Error GoTo 0

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

 Grato.

 

Editado Novembro 25, 2015 por Souza77
Acrescentar o código