이 VBA는 Outlook에서 전자 메일에 회신 할 때 전자 메일의 보낸 사람과 모든받는 사람을 새 연락처로 자동 추가합니다. 다음과 같이하십시오 :

1. 프레스 다른 + F11 키를 눌러 Microsoft Visual Basic for Applications 창을 엽니 다.

2. Project1을 확장하고 두 번 클릭합니다. ThisOutlook세션 열어서 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에서 이메일에 답장하면이 이메일의 발신자와 모든 수신자가 기본 이메일 계정의 기본 연락처 폴더에 자동으로 새 연락처로 저장됩니다.

Outlook의 보낸 편지함 이메일 / 폴더에서 연락처를 일괄 추가하는 방법은 무엇입니까?

Outlook의 연락처 그룹에 연락처를 일괄 추가하는 방법은 무엇입니까?