Outlook VBA教程:Forward方法

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

expression.Forward

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

VBA示例

本 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

上页:Outlook VBA教程:FindNext方法 下页:Outlook VBA教程:ForwardAsVcal方法

Outlook VBA教程:Forward方法:相关链接

Outlook VBA教程:ForwardAsVcal方法 Outlook VBA教程:ForwardAsVcard方法
Outlook VBA教程:FreeBusy方法 Outlook VBA教程:GetAssociatedAppointment方法
Outlook VBA教程:GetAssociatedTask方法 Outlook VBA教程:GetDefaultFolder方法
Outlook VBA教程:GetExplorer方法 Outlook VBA教程:GetFirst方法
Outlook VBA教程:GetFolderFromID方法 Outlook VBA教程:GetFreeBusy方法
Outlook VBA教程:GetItemFromID方法 Outlook VBA教程:GetLast方法
Outlook VBA教程:GetMember方法 Outlook VBA教程:GetNameSpace方法
Outlook VBA教程:GetNext方法 Outlook VBA教程:GetOccurrence方法
Outlook VBA教程:GetPageInfo方法 Outlook VBA教程:GetPrevious方法
Outlook VBA教程:GetRecipientFromID方法 Outlook VBA教程:GetRecurrencePattern方法
版权所有 © 中山市飞娥软件工作室 证书:粤ICP备09170368号