Outlook 에서 수신자에 따라 서명을 자동으로 변경하는 방법은 무엇인가요？

기본적으로 Outlook 에는 서로 다른 이메일 계정을 통해 이메일을 보낼 때 자동으로 서명을 변경하는 기본 제공 기능이 있습니다. 그러나 여기서는 Outlook 의 받는 사람 필드에 있는 수신자에 따라 서명을 자동으로 변경하는 방법을 안내합니다。

VBA 코드로 수신자에 따라 서명을 자동 변경하기

---

VBA 코드로 수신자에 따라 서명을 자동 변경하기

Outlook 에서 이메일을 보낼 때 해당 수신자에게 맞는 서로 다른 서명을 적용하려면 아래 단계를 따르세요。

1. 먼저 Outlook 에서 자동 첨부 서명 기능을 비활성화해야 합니다。파일>옵션을 클릭하여Outlook 옵션창을 엽니다。

2. Outlook 옵션창에서 왼쪽 패널의메일을 선택한 후，서명버튼을메시지 작성섹션에서 클릭합니다。 스크린샷 참조：

3. 서명 및 편지지대화 상자에서기본 서명 선택섹션으로 이동합니다。이메일 서명탭 아래에서이메일 계정목록에서 이메일 계정을 선택하고，(없음)을새 메시지및답장/전달목록에서 선택합니다。 모든 계정 모두(없음)으로 설정될 때까지 이 단계를 반복한 후，확인버튼을 클릭합니다。

참고： 이서명 및 편지지대화 상자에서 필요한 서명을 직접 만들 수도 있습니다。

4. 확인버튼을 클릭하여Outlook 옵션창으로 돌아갑니다。

5. Alt+F11키를 눌러Microsoft Visual Basic for Applications창을 엽니다。

6. Microsoft Visual Basic for Applications창에서 왼쪽 패널의ThisOutlookSession을 두 번 클릭하여 코드 창을 연 후， 아래 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"은 해당 수신자에게 전송할 지정된 서명입니다。
• 3)。 이 경우， 서명 “aaa「은 」이메일 주소 1「에게 전송되고, 서명 」bbb「은 」이메일 주소 2「 및 」이메일 주소 3"에게 전송되며, "이메일 주소 4「은 서명 」ccc"이 포함된 이메일을 받습니다。 필요에 따라 이를 변경하세요。
• 4)。 이메일에 여러 수신자가 있는 경우， 코드는 첫 번째 수신자만 고려합니다。 이 경우 다른 수신자들도 첫 번째 수신자와 동일한 서명이 포함된 이메일을 받게 됩니다。

7. 그런 다음도구>참조를 클릭하여참조 - 프로젝트대화 상자로 이동합니다。 대화 상자에서Microsoft Word 개체 라이브러리와Microsoft Scripting Runtime옵션을 모두 선택한 후，확인버튼을 클릭합니다。 스크린샷 참조：

8. Alt+Q키를 눌러Microsoft Visual Basic for Applications창을 닫습니다。

이제부터 이메일을 작성한 후 보내기 버튼을 누르면， 받는 사람 필드의 수신자 이메일 주소에 따라 해당 서명이 이메일 본문 끝부분에 자동으로 삽입됩니다。

---