通过

Application.CopyFile 方法 (Outlook)

  • 项目

将文件从指定位置复制到 Microsoft Outlook 存储区中。

语法

expression。 CopyFile( _FilePath_ , _DestFolderPath_ )

expression：表示“Application”对象的变量。

参数

名称 必需/可选 数据类型 说明
FilePath 必需 String 要复制的对象的路径名称。
DestFolderPath 必需 String 要将文件复制到的位置。

返回值

表示复制的文件的 对象 值。

示例

以下 Visual Basic for Applications (VBA) 示例将创建名为“MyExcelDoc.xlsx”的 Microsoft Excel 工作表，然后将其从用户硬盘复制到用户的“收件箱”中。

Sub CopyFileSample() 
 
 Dim strPath As String 
 
 Dim ExcelApp As Object 
 
 Dim ExcelSheet As Object 
 
 Dim doc As Object 
 
 
 
 
 
 Set ExcelApp = CreateObject("Excel.Application") 
 
 strPath = ExcelApp.DefaultFilePath & "\MyExcelDoc.xlsx" 
 
 Set ExcelSheet = ExcelApp.Workbooks.Add 
 
 ExcelSheet.ActiveSheet.cells(1, 1).Value = 10 
 
 ExcelSheet.SaveAs strPath 
 
 ExcelApp.Quit 
 
 Set ExcelApp = Nothing 
 
 Set doc = Application.CopyFile(strPath, "Inbox") 
 
End Sub

另请参阅

Application 对象

支持和反馈

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