将文件从指定位置复制到 Microsoft Outlook 存储中,并返回代表复制文档的 Object。
expression.CopyFile(FilePath, DestFolderPath)
expression 必选。该表达式返回 Application 对象。
FilePath 必选,String 类型。要复制的对象的路径名称。
DestFolderPath 必选,String 类型。要将文件复制到的位置。
以下示例将文件从用户硬盘复制到用户“收件箱”中的文件夹中。
Sub Copy()
Dim olApp As Application
Dim docWebpg As Object
Set olApp = Outlook.Application
Set docWebpg = olApp.CopyFile("C:\ftp\Index.htm", "Inbox\test")
End Sub