jhondantas,

Boa noite!

Seja muito bem vindo ao fórum.

Para aproveitar ao máximo o fórum e sempre manter o mesmo de forma organizada, sugiro ler os tópico da regras abaixo:
viewtopic.php?f=7&t=16757
viewtopic.php?f=7&t=203
viewtopic.php?f=7&t=7903
viewtopic.php?f=7&t=3841
viewtopic.php?f=7&t=12600
viewtopic.php?f=7&t=3371

Quanto a sua dúvida, anexe, aqui mesmo no fórum, seu arquivo, compactado com .ZIP e explique um pouco mais detalhadamente qual é realmente a sua necessidade pois, pelo menos para mim, sua explicação está confusa.

Em qual célula está essa fórmula =SE(Hoje()=D1? É depois que essa célula estiver preenchida com a data do dia (no micro) que a macro deve ser disparada?

Outra curiosidade:

Sendo D1 uma célula preenchida com a função =HOJE()

Nesse caso, se D1 é igual a Hoje() e a célula que disparará a macro é =SE(Hoje()=D1, então essa célula vai ser sempre igual ao dia atual. Como é isso?

Prezado,

A macro envia um e-mail pelo Excel através do Outlook.

Eu preencho uma determinada célula com o e-mail que servirá de destinatário.

Só que eu queria me enviar uma espécie de lembrete, explico;

Hoje é dia 30/11/2017; quando for dia 13 de dezembro de 2017 eu quero que a planilha envie o e-mail automaticamente através da macro criada que foi atribuída a um botão.

Segue a macro:

Sub MandaEmail_()

Dim EnviarPara As String
    Dim Mensagem As String

    For i = 1 To 10
        EnviarPara = ThisWorkbook.Sheets(2).Cells(i, 1)
        If EnviarPara <> "" Then
            Mensagem = ThisWorkbook.Sheets(2).Cells(i, 3)
            Envia_Emails EnviarPara, Mensagem
        End If
    Next i
End Sub

Sub Envia_Emails(EnviarPara As String, Mensagem As String)
    Dim OutlookApp As Object
    Dim OutlookMail As Object

    Set OutlookApp = CreateObject("Outlook.Application")
    Set OutlookMail = OutlookApp.CreateItem(0)
    With OutlookMail
        .To = EnviarPara
        .CC = ""
        .BCC = ""
        .Subject = "PROCESSO PUBLICADO"
        .Body = Mensagem
        .Send
                '.Display ' para envia o email diretamente defina o código  .Send
    End With

    Set OutlookMail = Nothing
    Set OutlookApp = Nothing

    
End Sub

Acho que entendi...

Você quer que quando faltar, por exemplo, 2 dias para chegar a data que está na célula D1, que o Excel emita um aviso para você informando que daqui a dois dias você deverá enviar o email. É isso?

Se for isso, anexe seu arquivo aqui no fórum (compactado com .ZIP).

Outro detalhe: Ao inserir código VBA no fórum, pedimos a gentileza de usar a ferramenta CODE que fica localizada logo acima da caixa de mensagens.

Agradeço amigo.

Vou seguir suas instruções.

Att

OK.

Aguardo você anexar o arquivo e explicar se é da forma que perguntei no último post.

Prezados

boa tarde.

Anexo a planilha.

A dúvida é a seguinte. Tenho um prazo vencendo, quando faltar, por exemplo, 5 dias para vencer é enviado um e-mail automaticamente avisando.

Desde já agradeço.

Att.

Primeiramente eu estava tentando entender como se montava essa planilha, aprendi. Agora só falta saber como faço para enviar um e-mail automático quando uma condição específica se implementar; exemplo, prazo.

Att

jhondantas,

Boa tarde!

Não consegui abrir seu arquivo. Não sei se porque foi compactado com .Rar ou se porque está corrompido. Poderia compactar com .ZIP?