Items. Add-Methode (Outlook)Items.Add method (Outlook)

Erstellt ein neues Outlook-Element in der Items -Auflistung für den Ordner.Creates a new Outlook item in the Items collection for the folder.

SyntaxSyntax

Ausdruck. Hinzufügen_Type_expression.Add _Type_

Ausdruck Eine Variable, die ein Items-Objekt darstellt.expression A variable that represents an Items object.

ParameterParameters

NameName Erforderlich/OptionalRequired/Optional DatentypData type BeschreibungDescription
TypeType OptionalOptional VariantVariant Outlook-Elementtyp für das neue Element.The Outlook item type for the new item. Gibt eine MessageClass zum Erstellen benutzerdefinierter Formulare an.Specifies a MessageClass to create custom forms. Kann eine der folgenden OlItemType -Konstanten sein: OlAppointmentItem, OlContactItem, OlJournalItem, OlMailItem, OlNoteItem, OlPostItem oder OlTaskItem, oder eine beliebige gültige Nachrichtenklasse.Can be one of the following OlItemType constants: olAppointmentItem, olContactItem, olJournalItem, olMailItem, olNoteItem, olPostItem, or olTaskItem,, or any valid message class.

RückgabewertReturn value

Ein Object-Wert, der das neue Outlook-Element darstellt.An Object value that represents the new Outlook item.

HinweiseRemarks

Wenn kein Wert angegeben ist, wird die Type -Eigenschaft des Outlook-Elements standardmäßig auf den Typ des Ordners oder auf MailItem festgelegt, wenn der übergeordnete Ordner nicht typisiert ist. If not specified, the Type property of the Outlook item defaults to the type of the folder or to MailItem if the parent folder is not typed.

BeispielExample

Dieses VBA-Beispiel ruft den aktuellen Ordner Kontakte und ein neues ContactItem-Objekt hinzugefügt und einige Anfangswerte in den Feldern basierend auf einem anderen Kontakt festgelegt.This VBA example gets the current Contacts folder and adds a new ContactItem object to it and sets some initial values in the fields based on another contact. Zum Ausführen dieses Beispiels ohne Fehlermeldung, ersetzen Sie "Dan Wilson" durch einen gültigen Kontaktnamen, der im Ordner Kontakte vorhanden ist.To run this example without any error, replace 'Dan Wilson' with a valid contact name that exists in your Contacts folder.

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

This VBA example adds a custom form to the default Tasks folder.This VBA example adds a custom form to the default Tasks folder.

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

Siehe auchSee also

Items-ObjektItems Object

Support und FeedbackSupport and feedback

Haben Sie Fragen oder Feedback zu Office VBA oder zu dieser Dokumentation?Have questions or feedback about Office VBA or this documentation? Unter Office VBA-Support und Feedback finden Sie Hilfestellung zu den Möglichkeiten, wie Sie Support erhalten und Feedback abgeben können.Please see Office VBA support and feedback for guidance about the ways you can receive support and provide feedback.