Метод Application.CopyFile (Outlook)

Статья
04/07/2023

Копирует файл из указанного расположения в магазин Microsoft Outlook.

Синтаксис

выражение. CopyFile( _FilePath_ , _DestFolderPath_ )

выражение: переменная, представляющая объект Application.

Параметры

Имя	Обязательный или необязательный	Тип данных	Описание
FilePath	Обязательный	String	Имя пути к объекту, который требуется скопировать.
DestFolderPath	Обязательный	String	Расположение, в которое нужно скопировать файл.

Возвращаемое значение

Значение object , представляющее скопированный файл.

Пример

В следующем примере Visual Basic для приложений (VBA) создается лист Microsoft Excel с именем "MyExcelDoc.xlsx", а затем копируется с жесткого диска пользователя в папку "Входящие".

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 и обратная связь.

Поделиться через