Método Application.CopyFile (Outlook)

Artigo
04/07/2023

Copia um arquivo de um local específico para um repositório do Microsoft Outlook.

Sintaxe

expression. CopyFile( _FilePath_ , _DestFolderPath_ )

expressão Uma variável que representa um objeto Application.

Parâmetros

Nome	Obrigatório/Opcional	Tipo de dados	Descrição
FilePath	Obrigatório	String	O nome do caminho do objeto que você deseja copiar.
DestFolderPath	Obrigatório	String	O local para onde você deseja copiar o arquivo.

Valor de retorno

Um valor objeto que representa o arquivo copiado.

Exemplo

O seguinte exemplo do Visual Basic for Applications (VBA) cria uma planilha do Microsoft Excel, denominada 'MyExcelDoc.xlsx', e depois a copia do disco rígido para a Caixa de Entrada do usuário.

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

Confira também

Objeto de Aplicativo

Suporte e comentários

Tem dúvidas ou quer enviar comentários sobre o VBA para Office ou sobre esta documentação? Confira Suporte e comentários sobre o VBA para Office a fim de obter orientação sobre as maneiras pelas quais você pode receber suporte e fornecer comentários.

Compartilhar via