如何编辑接收到的电子邮件，增加字体大小并显示打印预览
如何编辑接收到的电子邮件，增加字体大小并显示打印预览
提问于 2019-01-24 23:29:08
Outlook 2016似乎没有可能在打印HTML邮件时改变文本大小，我想用宏来解决这个问题。
它应：
- 打开选定的消息。
- 将格式更改为HTML (对于纯文本邮件(即使这些邮件的文本大小可以调整))。
- 进入编辑模式。
- 选择整个文本。
- 增加字体大小(x次)。
- 显示打印对话框。
到目前为止，我想出的一点是：
Sub test()
ActiveExplorer.Selection(1).Display
ActiveExplorer.Selection(1).BodyFormat = olFormatHTML
ActiveInspector.CommandBars.ExecuteMso "EditMessage"
SendKeys "^(a)"
SendKeys "^+(<)"
SendKeys "^+(<)"
SendKeys "^+(<)"
SendKeys "^+(<)"
SendKeys "%(du)"
End Sub它起作用了，但我对此并不满意。
不需要SendKeys，我怎么能完成第4-6步呢？
回答 1
Stack Overflow用户
发布于 2019-01-25 07:55:56
尝尝这个
Option Explicit
Public Sub Example()
Dim olMsg As Object
Set olMsg = ActiveExplorer.selection.Item(1)
Dim Email As Outlook.MailItem
If TypeOf olMsg Is MailItem Then
Set Email = olMsg
If Email.BodyFormat <> olFormatHTML Then
Email.BodyFormat = olFormatHTML
Email.Body = "<font size=" & "30" & ">" & Email.Body & "</font>"
Email.Save
Email.Display
ActiveInspector.CommandBars.ExecuteMso "FilePrintPreview"
End If
End If
End Sub页面原文内容由Stack Overflow提供。腾讯云小微IT领域专用引擎提供翻译支持
原文链接：
https://stackoverflow.com/questions/54356910
复制相关文章
相似问题
腾讯云开发者
