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 = "theuser@domain.demo"
newMsg.Send

Set objMsg = Nothing
End Sub