///
Um funcionário de uma instituição financeira mantém o controle dos vencimentos das operações de crédito na sua carteira com uma planilha no Microsoft Excel. A seguir, é mostrada parte da planilha, tal como ela se apresentava em 9/11/2023, com os títulos das colunas e alguns valores de algumas linhas. Cada operação de crédito corresponde a uma linha na planilha.
A instituição utiliza uma régua de cobrança, da qual foram extraídas as seguintes informações:
10 dias antes da data de vencimento: envio do boleto ao cliente (email ou carta); data de vencimento: último dia para pagamento pelo cliente; 5 dias após o vencimento: no caso de o pagamento não ser informado pelo banco, envio do primeiro email de cobrança; 15 dias após o vencimento: no caso de o pagamento não ser informado pelo banco, envio do segundo email de cobrança.
O funcionário a que se refere o texto 2A4-II preparou uma macro pelo VBA para automatizar o envio do primeiro email de cobrança caso haja atraso no pagamento. A macro é executada todo dia e deve percorrer as cem linhas de operações da carteira controlada pelo funcionário. A planilha já está programada para alterar a data da coluna Proxima data vencimento quando o banco informar o pagamento da prestação. Assim, só constam como atrasadas as parcelas realmente não pagas. A macro tem a estrutura a seguir, em que (...) são linhas de comando que são relativas ao envio do email e que foram omitidas.
Sub Envio1Email()
Dim i As Integer
For i = 1 To 100
If Then
(...)
Next i
End SubA partir dessas informações, e considerando que o envio do email deve ser condicionado às regras da régua de cobrança mencionadas no texto 2A4-II, assinale a opção que apresenta o comando que pode substituir corretamente os três quadrados na macro em questão.