Outlook 按时间签名

Outlook 按时间签名

下午好,

我目前有一位客户在 Outlook 中使用签名时遇到了一些问题。

作为其业务的一部分,他在签名底部附上了免责声明,声明该电子邮件是在工作时间发送的。

他正在努力寻找除了手动选择两个电子邮件签名之外,是否还有其他方法可以在特定时间回复/发送电子邮件时自动使用一个签名,并在这些时间自动发布另一个签名。

据我和与我共事的人所知,这是不可能的,但我想我还是会问这个问题。

答案1

这是一个宏,它应该能够完成您想要的工作;只需根据您的喜好进行修改即可。

Public Sub CreateMessageSignature()
    Dim objMsg As MailItem
    Dim theDay As Integer
    Dim hoursStart, hoursEnd As Double
    Dim custom As String
    Set objMsg = Application.CreateItem(MailItem)
    theDay = Weekday(Now)
    hoursStart = TimeValue("8:00:00 am")
    hoursEnd = TimeValue("4:30:00 pm")
    custom = "This message is sent out of office hours."
    If theDay > 1 And theDay < 7 Then ' Mon-Fri
        If Now > hoursStart And Now < hoursEnd Then ' The current time is between office hours
           custom = "This message is sent during office hours."
        End If
    End If
    With objMsg
      .HTMLBody = "Greetings,<br><br>&emsp;Sincerely,<br><br>John Smith<br>[email protected]<br>(123)-456-7890<br>" & custom & strBuffer
      .Display
    End With

子目录结束

如果您不知道如何设置:

  1. 在 Outlook 中启用开发人员菜单:文件 → 选项 → 自定义功能区 → 开发人员菜单中的气泡。
  2. 创建宏:开发人员菜单 → 宏 → 输入一个名称,特别是CreateMessageSignature(除非你想重命名该函数)→ 单击“创建”→ 复制并粘贴宏(注意缩进)→ 修改为你喜欢的→ 保存(Ctrl+S)
  3. 现在将按钮添加到功能区的“主页”部分:文件 → 选项 → 自定义功能区 → 在“主页(邮件)”中创建一个新组,根据自己的喜好命名 → 选择它并在右侧找到您刚刚创建的宏,然后按“添加”。

祝你好运!

相关内容