通过

MailItem.Forward 方法 (Outlook)

  • 项目

为某个项目执行 "转发" 动作，并将结果副本作为 MailItem 对象返回。

语法

expression。 Forward

expression 表示 MailItem 对象的变量。

返回值

MailItem 对象，该对象代表新邮件项。

示例

此 Visual Basic for Applications (VBA) 示例使用 Remove 方法之前将其发送到 Dan Wilson 转发的邮件中删除所有附件。 若要运行此示例，用有效的收件人姓名替换 Dan Wilson，并保持一封邮件，其中包含至少一个附件在活动窗口中打开。

Sub RemoveAttachmentBeforeForwarding() 
 
 Dim myinspector As Outlook.Inspector 
 
 Dim myItem As Outlook.MailItem 
 
 Dim myattachments As Outlook.Attachments 
 
 
 
 Set myinspector = Application.ActiveInspector 
 
 If Not TypeName(myinspector) = "Nothing" Then 
 
 Set myItem = myinspector.CurrentItem.Forward 
 
 Set myattachments = myItem.Attachments 
 
 While myattachments.Count > 0 
 
 myattachments.Remove 1 
 
 Wend 
 
 myItem.Display 
 
 myItem.Recipients.Add "Dan Wilson" 
 
 myItem.Send 
 
 Else 
 
 MsgBox "There is no active inspector." 
 
 End If 
 
End Sub

另请参阅

MailItem 对象

支持和反馈

有关于 Office VBA 或本文档的疑问或反馈？ 请参阅 Office VBA 支持和反馈，获取有关如何接收支持和提供反馈的指南。