如何自动删除 Outlook 电子邮件中单词之间的所有多余空格

展望解决方案 2025 年 9 月 29 日
立即分享：

如果您在撰写 Outlook 电子邮件时经常不小心键入额外的空格，您可能希望让 Outlook 自动删除单词之间的所有额外空格。 现在，本文将教你一个方便的实现方法。

有时，当您撰写电子邮件时，您可能会错误地在单词之间输入许多额外的空格。 它们会使电子邮件内容变得混乱。 此时，您希望删除所有这些额外的空格。 要手动完成它，您可以利用“查找和替换”功能将所有“([ ])[ ]{1,}”替换为带通配符的“\1”。 但是，相比之下，如果 Outlook 能够自动执行此操作，将会更加方便和有效。 现在，在下文中，我们将向您介绍一种配置 Outlook 的方法。

使用通配符查找和替换

自动删除电子邮件中单词之间的所有多余空格

  1. 首先，在 Outlook 中按“Alt + F11”访问 VBA 编辑器。

请注意： 如果您完全是 VBA 新手，可以参考我之前的文章“如何在 Outlook 中运行 VBA 代码“ 同时。

  1. 然后，根据“添加“MS Word 对象库”如何在 VBA 中添加对象库引用“。
  2. 接下来，将VBA代码放入“ThisOutlookSession”项目中
Private Sub Application_ItemSend(ByVal Item As Object, Cancel As Boolean)
    Dim objMail As Outlook.MailItem
    Dim objMailDocument As Word.Document
 
    'Get current mail
    If TypeOf Item Is MailItem Then
       Set objMail = Item
       Set objMailDocument = objMail.GetInspector.WordEditor
 
       'Remove all extra spaces using wildcards
       With objMailDocument.Range.Find
            .ClearFormatting
            .Replacement.ClearFormatting
            .Text = "([ ])[ ]{1,}"
            .Replacement.Text = "\1"
            .Forward = True
            .MatchWildcards = True
            .Execute Replace:=wdReplaceAll
      End With
    End If
End Sub

VBA 代码 - 自动删除电子邮件中单词之间的所有多余空格

  1. 之后，退出当前窗口。
  2. 最后，请按照以下步骤进行尝试。
  • 首先，创建并撰写一封电子邮件。在这里，您可以故意在单词之间输入几个额外的空格，如下图所示。撰写一封电子邮件，在单词之间添加额外的空格
  • 填写收件人后，直接点击“发送”按钮发送出去。
  • 最后，当它发送时，转到“已发送邮件”文件夹中找到它。 您可以看到所有多余的空格都已自动删除。单词之间的所有多余空格都已删除

不要害怕 Outlook 文件损坏

在 Outlook 崩溃的情况下，用户会感到恐慌，担心他们的 Outlook 文件会损坏。 其实，只要做好一些有效的预防措施，就可以轻松摆脱这样的顾虑。 首先，你应该坚持定期备份你的PST文件，这对数据保护起着非常重要的作用。 另外，建议准备一个靠谱且有效的外部Outlook修复工具，例如 DataNumen Outlook Repair，因为收件箱修复工具确实无法 修复 PST 严重受损。

作者简介：

Shirley Zhang 是一位数据恢复专家 DataNumen, Inc.，它是数据恢复技术领域的世界领先者，包括 修复中密度纤维板 和 outlook 修复软件产品。 欲了解更多信息，请访问 datanumen.com

立即分享：

评论被关闭。