全部显示

Forward 方法

执行项目的“转发”动作。将结果副本作为新对象返回（对于 MeetingItem 对象是 MeetingItem 对象，而对于“应用于”列表中的其他对象，则是 MailItem 对象）。

expression  必选。该表达式返回“应用于”列表中的一个对象。

示例

本 Visual Basic for Applications 示例使用 GetDefaultFolder 方法返回表示当前用户默认“收件箱”文件夹的 MAPIFolder 对象。然后使用 Forward 方法检索默认“收件箱”文件夹中的第一封邮件，并将其转发给 Laura Jennings。如果该名称能在“通讯簿”中进行无歧义地解析，则可使用 Add 方法将“Laura Jennings”添加到 Recipients 集合并且用 Send 方法将项目发送给所有收件人。

Set myOlApp = CreateObject("Outlook.Application")
Set myNameSpace = myOlApp.GetNameSpace("MAPI")
Set myFolder = myNameSpace.GetDefaultFolder(olFolderInbox)
Set myForward = myFolder.Items(1).Forward
myForward.Recipients.Add "Laura Jennings"
myForward.Send

如果使用 VBScript，则不创建 Application 对象，而且也不能使用命名常量。本示例说明如何使用 VBScript 执行相同任务。

Set myNameSpace = Application.GetNameSpace("MAPI")
Set myFolder = myNameSpace.GetDefaultFolder(6)
Set myForward = myFolder.Items(1).Forward
myForward.Recipients.Add "Laura Jennings"
myForward.Send