防止 Outlook 用文本替换图像“< OLE 对象：图片（设备独立位图）>>”

Question 1

据我所知，Outlook 客户端中没有始终以 HTML 格式回复所有邮件的选项。但正如 harrymc 所说，我们可以使用 VBA 自动以 HTML 格式回复。

根据我在outlook 365中的测试，请参考以下步骤：

1.按Alt+F11键打开Microsoft Visual Basic for Applications窗口；

2.单击插入>模块>并粘贴以下代码：

Sub AlwaysReplyInHTML()
Dim oSelection As Outlook.Selection
Dim oItem As Object
'Get the selected item
Select Case TypeName(Application.ActiveWindow)
Case "Explorer"
Set oSelection = Application.ActiveExplorer.Selection
If oSelection.Count > 0 Then
Set oItem = oSelection.Item(1)
Else
MsgBox "Please select an item first!", vbCritical, "Reply in HTML"
Exit Sub
End If
Case "Inspector"
Set oItem = Application.ActiveInspector.CurrentItem
Case Else
MsgBox "Unsupported Window type." & vbNewLine & "Please select or open an item first.", _
vbCritical, "Reply in HTML"
Exit Sub
End Select
    Dim oMsg As Outlook.MailItem
Dim oMsgReply As Outlook.MailItem
Dim bPlainText As Boolean
'Change the message format and reply
If oItem.Class = olMail Then
Set oMsg = oItem
If oMsg.BodyFormat = olFormatPlain Then
bPlainText = True
End If
oMsg.BodyFormat = olFormatHTML
Set oMsgReply = oMsg.Reply
If bIsPlainText = True Then
oMsg.BodyFormat = olFormatPlain
End If
oMsg.Close (olSave)
oMsgReply.Display
'Selected item isn't a mail item
Else
MsgBox "No message item selected. Please select a message first.", _
vbCritical, "Reply in HTML"
Exit Sub
End If
'Cleanup
Set oMsgReply = Nothing
Set oMsg = Nothing
Set oItem = Nothing
Set oSelection = Nothing
End Sub

3.在Outlook顶部，点击向下箭头>更多命令…；

4.选择宏并添加到快速访问文件夹>确定；

5.然后宏将显示在顶部;

这样，当你想回复消息时，只需要选中该消息，点击宏即可，回复的消息将是HTML格式。

希望以上内容有帮助！

Answer