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

Question

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

但是，如果您想保留此邮件的隐私权，其主题必须包含对此隐私的提及（例如，使用“Perso”或“Privé”一词）。

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

如何在Outlook中一键添加一个按钮来执行此操作？

Answer 1

使用Outlook，您可以创建自己的脚本。这是怎么做的。

1。激活功能区中的开发人员选项卡

1. 单击文件选项卡
2. 点击“选项”
3. 选择“自定义功能区”
4. 在窗口右侧，勾选“开发人员”

2。创建脚本

1. 单击开发人员选项卡，然后选择“宏”（两次）
2. 为新宏命名（例如“renamePerso”），然后点击“创建”
3. 在新窗口中，您必须输入将被执行的代码。

复制并粘贴此代码：

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

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

3。快速访问您的宏

1. 单击文件选项卡
2. 点击“选项”
3. 选择快速访问工具栏
4. 在“从以下选择命令：”下，选择“宏”
5. 选择您的宏，然后点击“添加＆gt;＆gt;”
6. 在命令列表下，勾选“在功能区下方显示快速访问工具栏”

4。如何使用脚本

要在电子邮件（或一对）的主题开头添加“[Perso]”，您只需：

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

如果在重新启动后，您无法再次使用宏，则必须检查your security settings。