共用方式為


CopyFile Method

Copies a file from a specified location into a Microsoft Outlook store and returns an Object representing the copied document.

expression.CopyFile(FilePath, DestFolderPath)

*expression   * Required. An expression that returns an **Application**object.

FilePath   Required String. The path name of the object you want to copy.

DestFolderPath   Required String. The location you want to copy the file to.

Example

The following Visual Basic for Applications (VBA) example creates a Microsoft Excel worksheet called 'MyExcelDoc.xls' and then copies it from the user's hard drive to the user's Inbox.

Sub CopyFileSample()
    Dim strPath As String
    Dim ExcelApp As Object
    Dim ExcelSheet As Object
    Dim olApp As New Outlook.Application
    Dim doc As Object
    
    
    strPath = "C:\MyExcelDoc.xls"
    Set ExcelApp = CreateObject("Excel.Application")
    Set ExcelSheet = ExcelApp.Workbooks.Add
    ExcelSheet.ActiveSheet.cells(1, 1).Value = 10
    ExcelSheet.SaveAs strPath
    ExcelApp.Quit
    Set ExcelApp = Nothing
    
    Set doc = olApp.CopyFile(strPath, "Inbox")
    
End Sub

Applies to | Application Object

See Also | Copy Method | CopyTo Method