Я изучаю VBA и нашел макрос ниже на этом сайте. Это прекрасно работает, но есть ли способ изменить его, чтобы я мог включить второе вложение, выбрав самый последний обновленный файл в определенной папке? Я не буду знать точное имя файла, поэтому мне нужно будет выбрать тот, который был изменен последним.

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

Большое спасибо за любую помощь!!

0