Propriedade FormDescription.ScriptText (Outlook)
Retorna uma cadeia de caracteres que contém todos os códigos do VBScript no Editor de scripts do formulário. Somente leitura.
Sintaxe
expression. ScriptText
Expressão Uma variável que representa um objeto 'FormDescription'.
Exemplo
Este exemplo do Microsoft Visual Basic Scripting Edition (VBScript) usa o evento Open para acessar a propriedade HTMLBody de um MailItem. Isso define a propriedade EditorType do MailItemInspetor como olEditorHTML. Quando a propriedade do corpo do MailItem estiver definida, a propriedade EditorType é alterada para o padrão. Por exemplo, se o editor de email padrão for definido como RTF, o EditorType será definido como olEditorRTF. Se este código for colocado no Editor de scripts de um formulário no modo de design, as caixas de mensagens durante o tempo de execução refletirão a alteração de EditorType como o corpo do formulário é alterado. A caixa de mensagem final usa a propriedade Text de Script para exibir todo o código do VBScript no Editor de scripts.
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
Confira também
Suporte e comentários
Tem dúvidas ou quer enviar comentários sobre o VBA para Office ou sobre esta documentação? Confira Suporte e comentários sobre o VBA para Office a fim de obter orientação sobre as maneiras pelas quais você pode receber suporte e fornecer comentários.