Texto 2A4-II
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.
|
F |
G |
h |
I |
||
|
1 |
Proxima data vencimento |
Qtde dias vencido |
|
||
|
2 |
27/10/2023 |
13 |
abc@def.ghi |
||
|
3 |
15/11/2023 |
-6 |
xyz@rst.uvw |
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 Sub
A 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.
