glhalves

Olá!! Recentemente realizei uma forma de enviar Lembretes de Vencimento de Fatura, usando a integração Excel, Outlook, porém por algum motivo está somente lendo a primeira linha da planilha, se alguém puder me ajudar, ficarei grato!! Segue o código!! Sub enviar_email_vencimento() Set outlook_app = CreateObject("Outlook.Application") ultima_linha = Planilha1.UsedRange.Rows.Count For linha = 2 To ultima_linha status_envio = Cells(2, "G").Value status_pagamento = Cells(2, "E").Value vencimento = Cells(2, "F").Value If vencimento - Date <= 3 And status_envio <> "Enviado" And status_pagamento = "Pendente" Then Set msg = outlook_app.createitem(0) msg.display msg.To = Cells(2, "B").Value nome = Cells(2, "A").Value msg.Subject = "Sua fatura vence no dia " & vencimento msg.Body = "Olá " & nome & ", informamos que a sua fatura em anexo vence no dia " & vencimento anexo = Cells(2, "D").Value msg.attachments.Add anexo msg.send Cells(2, "G").Value = "Enviado" End If Next For linha = 2 To ultima_linha If vencimento - Date <= 7 And status_envio <> "Enviado" And status_pagamento = "Pendente" Then Set msg = outlook_app.createitem(0) msg.display msg.To = Cells(2, "B").Value nome = Cells(2, "A").Value msg.Subject = "Sua fatura vence no dia " & vencimento msg.Body = "Olá " & nome & ", informamos que a sua fatura em anexo vence no dia " & vencimento anexo = Cells(2, "D").Value msg.attachments.Add anexo msg.send Cells(2, "G").Value = "Enviado" End If Next For linha = 2 To ultima_linha If vencimento - Date >= 1 And status_envio <> "Enviado" And status_pagamento = "Pendente" Then Set msg = outlook_app.createitem(0) msg.display msg.To = Cells(2, "B").Value nome = Cells(2, "A").Value msg.Subject = "Sua fatura venceu no dia " & vencimento msg.Body = "Olá " & nome & ", informamos que a fatura em anexo venceu no dia " & vencimento anexo = Cells(2, "D").Value msg.attachments.Add anexo msg.send Cells(2, "G").Value = "Enviado" End If Next For linha = 2 To ultima_linha If vencimento - Date >= 5 And status_envio <> "Enviado" And status_pagamento = "Pendente" Then Set msg = outlook_app.createitem(0) msg.display msg.To = Cells(2, "B").Value nome = Cells(2, "A").Value msg.Subject = "Sua fatura venceu no dia " & vencimento msg.Body = "Olá " & nome & ", informamos que a fatura em anexo venceu no dia " & vencimento anexo = Cells(2, "D").Value msg.attachments.Add anexo msg.send Cells(2, "G").Value = "Enviado" End If Next End Sub