Outlook 회의 요청에 서명을 자동으로 삽입하는 방법은 무엇입니까?

Author: Xiaoyang Last Modified: 2025-08-06

Outlook에서는 이메일에 서명을 자동으로 삽입할 수 있지만, 회의 초대장에 서명을 자동으로 삽입하려면 직접적인 방법이 없습니다. 이 기사에서는 Outlook 회의 요청에 서명을 자동으로 삽입하는 유용한 방법들에 대해 설명하겠습니다.

사용자 정의 양식을 사용하여 Outlook 회의 요청에 서명 자동 삽입하기

VBA 코드를 사용하여 Outlook 회의 요청에 서명 자동 삽입하기

사용자 정의 양식을 사용하여 Outlook 회의 요청에 서명 자동 삽입하기

Outlook에서 회의 요청에 서명을 자동으로 삽입하기 위해 사용자 정의 양식을 만들 수 있습니다. 아래 단계를 따라주세요:

1. 캘린더 창으로 이동한 후 홈 > 새 회의를 클릭하여 새 회의 창을 엽니다.

2. 그런 다음 삽입 > 서명을 클릭하고 삽입하려는 서명을 선택하세요. 스크린샷 참고:

3. 서명을 삽입한 후 새 회의 창에서 개발 도구 > 양식 디자인을 계속 클릭합니다. 스크린샷 참고:

4. 새 화면에서 개발 도구 > 게시 > 양식으로 게시를 클릭합니다. 스크린샷 참고:

5. 나타난 양식으로 게시 대화 상자에서 표시 이름 텍스트 상자에 이름을 입력하고 게시 버튼을 클릭합니다. 스크린샷 참고:

6. 그리고 현재 회의 창을 저장하지 않고 닫습니다.

7. 이제부터 서명이 포함된 새 회의를 생성하려면 홈 > 새 항목 > 사용자 정의 양식을 클릭하고 방금 생성한 양식을 선택하세요. 그러면 서명이 회의 본문에 자동으로 삽입됩니다. 스크린샷 참고:

아웃룩의 AI 메일 도우미: 더 스마트한 답장, 더 명확한 커뮤니케이션 (한 번의 클릭으로 끝내기!) ⚡ 무료

Kutools for Outlook의 AI 메일 도우미로 매일 처리하는 아웃룩 작업을 간소화하세요. 이 강력한 도구는 과거 이메일을 학습하여 지능적이고 정확한 답변을 제공하고, 이메일 내용을 최적화하며, 초안 작성 및 메시지 수정을 쉽게 도와줍니다.

이 기능은 다음을 지원합니다:

스마트 답장: 과거 대화를 기반으로 맞춤형, 정확한 답변을 받아보세요. 바로 사용할 수 있습니다.
개선된 콘텐츠: 이메일 텍스트를 자동으로 다듬어 명확도와 영향력을 높여보세요.
손쉬운 작문: 키워드만 제공하면 AI가 나머지를 처리해 다양한 작문 스타일로 도와줍니다.
지능적인 확장: 맥락에 맞는 제안으로 생각을 확장하세요.
요약 기능: 긴 이메일의 간결한 요약본을 즉시 받아보세요.
글로벌 도달: 이메일을 손쉽게 다른 언어로 번역하세요.

이 기능은 다음을 지원합니다:

스마트 이메일 답장
최적화된 콘텐츠
키워드 기반 초안 작성
지능적인 콘텐츠 확장
이메일 요약
다국어 번역

가장 좋은 점은 이 기능이 영원히 완전 무료라는 것입니다! 기다리지 말고 지금 AI 메일 도우미를 다운로드하고 즐겨보세요!

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