Свойство FormDescription.ScriptText (Outlook)
Возвращает строку, содержащую весь код VBScript в редакторе скриптов формы. Только для чтения.
Синтаксис
выражение. ScriptText
Выражение Переменная, представляющая объект FormDescription.
Пример
В этом примере Microsoft Visual Basic Scripting Edition (VBScript) событие Open используется для доступа к свойству HTMLBodyобъекта MailItem. При этом свойству EditorTypeинспектораMailItem присваивается значение olEditorHTML. Если задано свойство BodyMailItem, свойство EditorType изменяется на значение по умолчанию. Например, если редактор электронной почты по умолчанию имеет значение RTF, editorType имеет значение olEditorRTF. Если этот код помещается в редактор скриптов формы в режиме конструктора, окна сообщений во время выполнения будут отражать изменения в EditorType при изменении текста формы. В последнем окне сообщения используется свойство Текст скрипта для отображения всего кода VBScript в редакторе скриптов.
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
См. также
Поддержка и обратная связь
Есть вопросы или отзывы, касающиеся Office VBA или этой статьи? Руководство по другим способам получения поддержки и отправки отзывов см. в статье Поддержка Office VBA и обратная связь.