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창에서ThisOutlookSession을Project1(VbaProject.OTM)패널에서 두 번 클릭하여 모듈을 열고， 다음 코드를 빈 모듈에 복사하여 붙여넣습니다。

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。 그런 다음 코드 창을 저장하고 닫기하세요。 이후 발신 회의 초대장을 보낼 때 특정 서명이 자동으로 삽입됩니다。 결과는보낸 항목폴더에서 확인할 수 있습니다：