Outlook에서 새 이메일을 작성할 때 여러 이메일 계정에 서로 다른 서명을 추가하려면 어떻게 해야 하나요?

Author Amanda Li Last modified 2025-08-26

이메일 서명 튜터리얼: Outlook의 이메일 서명에서는 Outlook에서 서명을 만드는 방법을 이해해야 합니다. 그러나 새 서명을 생성한 후에는 메시지 창에서 서명 > 생성된 서명을 선택하여 수동으로 새 메시지에 생성된 서명을 추가해야 합니다.

물론, 새 메시지를 작성할 때 자동으로 서명을 추가하도록 Outlook을 설정할 수 있습니다. 서명 > 서명을 클릭하고 아래와 같이 특정 이메일 계정에 대한 서명을 선택하면 됩니다.

steps of adding different signatures to multiple email accounts when create a new email in Outlook

그러나 많은 이메일 계정이 있고 여러 계정에 대해 서로 다른 서명을 일괄적으로 추가하려면 어떻게 해야 할까요? 이 튜터리얼에서는 VBA 방법을 소개하여 이 작업을 쉽게 해결할 수 있도록 도와드리겠습니다.

Outlook에서 새 이메일을 작성할 때 여러 이메일 계정에 서로 다른 서명 추가하기

1. Outlook에서 Alt + F11 키를 눌러 Microsoft Visual Basic for Applications 창을 엽니다.

2. Microsoft Visual Basic for Applications 창에서 프로젝트 창의 ThisOutlookSession을 두 번 클릭하고 아래 VBA 코드를 ThisOutlookSession (코드) 창에 복사합니다. 스크린샷 보기:

VBA 코드: Outlook에서 새 이메일을 작성할 때 여러 이메일 계정에 서로 다른 서명 추가 - ThisOutlookSession

Public WithEvents GInspectors As Inspectors
Public WithEvents GExplorer As Explorer

Private Sub Application_Startup()
  Set GInspectors = Application.Inspectors
  Set GExplorer = Application.ActiveExplorer
End Sub

Private Sub GExplorer_InlineResponse(ByVal Item As Object)
‘Update by ExtendOffice
Dim xMail As MailItem
On Error Resume Next
EndTimer
If Item.Class = olMail Then
  Set xMail = Item
  Set GInspector = Nothing
  Set GInspector = xMail.GetInspector
  StartTimer
End If
End Sub

Private Sub GInspectors_NewInspector(ByVal Inspector As Inspector)
  On Error Resume Next
  EndTimer
  Set GInspector = Nothing
  Set GInspector = Inspector
  StartTimer
End Sub

3. Microsoft Visual Basic for Applications 창에서 삽입 > 모듈을 클릭합니다. 그런 다음 다음 VBA 코드를 모듈 창에 복사합니다.

VBA 코드: Outlook에서 새 이메일을 작성할 때 여러 이메일 계정에 서로 다른 서명 추가 - 모듈

Public Declare PtrSafe Function SetTimer Lib "user32" (ByVal HWnd As Long, ByVal nIDEvent As Long, ByVal uElapse As Long, ByVal lpTimerFunc As LongPtr) As Long
Public Declare PtrSafe Function KillTimer Lib "user32" (ByVal HWnd As Long, ByVal nIDEvent As Long) As Long
Public TimerID As Long
Public GInspector As Inspector

Sub StartTimer()
  On Error Resume Next
  TimerID = SetTimer(0&, 0&, 1000&, AddressOf TimerProc)
End Sub

Sub EndTimer()
  On Error Resume Next
  KillTimer 0&, TimerID
End Sub

Sub TimerProc(ByVal HWnd As Long, ByVal uMsg As Long, ByVal nIDEvent As Long, ByVal dwTimer As Long)
  On Error Resume Next
  Call SetSignatureToAccount
  EndTimer
End Sub

Sub SetSignatureToAccount()
‘Update by ExtendOffice
Dim xMail As MailItem
Dim xSignatureFile, xSignaturePath As String
Dim xSubject As String
Dim xDoc As Document
Dim xAccount As Account
Dim xIsNew As Boolean
Dim xInspector As Inspector
Const PR_SMTP_ADDRESS As String = "http://schemas.microsoft.com/mapi/proptag/0x39FE001E"
On Error Resume Next
xSignaturePath = CreateObject("WScript.Shell").SpecialFolders(5) + "\Microsoft\Signatures\"
xSubject = GInspector.Caption
Set xDoc = GInspector.WordEditor
xIsNew = False
Set xMail = GInspector.CurrentItem
Select Case xMail.Parent.Parent
  Case "name1@example.com" 'Replace the email address in double quotes
    If VBA.InStr(xSubject, "RE: ") = 1 Then
      Exit Sub
    ElseIf VBA.InStr(xSubject, "FW: ") = 1 Then
      Exit Sub
    Else
      xSignatureFile = xSignaturePath & "Signature1.htm" 'Replace "Signature1" with your actual signature name
      xIsNew = True
    End If
  Case "name2@example.com" 'Replace the email address in double quotes
    If VBA.InStr(xSubject, "RE: ") Then
      Exit Sub
    ElseIf VBA.InStr(xSubject, "FW: ") Then
      Exit Sub
    Else
      xSignatureFile = xSignaturePath & "Signature2.htm" 'Replace "Signature2" with your actual signature name
      xIsNew = True
    End If
  'Add more Cases for more email accounts
