VBA - 设置Outlook 2010标志，然后转发电子邮件

Question

我正在寻找一些VBA，它将在选定的电子邮件上设置一个标志，然后将其转发到预定义的电子邮件地址。我已经能够使用以下VBA为邮件设置标志，但是我不确定如何将转发过程添加到预定义的电子邮件地址。

Public Sub SetCustomFlag()
Dim objMsg As Object
With objMsg
.FlagRequest = "Assigned to JP " & objMsg.SenderName
.ReminderSet = True
.Save
End With
Set objMsg = Nothing
End Sub

Answer 1

Public Sub SetCustomFlag()
Dim objMsg As Object
Dim newMsg As Object
With objMsg
.FlagRequest = "Assigned to JP " & objMsg.SenderName
.ReminderSet = True
.Save
End With
set newMsg = objMsg.Forward
newMsg.To = "[e-mail]"
newMsg.Send
Set objMsg = Nothing
End Sub