Método Items.Add (Outlook)

Cria um novo item do Outlook na coleção Items da pasta.

Sintaxe

expressão. Adicionar_Type_

Expressão Uma variável que representa um objeto Items .

Parâmetros

Nome	Obrigatório/Opcional	Tipo de dados	Descrição
Type	Opcional	Variant	O tipo de item do Outlook referente ao novo item. Especifica um MessageClass para criar formulários personalizados. Pode ser uma das seguintes constantes OlItemType : olAppointmentItem, olContactItem, olJournalItem, olMailItem, olNoteItem, olPostItem ou olTaskItem ou qualquer classe de mensagem válida.

Valor de retorno

Um valor Object que representa o novo item do Outlook.

Comentários

Se não especificado, a propriedade Type do item do Outlook padrão para o tipo da pasta ou MailItem se a pasta pai não for digitada.

Exemplo

Este exemplo do VBA obtém a pasta Contatos atual e adiciona um novo objeto ContactItem a ela e define alguns valores iniciais nos campos com base em outro contato. Para executar esse exemplo sem erros, substitua 'Dan Wilson' por um nome válido de contato que existe na pasta de contatos.

Sub AddContact() 
 Dim myNamespace As Outlook.NameSpace 
 Dim myFolder As Outlook.Folder 
 Dim myItem As Outlook.ContactItem 
 Dim myOtherItem As Outlook.ContactItem 
 
 Set myNamespace = Application.GetNamespace("MAPI") 
 Set myFolder = myNamespace.GetDefaultFolder(olFolderContacts) 
 Set myOtherItem = myFolder.Items("Dan Wilson") 
 Set myItem = myFolder.Items.Add 
 myItem.CompanyName = myOtherItem.CompanyName 
 myItem.BusinessAddress = myOtherItem.BusinessAddress 
 myItem.BusinessTelephoneNumber = myOtherItem.BusinessTelephoneNumber 
 myItem.Display 
End Sub

Este exemplo do VBA adiciona um formulário personalizado à pasta padrão Tarefas.

Sub AddForm() 
 Dim myNamespace As outlook.NameSpace 
 Dim myItems As outlook.Items 
 Dim myFolder As outlook.Folder 
 Dim myItem As outlook.TaskItem 
 
 Set myNamespace = Application.GetNamespace("MAPI") 
 Set myFolder = _ 
 myNamespace.GetDefaultFolder(olFolderTasks) 
 Set myItems = myFolder.Items 
 Set myItem = myItems.Add("IPM.Task.myTask") 
End Sub

Confira também

Objeto Items

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.