Método NoteItem.Copy (Outlook)

Artigo
04/07/2023

Cria outra instância de um objeto.

Sintaxe

expressão. Cópia

Expressão Uma expressão que retorna um objeto NoteItem .

Valor de retorno

Um objeto NoteItem que representa uma cópia da anotação especificada.

Exemplo

Este Visual Basic for Applications exemplo cria uma mensagem de email, define o Assunto como "Falas", usa o método Copiar para copiá-lo e, em seguida, move a cópia para uma pasta de email recém-criada chamada "Email Salvo" na pasta Caixa de Entrada.

Sub CopyItem() 
 
 Dim myNameSpace As Outlook.NameSpace 
 
 Dim myFolder As Outlook.Folder 
 
 Dim myNewFolder As Outlook.Folder 
 
 Dim myItem As Outlook.MailItem 
 
 Dim myCopiedItem As Outlook.MailItem 
 
 
 
 Set myNameSpace = Application.GetNamespace("MAPI") 
 
 Set myFolder = myNameSpace.GetDefaultFolder(olFolderInbox) 
 
 Set myNewFolder = myFolder.Folders.Add("Saved Mail", olFolderDrafts) 
 
 Set myItem = Application.CreateItem(olMailItem) 
 
 myItem.Subject = "Speeches" 
 
 Set myCopiedItem = myItem.Copy 
 
 myCopiedItem.Move myNewFolder 
 
End Sub

Confira também

Objeto NoteItem

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