如何自动将签名添加到 Outlook 会议请求中？

在 Outlook 中，您可以轻松自动插入电子邮件签名，但如果希望自动将签名添加到会议邀请，目前还没有直接的实现方式。本文将为您介绍几种实用方法，助您轻松将签名自动插入 Outlook 会议请求。

使用自定义表单自动将签名插入到 Outlook 会议请求

使用 VBA 代码自动将签名插入到 Outlook 会议请求

---

使用自定义表单自动将签名插入到 Outlook 会议请求

在 Outlook 中，您可以创建自定义表单，实现自动将签名插入到会议请求中，请按以下步骤操作：

1. 请切换到日历窗口，点击开始 > 新建会议，即可打开新的会议窗口。

2. 接着点击插入 > 签名，选择您要插入的签名，如下图所示：

3. 插入签名后，在新的会议窗口中，继续点击开发工具> 设计此表单，如下图所示：

4. 在新界面中，点击开发工具 > 发布 > 表单另存为，如下图所示：

5. 在弹出的表单另存为对话框中，在显示名称文本框中输入名称，然后点击发布按钮，如下图所示：

6. 关闭当前会议窗口，无需保存。

7. 从现在开始，若需创建带有签名的新会议，只需点击开始> 新建项目> 自定义表单，然后选择刚刚创建的表单。签名将自动插入会议正文，如下图所示：

---

使用 VBA 代码自动将签名插入到 Outlook 会议请求

下面的 VBA 代码同样可以帮助您自动将签名插入到会议请求中，请依照以下步骤操作：

1. 按住 ALT + F11 键，即可打开 Microsoft Visual Basic for Applications 窗口。

2. 在 Microsoft Visual Basic for Applications 窗口中，双击 Project 1(VbaProject.OTM) 窗格下的 ThisOutlookSession 以打开模块，然后将以下代码复制并粘贴到空白模块中。

VBA 代码：自动将签名插入会议请求：

Private Sub Application_ItemSend(ByVal Item As Object, Cancel As Boolean)
Dim xMeetingItem As Outlook.MeetingItem
Dim xFSO As Scripting.FileSystemObject
Dim xSignStream, xWriteStream, xReadStream As Scripting.TextStream
Dim xSignFld, xSignSubFld As Scripting.Folder
Dim xSignFile As Scripting.File
Dim xSignText, xSignPath As String
Dim xMailRTFText, xMeetingRTFText, xAllRTFText As String
Dim xByte() As Byte
Dim xPos As Integer
Dim xFilePath, xFldPath, xFldName As String
Dim xMailItem As MailItem
On Error Resume Next
If Item.Class = olMeetingRequest Then
    Set xMeetingItem = Item
    Set xFSO = CreateObject("scripting.FileSystemObject")
    xSignPath = CStr(Environ("USERPROFILE")) & "\AppData\Roaming\Microsoft\Signatures\"
    Set xSignFld = xFSO.GetFolder(xSignPath)
    If xSignFld.SubFolders.Count <> 0 Then
        For Each xSignSubFld In xSignFld.SubFolders
            xFldName = xSignSubFld.Name
            xFldPath = xSignSubFld.Path
        Next
    End If
    For Each xSignFile In xSignFld.Files
        If xFSO.GetExtensionName(xSignFile.Path) = "htm" Then
            Set xSignStream = xFSO.OpenTextFile(xSignFile.Path)
            xSignText = xSignStream.ReadAll
            If InStr(xSignText, xFldName) <> 0 Then
                xSignText = Replace(xSignText, xFldName, xFldPath)
            End If
            Set xMailItem = Outlook.Application.CreateItem(olMailItem)
            xMailItem.HTMLBody = xSignText
            xMailRTFText = StrConv(xMailItem.RTFBody, vbUnicode)
            xMeetingRTFText = StrConv(xMeetingItem.RTFBody, vbUnicode)
            xPos = InStrRev(xMeetingRTFText, "{\*\htmltag104 </div>}\htmlrtf }\htmlrtf0")
            xFilePath = CreateObject("WScript.Shell").SpecialFolders(16)
            xFilePath = xFilePath & "\MeetingText.txt"
            If xFSO.FileExists(xFilePath) Then
                xFSO.DeleteFile xFilePath
            End If
            Set xWriteStream = xFSO.OpenTextFile(xFilePath, 8, True)
            xMeetingRTFText = Mid(xMeetingRTFText, 1, xPos - 1) & "{\*\htmltag72 </p>}{\*\htmltag0 \par }{\*\htmltag0 \par }" _
            & "{\*\htmltag64 <p class=MsoNormal>}\htmlrtf {\htmlrtf0 {\*\htmltag148 <span lang=EN-US style='color:#00B050'>}\htmlrtf {\htmlrtf0" _
            & "{\*\htmltag244 <o:p>}{\*\htmltag84 &nbsp;}\htmlrtf \'a0\htmlrtf0{\*\htmltag252 </o:p>}" _
            & "{\*\htmltag156 </span>}\htmlrtf }\htmlrtf0 \htmlrtf\par}\htmlrtf0" _
            & vbCrLf & xMailRTFText & vbCrLf & Mid(xMeetingRTFText, xPos, Len(xMeetingRTFText) - xPos + 1)
            xWriteStream.WriteLine xMeetingRTFText
            Set xReadStream = xFSO.OpenTextFile(xFilePath)
            xAllRTFText = xReadStream.ReadAll
            PackBytes xByte, xAllRTFText
            xMeetingItem.RTFBody = xByte
            xMeetingItem.Save
            xMailItem.Close olDiscard
        End If
    Next
End If
End Sub
Private Sub PackBytes(ByteArray() As Byte, ByVal PostData As String)
    ByteArray() = StrConv(PostData, vbFromUnicode)
End Sub

3. 保存并关闭代码窗口后，以后每次发送会议邀请时，系统都会自动插入指定签名。您可以前往已发送邮件文件夹查看效果：