Estou aprendendo o VBA e encontrei a macro abaixo neste site. Ele funciona maravilhosamente, mas existe uma maneira de modificá-lo para que eu possa incluir um segundo anexo, selecionando o arquivo atualizado mais recentemente em uma pasta específica? Eu não sei o nome exato do arquivo, então vou precisar pegar o que foi modificado por último.
Private Sub Application_Reminder(ByVal Item As Object)
Dim objMsg As MailItem
Dim myAttachments As Outlook.Attachments
Set objMsg = Application.CreateItem(olMailItem)
Set myAttachments = objMsg.Attachments
If Item.MessageClass <> "IPM.Appointment" Then
Exit Sub
End If
If Item.Categories <> "Blue Category" Then
Exit Sub
End If
objMsg.To = Item.Location
objMsg.Subject = Item.Subject
objMsg.Body = Item.Body
myAttachments.Add "C:\Test.txt"
objMsg.Send
Set objMsg = Nothing
End Sub
Muito obrigado por qualquer ajuda!
Tags microsoft-outlook vba