Макрос VBA для пересылки одного сообщения за раз из определенной папки

Question

Я пытаюсь сгенерировать тестовый сценарий, в котором несколько сообщений будут переадресовываться на электронный адрес пользователя по одному, чтобы пользователь мог правильно отвечать на сообщения.

У меня есть настроенный каталог под названием «Тестирование», в котором хранятся все сообщения, которые я хочу переслать.

Я хочу запустить макрос и попросить его изменить строку темы и переслать каждое сообщение по одному указанному пользователю.

Я пробовал несколько примеров, которые, казалось бы, работали, но не смогли автоматически выбрать правильный каталог. Вот где я борюсь.

Ниже приведен пример кода, который я использовал.

Public Sub Testing1()
Dim myolApp As Outlook.Application
Dim aItem As Object
Dim myFolder As Outlook.Folder
Dim FolderPath As String

FolderPath = "Email@email.com\Testing"

Set ActiveExplorer.CurrentFolder = FolderPath
Set myolApp = CreateObject("Outlook.Application")
Set mail = myolApp.ActiveExplorer.CurrentFolder


For Each aItem In mail.Items
      aItem.Subject = "TEST MESSAGE: " & aItem.Subject
    aItem.Save

    Set myForward = aItem.Forward
    myForward.Recipients = "(email address goes here)"
    myForward.Send
' Exit Sub   'Leave this in to test one message at a time
Next aItem
End Sub

Письма должны быть пересланы и остановлены