全部显示

SaveAsFile 方法

将附件保存到指定的路径。

expression  必选。该表达式返回 Attachment 对象。

Path  必选，String 类型。附件保存到的位置。

示例

本 Visual Basic for Applications 示例使用 SaveAsFile 方法将当前打开项目的第一个附件作为文件保存在“My Documents”文件夹中，用附件的显示名称作为文件名。

Set myOlApp = CreateObject("Outlook.Application")
Set myItem = myOlApp.ActiveInspector.CurrentItem
Set myAttachments = myItem.Attachments
myAttachments.Item(1).SaveAsFile "C:\My Documents\" & _
    myAttachments.Item(1).DisplayName

如果使用 VBScript，则不必创建 Application 对象。本示例说明如何使用 VBScript 执行相同任务。

Set myItem = Application.ActiveInspector.CurrentItem
Set myAttachments = myItem.Attachments
myAttachments.Item(1).SaveAsFile "C:\My Documents\" & _
    myAttachments.Item(1).DisplayName