Метод Application.CreateItemFromTemplate (Outlook)

Статья
04/07/2023

Создает новый элемент Microsoft Outlook на основе шаблона Outlook (.oft) и возвращает новый элемент.

Синтаксис

выражение. CreateItemFromTemplate( _TemplatePath_ , _InFolder_ )

выражение: переменная, представляющая объект Application.

Параметры

Имя	Обязательный или необязательный	Тип данных	Описание
TemplatePath	Обязательный	String	Путь и имя файла шаблона Outlook для нового элемента.
InFolder	Необязательный	Variant	Папка, в которой будет создан элемент. Если этот аргумент опущен, будет использоваться папка по умолчанию для типа элемента.

Возвращаемое значение

Значение Object , представляющее новый элемент Outlook.

Замечания

Новые элементы всегда будут открываться в режиме создания, а не в режиме чтения, независимо от режима, в котором элементы были сохранены на диск.

Пример

В этом примере Visual Basic для приложений (VBA) используется CreateItemFromTemplate для создания нового элемента из шаблона Outlook, а затем его отображения. Макрос CreateTemplate показывает, как создать шаблон, используемый в первом примере. Чтобы избежать ошибок, замените "Dan Wilson" допустимым именем в адресной книге.

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

В следующем примере Visual Basic для приложений (VBA) показано, как использовать необязательный параметр InFolder при вызове метода CreateItemFromTemplate.

Sub CreateFromTemplate2() 
 Dim MyItem As Outlook.MailItem 
 
 Set MyItem = Application.CreateItemFromTemplate("C:\statusrep.oft", _ 
 Application.Session.GetDefaultFolder(olFolderDrafts)) 
 MyItem.Save 
End Sub

См. также

Объект Application

Поддержка и обратная связь

Есть вопросы или отзывы, касающиеся Office VBA или этой статьи? Руководство по другим способам получения поддержки и отправки отзывов см. в статье Поддержка Office VBA и обратная связь.

Поделиться через