Adicionando o arquivo mais recente como um anexo ao script vba de email planejado

0

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!

    
por DonnaK 08.06.2017 / 18:56

0 respostas