Este fórum está sendo desativado

[matheuspaixao19]

Pessoal Bom dia!

Estou montando uma macro para envio de múltiplos e-mails seguindo uma mesma condição, no entanto ela só está enviando o primeiro e-mail e para, alguém saberia me esclarecer ?

Sub enviar_notificacao()

Dim outlookApp As Object
Dim outlookMail As Object
Set outlookApp = CreateObject("outlook.application")
Set outlookMail = outlookApp.CreateItem(0)


On Error Resume Next

Dim i As Integer
For i = 1 To 3

If Notifications.Range("E" & i + 6).Value <> "ok" Then

With outlookMail
.To = Notifications.Range("D" & i + 6).Value
.cc = ""
.bcc = ""
.Subject = "Compliance Training Notification"
.HTMLbody = Notifications.Range("F" & i + 6).Value
.display
.send

End With
End If

Next i

On Error GoTo 0

Set outlookMail = Nothing
Set outlookApp = Nothing

End Sub

[osvaldomp]

If Notifications.Range("E" & i + 6).Value <> "ok" Then

Provavelmente E7 <> ok.
Verifique se E8 e E9 também não contém "ok".

[matheuspaixao19]

Veirifiquei mas ele ainda só faz a primeira rotina e para, quando faço o codigo para mostrar o e-mail apenas, sem enviar consigo ver que ele monta todos, mas descarta.. pus em anexo caso alguem saiba me ajuda

[osvaldomp]

Experimente.

Código: Selecionar todos

Sub enviar_notificacao()
 Dim outlookapp As Object
 Dim outlookmail As Object
 Dim i As Integer
  Set outlookapp = CreateObject("outlook.application")
   For i = 1 To 3
    If Notifications.Range("E" & i + 6).Value <> "ok" Then
     Set outlookmail = outlookapp.CreateItem(0)
      With outlookmail
       .To = Notifications.Range("D" & i + 6).Value
       .cc = "matheuspaixao19@hotmail.com"
       .BCC = ""
       .Subject = "Compliance Training Notification"
       .HTMLbody = Notifications.Range("F" & i + 6).Value
       .display
       .send
      End With
    End If
    'Windows("GRC_Trainings_31 de Out_com NPER.xlsm").Activate
    Set outlookmail = Nothing
   Next i
  Set outlookapp = Nothing
End Sub

obs. deixei desativada a linha abaixo pois não vejo relação com o código.
'Windows("GRC_Trainings_31 de Out_com NPER.xlsm").Activate

[matheuspaixao19]

Muito Obrigado meu amigo! salvou aqui!