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

电子邮件应转发并停止