☰

使用宏清空电子邮件内容

tag-icon • tag-icon microsoft-outlook vba macros
使用宏清空电子邮件内容

使用线程这里我创建了一个宏，它会在新消息窗口中打开一个模板。但我的签名仍然在底部。

我想在添加模板之前清空电子邮件内容，我是 VBA 新手，不确定该怎么做！

这是怎么做到的？

当前代码：

Sub TemplateName()
    Set msg = Application.CreateItemFromTemplate("C:\Users\xyz\Desktop\template.oft")
    msg.Display
End Sub

我想在运行此子版块之前清空电子邮件。

答案1

将“新消息”的签名设置为无。

文件 | 选项 | 邮件 | 签名

新消息：（无）

答案2

确定模板文本的长度并仅保留该长度。

假设签名的开始是唯一的。

Dim sig_start as long
Dim template_text_end as long

sig_start = InStr(msg.Body, "unique text at the start of the signature")
template_text_end = sig_start - 1
msg.Body = Left(msg.Body, template_text_end)
debug.print template_text_end

当您确定了模板文本末尾的位置时，您可能决定不再每次都去弄清楚它。

您可能需要尝试 msg.HTMLBody。

处理正文比较棘手，您可能会丢失格式。

相关内容