Items.Add method (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 Itens .
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
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.