Compartir a través de


Propiedad FormDescription.ScriptText (Outlook)

Devuelve una cadena que contiene todo el código de VBScript en el Editor de secuencias de comandos del formulario. Solo lectura.

Sintaxis

expresión. ScriptText

Expresión Variable que representa un objeto "FormDescription".

Ejemplo:

En este ejemplo de Microsoft Visual Basic Scripting Edition (VBScript), se utiliza el evento Open para obtener acceso a la propiedad HTMLBody de un objeto MailItem. Esto establece la propiedad EditorType del objeto MailItem de Inspector en olEditorHTML. Cuando se establece la propiedad de cuerpo del objeto MailItem, se cambia la propiedad EditorType en el valor predeterminado. Por ejemplo, si el editor de correo electrónico predeterminado está establecido en RTF, EditorType se establece en olEditorRTF. Si este código se coloca en el Editor de secuencias de comandos de un formulario en modo de diseño, los cuadros de mensaje durante el tiempo de ejecución reflejarán el cambio en la propiedad EditorType como el cuerpo del formulario cambie. El cuadro de mensaje final utiliza la propiedad de Texto del Script para mostrar todo el código de VBScript en el Editor de secuencias de comandos.

Function Item_Open() 
 
 'Set the HTMLBody of the item. 
 
 Item.HTMLBody = "<HTML><H2>My HTML page.</H2><BODY>My body.</BODY></HTML>" 
 
 'Item displays HTML message. 
 
 Item.Display 
 
 'MsgBox shows EditorType is 2. 
 
 MsgBox "HTMLBody EditorType is " & Item.GetInspector.EditorType 
 
 'Access the Body and show 
 
 'the text of the Body. 
 
 MsgBox "This is the Body: " & Item.Body 
 
 'After accessing, EditorType 
 
 'is still 2. 
 
 MsgBox "After accessing, the EditorType is " & Item.GetInspector.EditorType 
 
 'Set the item's Body property. 
 
 Item.Body = "Back to default body." 
 
 'After setting, EditorType is 
 
 'now back to the default. 
 
 MsgBox "After setting, the EditorType is " & Item.GetInspector.EditorType 
 
 'Access the items's 
 
 'FormDescription object. 
 
 Set myForm = Item.FormDescription 
 
 'Display all the code 
 
 'in the Script Editor. 
 
 MsgBox myForm.ScriptText 
 
End Function

Consulte también

Objeto FormDescription

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.