Items.Add-Methode (Outlook)
Erstellt in der Items -Auflistung für den Ordner ein neues Outlook-Element.
Syntax
Ausdruck. Hinzufügen_Type_
Ausdruck Eine Variable, die ein Items-Objekt darstellt.
Parameter
Name | Erforderlich/Optional | Datentyp | Beschreibung |
---|---|---|---|
Typ | Optional | Variant | Outlook-Elementtyp für das neue Element. Gibt eine MessageClass zum Erstellen von benutzerdefinierter Formularen. Kann eine der folgenden OlItemType-Konstanten sein: olAppointmentItem, olContactItem, olJournalItem, olMailItem, olNoteItem, olPostItem oder olTaskItem oder eine beliebige gültige Nachrichtenklasse. |
Rückgabewert
Ein Object-Wert, der das neue Microsoft Outlook-Element darstellt.
HinwBemerkungeneise
Wenn nicht angegeben ist, standardmäßig die Type -Eigenschaft des Outlook-Elements in den Typ des Ordners oder MailItem aus, wenn des übergeordneten Ordners nicht eingegeben wird.
Beispiel
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. Zum Ausführen dieses Beispiels ohne Fehlermeldung, ersetzen Sie "Dan Wilson" durch einen gültigen Kontaktnamen, der im Ordner Kontakte vorhanden ist.
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.
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 auch
Support und Feedback
Haben Sie Fragen oder Feedback zu Office VBA oder zu dieser Dokumentation? Unter Office VBA-Support und Feedback finden Sie Hilfestellung zu den Möglichkeiten, wie Sie Support erhalten und Feedback abgeben können.
Feedback
https://aka.ms/ContentUserFeedback.
Bald verfügbar: Im Laufe des Jahres 2024 werden wir GitHub-Issues stufenweise als Feedbackmechanismus für Inhalte abbauen und durch ein neues Feedbacksystem ersetzen. Weitere Informationen finden Sie unterFeedback senden und anzeigen für