Outlook 모임 요청에 자동으로 서명을 삽입하는 방법은 무엇입니까?
Outlook에서는 쉽게 전자 메일에 서명을 자동 삽입 할 수 있지만 모임 초대에 자동으로 서명을 삽입하려는 경우이 작업을 직접 해결할 수있는 방법이 없습니다. 이 기사에서는 Outlook 모임 요청에 서명을 자동으로 삽입하는 몇 가지 유용한 방법에 대해 설명합니다.
사용자 지정 양식을 사용하여 Outlook 모임 요청에 자동으로 서명 삽입
VBA 코드로 Outlook 모임 요청에 자동으로 서명 삽입
사용자 지정 양식을 사용하여 Outlook 모임 요청에 자동으로 서명 삽입
Outlook에서 모임 요청에 자동으로 서명을 삽입하는 사용자 지정 양식을 만들 수 있습니다. 다음과 같이하십시오.
1. 다음으로 이동하십시오. 칼렌더 창을 클릭 한 다음 홈 > 새로운 회의 새로운 것을 열려면 회의 창.
2. 그런 다음 끼워 넣다 > 서명을 클릭하고 삽입 할 서명을 선택합니다. 스크린 샷을 참조하십시오.
3. 서명을 삽입 한 후 개발자 > 이 양식 디자인 새로운 회의 창, 스크린 샷 참조 :
4. 새 화면에서 개발자 > 게시이다. > 양식을 다른 이름으로 게시, 스크린 샷 참조 :
5. 튀어 나온 양식을 다른 이름으로 게시 대화 상자에 이름을 입력하십시오. 디스플레이 이름 텍스트 상자를 클릭 한 다음 게시이다. 버튼, 스크린 샷 참조 :
6. 그런 다음 현재 회의 창을 저장하지 않고 닫습니다.
7. 이제부터 서명이있는 새 회의를 만들려면 홈 > 새 항목 > 사용자 정의 양식을 클릭 한 다음 방금 만든 양식을 선택합니다. 그리고 서명은 회의 본문에 자동으로 삽입됩니다. 스크린 샷을 참조하십시오.
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 }\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. 그런 다음 코드 창을 저장하고 닫으면 발신 회의 초대를 보낼 때 특정 서명이 자동으로 삽입됩니다. 당신은 갈 수 있습니다 보낸 항목 결과를 확인하는 폴더 :
최고의 사무 생산성 도구
Outlook 용 Kutools - 귀하의 전망을 강화하는 100개 이상의 강력한 기능
🤖 AI 메일 도우미: AI 마법이 적용된 즉각적인 전문가 이메일 - 원클릭으로 천재적인 답변, 완벽한 어조, 다국어 숙달이 가능합니다. 손쉽게 이메일을 변환하세요! ...
📧 이메일 자동화: 부재중(POP 및 IMAP에서 사용 가능) / 이메일 보내기 예약 / 이메일 발송 시 규칙에 따른 자동 참조/숨은참조 / 자동 전달(고급 규칙) / 인사말 자동 추가 / 여러 수신자 이메일을 개별 메시지로 자동 분할 ...
📨 이메일 관리: 이메일을 쉽게 기억할 수 있습니다. / 제목 및 기타 사기 이메일 차단 / 중복 이메일 삭제 / 고급 검색 / 폴더 통합 ...
📁 첨부 파일 프로: 일괄 저장 / 일괄 분리 / 일괄 압축 / 자동 저장 / 자동 분리 / 자동 압축 ...
🌟 인터페이스 매직: 😊더 예쁘고 멋진 이모티콘 / 탭 보기로 Outlook 생산성 향상 / 문을 닫는 대신 전망을 최소화하세요 ...
???? 원클릭 불가사의: 수신 첨부 파일과 함께 전체 회신 / 피싱 방지 이메일 / 🕘발신자의 시간대 표시 ...
👩🏼🤝👩🏻 연락처 및 캘린더: 선택한 이메일에서 연락처 일괄 추가 / 연락처 그룹을 개별 그룹으로 분할 / 생일 알림 제거 ...
이상 100 특징 당신의 탐험을 기다려주세요! 더 알아보려면 여기를 클릭하세요.
