Fóruns
Microsoft Excel - 2...
2024 - VBA & Macros
Envio de Email via ...
 
Notifications
Clear all

Envio de Email via Notes (VBA)

 
2024 - VBA & Macros
Post Recente por Wagner Morel 9 anos atrás
2 Posts
2 Usuários
0 Reactions
566 Visualizações
RSS
 PamThaires
(@pamthaires)
Posts: 0
New Member
Topic starter
 

Olá,

Estou usando um código de envio via Notes que está funcionando. O código deve procurar as células igual a 15 e enviar um email. Quando ele encontra o primeiro "15" ele executa a macro e envia o email. Mas preciso que isso se repita, ou seja, que ele procure o próximo 15, e envie email para o usuário, que é diferente do primeiro...alguma ajuda? Please!?

Lembro que são emails diferentes e não um email para mais de um destinatário... Eu só queria que ele lesse o código de novo, enquanto tiver a condição, que no meu caso é "15".

Obrigada!!!

 
Postado : 17/11/2015 12:07 pm
 Wagner Morel
(@wagner-morel-vidal-nobre)
Posts: 4063
Famed Member
 

PamThaires,

Boa tarde!

Supondo que o "15" está na coluna C, que os dados (fora cabeçalho) começam na linha 2, que a última linha com dados é a linha 10 e que o endereço de email está na coluna F:

Sub EnvioDeEmail()
    Dim i As Long
    
    For i = 1 To 10
        If Range("C" & i).Value = "15" Then
            'Aqui entra seu código que envia email.
            'OBS.: No comando onde envia o email coloque o conteúdo da célula F
            Email.to = Range("F" & i).Value
        End If
    Next
End Sub
 
Postado : 17/11/2015 12:15 pm
Forum Jump:
  Tópico Anterior
Próximo Tópico