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.

Observaciones

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

Objeto Application

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.