Método Application.CreateItemFromTemplate (Outlook)
Crea un nuevo elemento de Microsoft Outlook a partir de una plantilla de Outlook (.oft) y devuelve el nuevo elemento.
Sintaxis
expresión. CreateItemFromTemplate( _TemplatePath_ , _InFolder_ )
expresión Variable que representa un objeto Application.
Parámetros
| Nombre | Obligatorio/opcional | Tipo de datos | Descripción |
|---|---|---|---|
| TemplatePath | Obligatorio | String | Ruta de acceso y nombre de archivo de la plantilla de Outlook para el nuevo elemento. |
| InFolder | Opcional | Variant | La carpeta en la que se creará el elemento. Si se omite este argumento, se utilizará la carpeta predeterminada para el tipo de elemento. |
Valor devuelto
Valor Object que representa el nuevo elemento de Outlook.
Comentarios
Los nuevos elementos siempre se abrirán en modo de redacción y no en modo de lectura, con independencia del modo en el que se guardaran en el disco.
Ejemplo:
En este ejemplo de Visual Basic para aplicaciones (VBA) se utiliza CreateItemFromTemplate para crear un nuevo elemento a partir de una plantilla de Outlook y, a continuación, lo muestra. La macro CreateTemplate muestra cómo crear la plantilla que se usa en el primer ejemplo. Para evitar errores, reemplace a 'Dan Wilson' por un nombre válido de la libreta de direcciones.
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
En el siguiente ejemplo de Visual Basic para Aplicaciones (VBA) se muestra cómo usar el parámetro Opcional InFolder al llamar al método CreateItemFromTemplate .
Sub CreateFromTemplate2()
Dim MyItem As Outlook.MailItem
Set MyItem = Application.CreateItemFromTemplate("C:\statusrep.oft", _
Application.Session.GetDefaultFolder(olFolderDrafts))
MyItem.Save
End Sub
Vea también
Soporte técnico y comentarios
¿Tiene preguntas o comentarios sobre VBA para Office o esta documentación? Vea Soporte técnico y comentarios sobre VBA para Office para obtener ayuda sobre las formas en las que puede recibir soporte técnico y enviar comentarios.