메인 컨텐츠로 가기

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

저자: 샤오양 최종 수정 날짜: 2018-05-03

Outlook에서는 쉽게 전자 메일에 서명을 자동 삽입 할 수 있지만 모임 초대에 자동으로 서명을 삽입하려는 경우이 작업을 직접 해결할 수있는 방법이 없습니다. 이 기사에서는 Outlook 모임 요청에 서명을 자동으로 삽입하는 몇 가지 유용한 방법에 대해 설명합니다.

사용자 지정 양식을 사용하여 Outlook 모임 요청에 자동으로 서명 삽입

VBA 코드로 Outlook 모임 요청에 자동으로 서명 삽입


사용자 지정 양식을 사용하여 Outlook 모임 요청에 자동으로 서명 삽입

Outlook에서 모임 요청에 자동으로 서명을 삽입하는 사용자 지정 양식을 만들 수 있습니다. 다음과 같이하십시오.

1. 다음으로 이동하십시오. 칼렌더 창을 클릭 한 다음 홈페이지 > 새로운 회의 새로운 것을 열려면 회의 창.

2. 그런 다음 끼워 넣다 > 서명을 클릭하고 삽입 할 서명을 선택합니다. 스크린 샷을 참조하십시오.

회의에 문서 자동 삽입 시그 1

3. 서명을 삽입 한 후 개발자 > 이 양식 디자인 새로운 회의 창, 스크린 샷 참조 :

회의에 문서 자동 삽입 시그 2

4. 새 화면에서 개발자 > 게시이다. > 양식을 다른 이름으로 게시, 스크린 샷 참조 :

회의에 문서 자동 삽입 시그 3

5. 튀어 나온 양식을 다른 이름으로 게시 대화 상자에 이름을 입력하십시오. 디스플레이 이름 텍스트 상자를 클릭 한 다음 게시이다. 버튼, 스크린 샷 참조 :

회의에 문서 자동 삽입 시그 4

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

7. 이제부터 서명이있는 새 회의를 만들려면 홈페이지 > 새 항목 > 사용자 정의 양식을 클릭 한 다음 방금 만든 양식을 선택합니다. 그리고 서명은 회의 본문에 자동으로 삽입됩니다. 스크린 샷을 참조하십시오.

회의에 문서 자동 삽입 시그 5


VBA 코드로 Outlook 모임 요청에 자동으로 서명 삽입

아래 VBA 코드는 모임 요청에 자동으로 서명을 삽입하는 데 도움이 될 수 있습니다. 다음 단계를 수행하십시오.

1. 누르고 ALT + F11 키를 눌러 응용 프로그램 용 Microsoft Visual Basic 창.

2. 에서 응용 프로그램 용 Microsoft Visual Basic 창, 더블 클릭 ThisOutlook세션 인사말 프로젝트 1 (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

회의에 문서 자동 삽입 시그 6

3. 그런 다음 코드 창을 저장하고 닫으면 발신 회의 초대를 보낼 때 특정 서명이 자동으로 삽입됩니다. 당신은 갈 수 있습니다 보낸 항목 결과를 확인하는 폴더 :

회의에 문서 자동 삽입 시그 7


최고의 사무 생산성 도구

속보: Outlook용 Kutools 출시 무료 버전!

완전히 새로운 Outlook용 Kutools를 경험해보세요 70개 이상의 놀라운 기능을 갖춘 무료 버전으로 영원히 사용할 수 있습니다.! 지금 다운로드하려면 클릭하세요!

🤖 Kutools AI : AI 마법이 적용된 즉각적인 전문가 이메일 - 원클릭으로 천재적인 답변, 완벽한 어조, 다국어 숙달이 가능합니다. 손쉽게 이메일을 변환하세요! ...

📧 이메일 자동화: 자동 회신(POP 및 IMAP에서 사용 가능)  /  이메일 보내기 예약  /  이메일 발송 시 규칙에 따른 자동 참조/숨은참조  /  자동 전달(고급 규칙)   /  인사말 자동 추가   /  여러 수신자 이메일을 개별 메시지로 자동 분할 ...

📨 이메일 관리: 리콜 이메일  /  제목 및 기타 사기 이메일 차단  /  중복 이메일 삭제  /  고급 검색  /  폴더 통합 ...

📁 첨부 파일 프로일괄 저장  /  일괄 분리  /  일괄 압축  /  자동 저장   /  자동 분리  /  자동 압축 ...

🌟 인터페이스 매직: 😊더 예쁘고 멋진 이모티콘   /  중요한 이메일이 오면 알림  /  문을 닫는 대신 전망을 최소화하세요 ...

???? 원클릭 불가사의: 수신 첨부 파일과 함께 전체 회신  /   피싱 방지 이메일  /  🕘발신자의 시간대 표시 ...

👩🏼‍🤝‍👩🏻 연락처 및 캘린더: 선택한 이메일에서 연락처 일괄 추가  /  연락처 그룹을 개별 그룹으로 분할  /  생일 알림 제거 ...

한 번의 클릭으로 Outlook용 Kutools를 즉시 잠금 해제—영구적으로 무료. 기다리지 마세요. 지금 다운로드하여 효율성을 높이세요!

Outlook 기능을 위한 kutools1 Outlook 기능을 위한 kutools2
 

 

 

Comments (2)
No ratings yet. Be the first to rate!
This comment was minimized by the moderator on the site
Dear Supporter,

Regarding to VBA "hack", in Outlook365 does not insert the default signature at the end of a neither a new meeting nor appointment. What should I change in the code to get it work?

Thank you in advance.

Best regards: Laszlo
This comment was minimized by the moderator on the site
What lines do I need to change to get this to work on my own profile? I've added the string to my signature location.
Automatically Insert Signature To Outlook Meeting Requests With VBA Code
There are no comments posted here yet
Leave your comments
Posting as Guest
×
Rate this post:
0   Characters
Suggested Locations