Send 方法

       

发送约会、会议项目、邮件或任务。

expression.Send

expression   必选。该表达式返回 AppointmentItem、MeetingItem、MailItem 或 TaskItem 对象。

示例

本 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