Outlook VBA教程:HTMLBody属性

返回或设置指定项目的 HTML 正文。String 类型。该属性应为 HTML 语法字符串,可读写。

设置 HTMLBody属性会将项目的Inspector对象的EditorType属性设置为 olEditorHTML。

设置 HTMLBody属性会立刻更新Body属性。

设置 Body属性将清除 HTML 存储区上 HTMLBody属性的内容。

注意  如果仅访问了该项目的 Body属性(如在MsgBox myItem.Body 中),那么 EditorType属性将不受影响。但如果重新设置了 Body属性(如在myItem.Body = "This is a new body" 中),那么 EditorType 将还原为用户默认的编辑器。

expression.HTMLBody

expression  必选。该表达式返回PostItemMailItem对象。

VBA示例

本 VBScript 示例使用Open事件来访问项目的HTMLBody属性。这将项目的Inspector对象的EditorType属性设置为 olEditorHTML。当设置项目的Body属性后,EditorType属性将更改为默认值。例如,如果默认编辑器为 RTF,那么 EditorType 将设置为 olEditorRTF。

如果在设计阶段将代码放置于窗体的“脚本编辑器”中,那么在运行时如果窗体正文发生变化,消息框将反映 EditorType 中的变化。最终的消息框利用ScriptText属性显示脚本编辑器中的所有 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

上页:Outlook VBA教程:HomeTelephoneNumber属性 下页:Outlook VBA教程:HTMLDocument属性

Outlook VBA教程:HTMLBody属性:相关链接

Outlook VBA教程:HTMLDocument属性 Outlook VBA教程:HTMLEditor属性
Outlook VBA教程:Icon属性 Outlook VBA教程:ID属性
Outlook VBA教程:IMAddress属性 Outlook VBA教程:Importance属性
Outlook VBA教程:InAppFolderSyncObject属性 Outlook VBA教程:IncludeRecurrences属性
Outlook VBA教程:Index属性 Outlook VBA教程:Initials属性
Outlook VBA教程:Inspectors属性 Outlook VBA教程:Instance属性
Outlook VBA教程:InternetCodepage属性 Outlook VBA教程:InternetFreeBusyAddress属性
Outlook VBA教程:Interval属性 Outlook VBA教程:IsConflict属性
Outlook VBA教程:ISDNNumber属性 Outlook VBA教程:IsOnlineMeeting属性
Outlook VBA教程:IsReadOnly属性 Outlook VBA教程:IsRecurring属性
版权所有 © 中山市飞娥软件工作室 证书:粤ICP备09170368号