Outlook의 수신자를 기반으로 서명을 자동으로 변경하는 방법은 무엇입니까?
기본적으로 Outlook에는 사용자가 다른 전자 메일 계정을 통해 전자 메일을 보내는 동안 자동으로 서명을 변경할 수있는 기본 제공 기능이 있습니다. 그러나 그 외에도 Outlook의받는 사람 필드에있는 다른받는 사람에 따라 자동으로 서명을 변경하는 방법을 보여 드리겠습니다.
VBA 코드로 수신자에 따라 자동으로 서명 변경
Outlook에서 이메일을 보내는 동안 해당 수신자에게 다른 서명을 적용하려면 아래 단계를 따르십시오.
1. 첫째, Outlook에서 자동 첨부 서명 기능을 비활성화해야합니다. 클릭하세요 입양 부모로서의 귀하의 적합성을 결정하기 위해 미국 이민국에 > 옵션 를 열려면 전망 옵션 창.
2. 에서 전망 옵션 창에서 선택 우편 왼쪽 창에서 서명 버튼의 메시지 작성 부분. 스크린 샷보기 :
3. 에서 서명 및 문구 대화 상자에서 기본 서명 선택 아래 섹션 전자 메일 서명 탭에서 이메일 계정을 선택하십시오. 이메일 계정 드롭 다운 목록을 선택한 다음 (없음) 인사말 새 메시지 과 답장 / 전달 드롭 다운 목록. 모든 이메일 계정이 다음으로 설정 될 때까지이 단계를 반복합니다. (없음). 그런 다음 OK 버튼을 클릭합니다.
주의 사항: 여기에서 필요한 서명을 만들 수도 있습니다. 서명 및 문구 대화 상자.
4. 을 클릭합니다 OK 버튼이 반환되면 전망 옵션 창.
5. 누르세요 다른 + F11 키를 눌러 응용 프로그램 용 Microsoft Visual Basic 창.
6. 에서 응용 프로그램 용 Microsoft Visual Basic 창, 더블 클릭 ThisOutlook세션 왼쪽 창에서 코드 창을 열고 VBA 코드 아래의 복사본을 창으로 엽니 다. 스크린 샷보기 :
VBA 코드 : Outlook의받는 사람에 따라 자동으로 서명 변경
Private Sub Application_ItemSend(ByVal Item As Object, Cancel As Boolean)
'Updated by ExtendOffice 2022/08/01
Dim xMailItem As MailItem
Dim xRecipients As Recipients
Dim xRecipient As Recipient
Dim xRcpAddress As String
Dim xSignatureFile, xSignaturePath As String
Dim xFSO As Scripting.FileSystemObject
Dim xDoc As Document
Dim xFindStr As String
On Error Resume Next
Set xFSO = New Scripting.FileSystemObject
If Item.Class <> olMail Then Exit Sub
Set xMailItem = Item
Set xRecipients = xMailItem.Recipients
xSignaturePath = CreateObject("WScript.Shell").SpecialFolders(5) + "\Microsoft\Signatures\"
For Each xRecipient In xRecipients
If xRecipient.AddressEntry.AddressEntryUserType = olExchangeUserAddressEntry Then
xRcpAddress = xRecipient.AddressEntry.GetExchangeUser.PrimarySmtpAddress
Else
xRcpAddress = xRecipient.AddressEntry.Address
End If
Select Case xRcpAddress
Case "Email Address 1"
xSignatureFile = xSignaturePath & "aaa.htm"
Exit For
Case "Email Address 2", "Email Address 3"
xSignatureFile = xSignaturePath & "bbb.htm"
Exit For
Case "Email Address 4"
xSignatureFile = xSignaturePath & "ccc.htm"
Exit For
End Select
Next
VBA.DoEvents
Set xDoc = xMailItem.GetInspector.WordEditor
xFindStr = "From: " & xMailItem.Recipients.Item(1).Name & " <" & xRcpAddress & ">"
If VBA.InStr(1, xMailItem.Body, xFindStr) <> 0 Then
xDoc.Application.Selection.HomeKey Unit:=wdStory, Extend:=wdMove
With xDoc.Application.Selection.Find
.ClearFormatting
.Text = xFindStr
.Execute Forward:=True
End With
With xDoc.Application.Selection
.MoveLeft wdCharacter, 2
.InsertParagraphAfter
.MoveDown Unit:=wdLine, Count:=1
End With
Else
With xDoc.Application.Selection
.EndKey Unit:=wdStory, Extend:=wdMove
.InsertParagraphAfter
.MoveDown Unit:=wdLine, Count:=1
End With
End If
xDoc.Application.Selection.InsertFile FileName:=xSignatureFile, Link:=False, Attachment:=False
End Sub
노트:
- 1). VBA 코드에서 "이메일 주소 1/2/3/4”을 수신자의 특정 이메일 주소로 표시합니다.
- 2). "aaa.htm""bbb.htm"와"ccc.htm"는 해당 수신자에게 보낼 지정된 서명입니다.
- 삼). 이 경우 서명 "AAA”이“이메일 주소 1”, 서명“BBB”이“이메일 주소 2"및"이메일 주소 3", 그리고 "이메일 주소 4”은 서명이 포함 된 이메일을 받게됩니다.CCC”. 필요에 따라 변경하십시오.
- 4). 이메일에 여러 수신자가 있는 경우 코드는 첫 번째 수신자만 고려합니다. 이 경우 다른 수신자는 첫 번째 수신자와 동일한 서명을 가진 이메일을 받게 됩니다.
7. 그런 다음 도구 > 참고자료 로 이동합니다 참조-프로젝트 대화 상자. 대화 상자에서 Microsoft Word 개체 라이브러리 그리고 Microsoft 스크립팅 런타임 옵션을 클릭 한 다음 OK 버튼, 스크린 샷 참조 :
8. 누르세요 다른 + Q 닫는 키 응용 프로그램 용 Microsoft Visual Basic 창.
이제부터 이메일을 작성하고 보내기 버튼을 누르면받는 사람 필드의 수신자 이메일 주소를 기준으로 이메일 본문 끝에 해당 서명이 자동으로 삽입됩니다.
Outlook에서 이메일을 보낼 때 현재 날짜를 서명으로 자동 삽입 :
Outlook에서 새 이메일을 작성 / 회신 / 전달하는 동안 이메일 본문에 서명으로 타임 스탬프를 삽입하려면 다음을 활성화 할 수 있습니다. 새 이메일 작성, 회신 및 전달시 날짜 서명 추가 의 옵션 Outlook 용 Kutools 그것을 달성하기 위해. 스크린 샷보기 :
지금 다운로드하여 사용해 보십시오(60일 무료 트레일)
최고의 사무 생산성 도구
Outlook 용 Kutools - 귀하의 전망을 강화하는 100개 이상의 강력한 기능
🤖 AI 메일 도우미: AI 마법이 적용된 즉각적인 전문가 이메일 - 원클릭으로 천재적인 답변, 완벽한 어조, 다국어 숙달이 가능합니다. 손쉽게 이메일을 변환하세요! ...
📧 이메일 자동화: 부재중(POP 및 IMAP에서 사용 가능) / 이메일 보내기 예약 / 이메일 발송 시 규칙에 따른 자동 참조/숨은참조 / 자동 전달(고급 규칙) / 인사말 자동 추가 / 여러 수신자 이메일을 개별 메시지로 자동 분할 ...
📨 이메일 관리: 이메일을 쉽게 기억할 수 있습니다. / 제목 및 기타 사기 이메일 차단 / 중복 이메일 삭제 / 고급 검색 / 폴더 통합 ...
📁 첨부 파일 프로: 일괄 저장 / 일괄 분리 / 일괄 압축 / 자동 저장 / 자동 분리 / 자동 압축 ...
🌟 인터페이스 매직: 😊더 예쁘고 멋진 이모티콘 / 탭 보기로 Outlook 생산성 향상 / 문을 닫는 대신 전망을 최소화하세요 ...
???? 원클릭 불가사의: 수신 첨부 파일과 함께 전체 회신 / 피싱 방지 이메일 / 🕘발신자의 시간대 표시 ...
👩🏼🤝👩🏻 연락처 및 캘린더: 선택한 이메일에서 연락처 일괄 추가 / 연락처 그룹을 개별 그룹으로 분할 / 생일 알림 제거 ...
이상 100 특징 당신의 탐험을 기다려주세요! 더 알아보려면 여기를 클릭하세요.