Outlook 에서 이메일 회신 시 자동으로 연락처 추가하는 방법은 무엇인가요？
이메일에 회신할 때 발신자나 수신자를 자동으로 Outlook 연락처에 추가하고 싶을 수 있습니다. 이렇게 하면 저장 시간하고 중요한 연락처 정보를 잃어버리지 않을 수 있습니다. Outlook 은 기본적으로 회신 시 자동 연락처 추가 기능을 지원하지 않지만， 이메일에서 자동으로 연락처 추가하는 두 가지 방법과 Kutools for Outlook 기능을 안내해 드리겠습니다。
VBA 를 사용하여 Outlook 이메일 회신 시 자동으로 연락처 추가하기
일괄 추가을(를) 사용하여 선택한 항목의 여러 발신자 및 수신자를 연락처에 추가하기
VBA 를 사용하여 Outlook 이메일 회신 시 자동으로 연락처 추가하기
이 VBA 는 Outlook 에서 이메일에 회신할 때 해당 이메일의 발신자와 모든 수신자를 자동으로 연락처으로 추가합니다。 다음 단계를 따르세요：
1.Alt+F11키를 눌러 Microsoft Visual Basic for Applications 창을 엽니다。
2. Project1 을 확장한 후ThisOutlookSession을(를) 두 번 클릭하여 열고， 아래 VBA 코드를 ThisOutlookSession 창에 붙여넣습니다。 스크린샷 참조：
VBA: Outlook 에서 이메일 회신 시 자동으로 연락처 추가하기
Public WithEvents xExplorer As Outlook.Explorer
Public WithEvents xMailItem As Outlook.MailItem
Sub Application_Startup()
Set xExplorer = Outlook.Application.ActiveExplorer
End Sub
Private Sub xExplorer_SelectionChange()
On Error Resume Next
Set xMailItem = xExplorer.Selection.Item(1)
End Sub
Private Sub xMailItem_Reply(ByVal Response As Object, Cancel As Boolean)
Dim xNameSpace As NameSpace
Dim xSenderAddress As String
Dim xContactItems As Outlook.Items
Dim i, k As Long
Dim xFilterAddress As String
Dim xContact As Outlook.ContactItem
Dim xNewContact As Outlook.ContactItem
Dim Arr() As String
Dim ArrName() As String
Dim xArrCount As Integer
On Error Resume Next
ReDim Arr(xMailItem.Recipients.Count + 1)
ReDim ArrName(xMailItem.Recipients.Count + 1)
xSenderAddress = xMailItem.SenderEmailAddress
Arr(0) = xSenderAddress
ArrName(0) = xMailItem.SenderName
For i = LBound(Arr) + 1 To UBound(Arr) - 1
Arr(i) = xMailItem.Recipients.Item(i).Address
ArrName(i) = xMailItem.Recipients.Item(i).Name
Next i
Set xNameSpace = Outlook.Application.GetNamespace("MAPI")
Set xContactItems = xNameSpace.GetDefaultFolder(olFolderContacts).Items
For i = LBound(Arr) To UBound(Arr) - 1
For k = 1 To 3
xFilterAddress = "[Email" & k & "Address] = " & Arr(i)
Set xContact = xContactItems.Find(xFilterAddress)
If Not (xContact Is Nothing) Then
Exit For
End If
Next k
If xContact Is Nothing Then
Set xNewContact = Outlook.Application.CreateItem(olContactItem)
With xNewContact
.FullName = ArrName(i)
.Email1Address = Arr(i)
.Categories = "From Email"
.Save
End With
End If
Next i
End Sub
3. VBA 코드를 저장한 후 Microsoft Outlook 을 다시 시작합니다。
이제부터 Outlook 에서 이메일에 회신하면 해당 이메일의 발신자와 모든 수신자가 기본 이메일 계정의 기본 연락처 폴더에 자동으로 연락처으로 저장됩니다。
일괄 추가을(를) 사용하여 선택한 항목의 여러 발신자 및 수신자를 연락처에 추가하기
Kutools for Outlook은(는)선택한 이메일의 발신자 및 다수 수신자 연락처에 추가기능을 통해 연락처 추가을(를) 간편하게 처리합니다。 이를 통해 하나 이상의 이메일에서 일괄적으로 연락처 추가할 수 있습니다。
1 단계 1. Kutools for Outlook 을(를) 다운로드하여 설치합니다。 그런 다음 보낸 편지함 폴더(또는 다른 폴더)로 이동하여 연락처에 추가할 발신자 및 수신자가 포함된 메시지를 선택합니다。
2 단계 2。Kutools>연락처 추가>선택한 이메일의 발신자 및 다수 수신자 연락처에 추가를 클릭합니다。
3 단계 3. 이메일에서 연락처 추가 대화 상자에서
연락처 폴더 선택： 연락처을(를) 저장할 폴더를 선택하세요。
주소 선택： 기본적으로 기존 주소를 제외한 모든 주소가 선택됩니다。 목록을 확인하고 추가하지 않으려는 주소의 선택을 해제하세요。
확인(OK) 클릭： 선택 내용을 확인하고 연락처를 지정된 폴더에 저장합니다。
4 단계 4. 추가된 연락처 수를 표시하는 대화 상자가 나타납니다。 대화 상자를 닫으려면확인(OK)를 클릭합니다。
관련 문서
최고의 Office 생산성 도구
Kutools for Outlook 의 완전히 새로운 버전을 100+가지 놀라운 기능과 함께 경험해 보세요！지금 다운로드하세요！
🤖KUTOOLS AI:고급 AI 기술을 활용하여 이메일 회신， 요약， 최적화， 확장， 번역， 작성 등 이메일 관련 작업을 손쉽게 처리합니다。
📧이메일 자동화:자동 회신(POP 및 IMAP 지원)/이메일 예약 발송/이메일 발송 시 규칙에 따라 자동 참조/숨은 참조/자동 전달(고급 규칙)/자동 인사말 추가/수신자 여러 명이 포함된 이메일을 자동으로 개별 메시지로 분할...
📨이메일 관리:이메일 회수/제목 등을 기준으로 피싱 이메일 차단/중복된 이메일 삭제/고급 검색/폴더 정리...
📁첨부파일 프로:일괄 저장/일괄 분리/일괄 압축/자동 저장/자동 분리/자동 압축...
🌟인터페이스 마법:😊더 예쁘고 멋진 이모지 제공/중요 이메일 수신 시 알림/Outlook 종료 대신 최소화...
👍한 번의 클릭으로 해결:모두 회신(첨부 파일 포함)/피싱 이메일 방지/🕘발신자의 현재 시간 시간대 표시...
👩🏼🤝👩🏻연락처 및 캘린더:선택한 이메일에서 연락처 추가 일괄 생성/연락처 그룹를 개별 그룹으로 분할/생일 알림 제거...
Kutools 를 선호하는 언어로 사용하세요 – 영어， 스페인어， 독일어， 프랑스어， 중국어 및 40+개의 다른 언어를 지원합니다！
한 번의 클릭으로 즉시 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