Outlook VBA实现转发HTML邮件转纯文本去冗余元素再转回HTML的咨询

问题根因 #

你现有代码的操作逻辑和Outlook VBA的对象模型规则完全不匹配，才会达不到手动操作的预期效果：

1. 属性操作顺序颠倒：Outlook 中BodyFormat属性的切换是触发格式转换的核心触发点——只有先把邮件从HTML切到纯文本格式，系统才会自动把原有正文里的图片、超链接、内嵌图标、HTML标签全部剥离为无格式纯文本。你现在先给Body属性赋值、再切换格式的操作，根本不会触发系统的纯文本剥离逻辑，反而会把原HTML的底层源码直接当成普通文本塞进正文。
2. 系统自动转换的剥离精度不足：就算顺序正确，系统默认的格式转换逻辑会残留自动识别的超链接文本、内嵌图片占位符，没法做到彻底清除所有富媒体元素的要求。

你当前编写的原始代码：

olMail.Body = olMail.Body ' 试图将HTML正文转为纯文本
olMail.BodyFormat = olFormatHTML ' 试图将纯文本转回HTML格式

具体修改方案 #

1. 修正核心操作顺序 #

首先调整代码的执行顺序，匹配Outlook的格式转换触发逻辑：

• 提前定义格式枚举常量，避免因未引用Outlook对象库导致的常量未定义报错：

  ' 对应Outlook内置格式枚举值，无需额外引用库即可运行
  Const olFormatPlain As Integer = 1 ' 纯文本格式
  Const olFormatHTML As Integer = 2   ' HTML格式
  

• 替换原有错位的赋值逻辑：

  ' 第一步：先强制切换为纯文本格式，触发系统自动剥离所有原有HTML正文的富媒体元素
  olMail.BodyFormat = olFormatPlain
  ' 手动触发消息循环刷新，等系统完成纯文本转换的缓存写入
  DoEvents
  ' 第二步：直接切回HTML格式，系统会将当前已经清理干净的纯文本，自动生成最简结构的HTML正文
  olMail.BodyFormat = olFormatHTML
  

2. 补充残留元素清理逻辑 #

调整顺序后，系统自动转回HTML时，会把纯文本里识别到的网址、邮箱地址自动转换成可点击超链接，需要在切换为纯文本格式后增加一段清理逻辑：

' 在DoEvents之后、切回HTML之前执行
' 清除文本中可能被系统标记为超链接的特殊格式，确保转回HTML后没有残留链接
olMail.Body = Trim(olMail.Body)

关于Outlook配置的说明 #

不需要调整Outlook的全局配置项，仅需在Outlook信任中心开启“对VBA工程对象模型的访问”权限，允许宏正常运行即可，无需修改默认邮件格式、安全区域等其他设置。

内容的提问来源于stack exchange，提问作者John Roxtar