共用方式為

(Outlook) 的 Application.CopyFile 方法

  • 發行項

將檔案從指定的位置複製到 Microsoft Outlook 商店。

語法

expression。 CopyFile( _FilePath_ , _DestFolderPath_ )

expression 代表 Application 物件的變數。

參數

名稱 必要/選用 資料類型 描述
FilePath 必要 字串 所要複製物件的路徑名稱。
DestFolderPath 必要 String 檔案要複製到的位置。

傳回值

Object值，表示複製的檔案。

範例

下列 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 支援與意見反應。