Ivina's questions

Estou desenvolvendo um controle de expiração que deve enviar avisos para as pessoas que os documentos estão próximos do vencimento, existem documentos que devem ser cobrados 180 dias antes do vencimento e outros com apenas 30 dias, a ideia é que esse VBA ao invés de enviar 1200 documentos em vários e-mails, envie uma lista de documentos vencidos para as pessoas, por exemplo: para a analista Valéria devemos enviar a coleção de mais de 100 documentos que estão vencidos, mas ao invés de enviar 100 e-mails, criar uma lista e enviar em um único e-mail deixando sua gestão em cópia. Abaixo segue o código e a foto da planilha:

Fiz esse código, mas ele não atende minha real necessidade:

    Sub alerta_email()

Dim MeuOutlook As Outlook.Application
Dim CriarEmail As Outlook.MailItem

Range("E14").Activate

Do Until ActiveCell.Value = ""

If ActiveCell.Offset(0, 1).Value < Range ("F14").Value or ActiveCell.Offset(0, 1).Value < Range ("F15").Value Then

Set MeuOutlook = New Outlook.Application
Set CriarEmail = MeuOutlook.CreateItem(olMailItem)

With CriarEmail
     .BodyFormat = olFormatHTML
     .Display
     .HTMLBody = "Automatic alert" & "<br>" & "The document: " _
     & ActiveCell.Offset(0,2).Value & " Belonging to the group " _
     & ActiveCell.Offset(0, -3).Value & " It will expire in " _
     & ActiveCell.Offset(0, 1).Value & " days."
     .To = Range("N14").Value
     .CC = Range ("O14").Value
     .Subject = "Contract expiration alert: " & 
      ActiveCell.Offset(0, -2).Value
     .Send
End With

End If

ActiveCell.Offset(1, 0).Select

Loop

MsgBox ("Alert sent successfully")

End Sub

Quando executo a macro ela também está considerando os documentos que não estão vencidos. E a lista inteira ela está considerando enviar somente para Ana e seu gerente, em vez de considerar outro analista e outro gerente deste analista.

Caderno de exercícios ] 1 Caderno de exercícios 2 ] 2