Vba 如何在一次单击中重命名一封（或多封）邮件的主题？

法国法律规定，您可以使用您的专业邮件帐户发送私人邮件

但是如果你想保持这封邮件的隐私，它的主题必须包含对这一隐私的提及（例如用“Perso”或“Privé”这个词）

问题是当你收到其他人的邮件时，你必须手动重命名它们

---

如何在Outlook中单击添加按钮即可完成此操作？

使用Outlook，您可以创建自己的脚本。下面是如何做到这一点

1.在功能区中激活“开发人员”选项卡

单击“文件”选项卡

点击“选项”

选择“自定义功能区”

在窗口右侧，勾选“开发者”

2.脚本的创建

单击“开发人员”选项卡并选择“宏”（两次）

为新宏指定一个名称（例如“renamePerso”），然后单击“创建”

在新窗口中，您必须输入将执行的代码

复制并粘贴此代码：

Sub renamePerso()
    For x = 1 To Outlook.Application.ActiveExplorer.Selection.Count
        Set obj = Outlook.Application.ActiveExplorer.Selection.Item(x)
        If obj.Class = OlObjectClass.olMail Then
            obj.Subject = "[PERSO] " + obj.Subject
        End If
    Next x
End Sub

现在可以退出编辑器，必须保存代码

3.快速访问您的宏

单击“文件”选项卡

点击“选项”

选择快速访问工具栏

在“从中选择命令：”下，选择“宏”

选择您的宏并单击“添加>>”

在命令列表下，勾选“在功能区下方显示快速访问工具栏”

4.如何使用脚本 要在电子邮件主题（或两封邮件）开头添加“[Perso]”字样，您只需：

• 选择它（或使用Ctrl或Shift键选择它们）
• 单击功能区下的相应按钮

如果重新启动后无法再次使用宏，则必须进行检查