End Select
If xIsNew = True Then
  With xDoc.Application.Selection
    .WholeStory
    .EndKey
    .InsertParagraphAfter
    .MoveDown Unit:=wdLine, Count:=1
    .InsertFile FileName:=xSignatureFile, Link:=False, Attachment:=False
  End With
Else
  With xDoc.Application.Selection
    .MoveRight Unit:=wdCharacter, Count:=1
    .HomeKey Emptyparam, Emptyparam
    .InsertFile FileName:=xSignatureFile, Link:=False, Attachment:=False
  End With
End If
Set xDoc = Nothing
Set GInspector = Nothing
Set xMail = Nothing
End Sub

참고:

1) 39행과 48행의 name1@example.com 및 name2@example.com을 실제 이메일 주소로 바꿔야 합니다.
2) 45행과 54행의 Signature1 및 Signature2를 실제 서명 이름으로 바꿔야 합니다.
3) 위의 VBA 코드를 사용하여 두 개의 이메일 계정에 서명을 추가할 수 있습니다. 더 많은 계정이 있는 경우 57행의 코드를 다음과 같은 더 많은 케이스로 대체하세요:

Case "name@example.com"
If VBA.InStr(xSubject, "RE: ") = 1 Then
Exit Sub
ElseIf VBA.InStr(xSubject, "FW: ") = 1 Then
Exit Sub
Else
xSignatureFile = xSignaturePath & "Signature.htm"
xIsNew = True
End If

4. Microsoft Visual Basic for Applications 창에서 도구 > 참조를 클릭하고 Microsoft Word 16.0 Object Library 옆의 확인란을 체크한 후 확인을 클릭합니다.

5. Outlook을 다시 시작하고 VBA 코드를 저장합니다.

6. 이제 서명을 설정한 이메일 계정으로 새 메시지를 작성할 때 해당 서명이 자동으로 추가됩니다.

참고: 이메일 계정으로 새 메시지를 작성할 때 두 개의 서명이 추가되는 경우가 있다면, 메시지 창에서 서명 > 서명을 클릭하세요. 기본 서명 선택 섹션에서 두 개의 서명이 있는 이메일 계정을 선택하고 새 메시지 드롭다운 목록에서 (없음)을 선택하세요.

최고의 오피스 생산성 도구

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

새롭게 달라진 Kutools for Outlook에서100가지 이상의 놀라운 기능을 경험해보세요! 지금 다운로드하세요!

🤖 Kutools AI : 첨단 AI 기술을 활용해 이메일을 손쉽게 처리합니다. 회신, 요약, 최적화, 확장, 번역, 작성까지 모두 지원합니다.

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

📨 이메일 관리: 이메일 회수 / 제목 및 기타 기준으로 의심스러운 이메일 차단 / 중복 이메일 삭제 / 고급 검색 / 폴더 정리 ...

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

🌟 인터페이스 매직: 😊더 예쁘고 다양한 이모지 / 중요한 이메일이 오면 알림 / Outlook 종료 대신 최소화 ...

👍 원클릭 기능: 모두 회신 (첨부 파일 포함) / 피싱 방지 이메일 / 🕘보낸 사람의 시간대 표시 ...

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

원하는 언어로 Kutools를 사용하세요 – 영어, 스페인어, 독일어, 프랑스어, 중국어 및40가지 이상을 지원합니다!

한 번의 클릭으로 Kutools for Outlook을 즉시 활성화하세요. 기다리지 말고 지금 다운로드하여 업무 효율을 높여보세요!

Kutools for Outlook 기능 목록 지금 다운로드 구매하기 이동

🚀 원클릭 다운로드 — 모든 Office 추가 기능 받기

강력 추천: Kutools for Office (5-in-1)

한 번의 클릭으로 다섯 종류의 설치 파일을 동시에 다운로드하세요 — Kutools for Excel, Outlook, Word, PowerPoint 및 Office Tab Pro. 지금 다운로드하세요!

✅ 원클릭 편리함: 다섯 가지 설치 패키지를 단 한 번에 다운로드할 수 있습니다.
🚀 모든 Office 작업에 바로 준비 완료: 필요한 추가 기능을 원하는 때에 설치하세요.
🧰 포함됨: Kutools for Excel / Kutools for Outlook / Kutools for Word / Office Tab Pro / Kutools for PowerPoint

제품 모음 안내 ⬇ 제품 모음 다운로드 💳 제품 모음 구매