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」ウィンドウで、「Project1 (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。その後、コードウィンドウを保存して閉じてください。これにより、今後送信する会議招待状に指定した署名が自動的に挿入されます。「送信済みアイテム」フォルダーで結果を確認できます。