Application.CreateItemFromTemplate-Methode (Outlook)
Erstellt ein neues Microsoft Outlook-Element aus einer Outlook-Vorlage (OFT) und gibt das neue Element zurück.
Syntax
Ausdruck.
CreateItemFromTemplate
( _TemplatePath_
, _InFolder_
)
expression Eine Variable, die ein Application-Objekt darstellt.
Parameter
Name | Erforderlich/Optional | Datentyp | Beschreibung |
---|---|---|---|
TemplatePath | Erforderlich | String | Der Pfad und der Dateiname der Outlook-Vorlage für das neue Element. |
InFolder | Optional | Variant | Der Ordner, in dem das Element erstellt werden soll. Wenn dieses Argument ausgelassen wird, wird der Standardordner für den jeweiligen Elementtyp verwendet. |
Rückgabewert
Ein Object-Wert, der das neue Microsoft Outlook-Element darstellt.
Hinweise
Neue Elemente werden immer im Erstellungsmodus im Gegensatz zum Lesemodus geöffnet, unabhängig von dem Modus, in dem die Elemente auf dem Datenträger gespeichert wurden.
Beispiel
In diesem beispiel für Visual Basic for Applications (VBA) wird CreateItemFromTemplate verwendet, um ein neues Element aus einer Outlook-Vorlage zu erstellen und dann zu zeigen. Das CreateTemplate
-Makro zeigt das Erstellen der Vorlage, die im ersten Beispiel verwendet wurde. Um Fehler zu vermeiden, sollten Sie "Dan Wilson" durch einen gültigen Namen in Ihrem Adressbuch ersetzen.
Sub CreateFromTemplate()
Dim MyItem As Outlook.MailItem
Set MyItem = Application.CreateItemFromTemplate("C:\statusrep.oft")
MyItem.Display
End Sub
Sub CreateTemplate()
Dim MyItem As Outlook.MailItem
Set MyItem = Application.CreateItem(olMailItem)
MyItem.Subject = "Status Report"
MyItem.To = "Dan Wilson"
MyItem.Display
MyItem.SaveAs "C:\statusrep.oft", OlSaveAsType.olTemplate
End Sub
Das folgende beispiel für Visual Basic for Applications (VBA) zeigt, wie der optionale InFolder-Parameter beim Aufrufen der CreateItemFromTemplate-Methode verwendet wird.
Sub CreateFromTemplate2()
Dim MyItem As Outlook.MailItem
Set MyItem = Application.CreateItemFromTemplate("C:\statusrep.oft", _
Application.Session.GetDefaultFolder(olFolderDrafts))
MyItem.Save
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.