Items.Add-Methode (Outlook)

  • Artikel

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

Items-Objekt

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.