如何自動將簽名插入 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. 然後保存並關閉程式碼視窗，此後當您傳送外出會議邀請時，指定的簽名將自動插入。您可以前往已傳送郵件資料夾確認結果：