Outlook 이메일 정보 추출： 이름， 회사， 전화번호 및 이메일 주소 같은 핵심 정보 추출

오늘날 빠르게 진행되는 이메일 커뮤니케이션 환경에서 이름， 이메일 주소， 숫자(예： 가격， 전화번호) 및 회사 이름와 같은 핵심 정보를 이메일에서 신속하게 추출하는 것이 매우 중요합니다。 특히 긴 이메일을 다룰 때 이러한 정보를 추출하면 내용을 더 빠르게 파악할 수 있을 뿐만 아니라 업무 효율성과 정확도를 크게 향상시킬 수 있습니다。 이 튜토리얼에서는 다음과 같은 세 가지 이메일 정보 추출 방법을 소개합니다：수동 추출,VBA 반자동 추출， 그리고KUTOOLS AI 완전 자동 추출， 각자의 요구사항에 가장 적합한 방법을 선택할 수 있도록 도와드립니다。

전통적인 추출 – 수동

이메일에서 데이터를 수동으로 복사하여 붙여넣습니다。 간단하지만 느리고 오류가 발생하기 쉽습니다。

KUTOOLS AI 을 사용한 추출 – 완전 자동

Kutools for Outlook 의 AI 도우미을 사용하면 한 번의 클릭으로 데이터를 자동 추출할 수 있습니다。 빠르고 정확하며 사용이 간편합니다。

VBA 를 사용한 추출 – 반자동

VBA 스크립트를 사용하여 추출을 부분적으로 자동화합니다。 코딩 능력이 필요하며 맞춤 설정이 제한적입니다。

---

전통적인 추출 – 수동

---

수동 추출은 가장 기본적인 방법으로, 사용자가 이메일을 열고 이름, 이메일 주소, 전화번호 등의 핵심 정보를 직접 찾아 Excel 이나 다른 문서에 복사-붙여넣기 해야 합니다。

1 단계。 대상 이메일을 열고 내용을 확인합니다。

2 단계。 이름， 이메일 주소， 전화번호 등 핵심 정보를 직접 찾아 선택한 후Ctrl+C를 눌러 복사합니다。

3 단계. Excel 이나 다른 문서로 이동하여Ctrl+V를 눌러 붙여넣습니다。

---

KUTOOLS AI 을 사용한 추출 – 완전 자동

---

Kutools for Outlook의AI 도우미은 완전 자동화된 솔루션을 제공합니다。 고급 AI 기술을 활용하여 이름， 회사 이름， 전화번호， 이메일 주소 등 핵심 정보를 단 한 번의 클릭으로 추출할 수 있습니다。

1 단계. Kutools for Outlook 을 설치한 후 Outlook 을 열고Kutools>AI를 클릭하여 KUTOOLS AI 기능을 활성화합니다。

2 단계。 활성화된KUTOOLS AI 창에서추출탭을 클릭한 후생성버튼을 클릭하여 현재 이메일의 정보를 AI 로 추출합니다。

창에 모든 핵심 정보가 추출되어 표시됩니다。

3 단계。 내용이 만족스럽지 않다면다시 생성버튼을 클릭하여 AI 가 새로운 핵심 정보를 추출하도록 합니다。

4 단계。 내용이 만족스럽다면복사버튼을 클릭하여추출된 내용을 복사한 후 원하는 곳에 붙여넣으세요。

맞춤 설정

사용자는 이름， 회사 이름， 전화번호 등 추출할 정보 유형을 맞춤 설정할 수 있습니다。

스킬 라이브러리 관리버튼을 클릭하고추출스킬을 찾아추가버튼을 클릭하여 맞춤 요청 사항을 입력하고 저장하세요。

---

VBA 를 사용한 추출 – 반자동

---

VBA(Visual Basic for Applications)는 스크립트를 작성하여 이메일에서 특정 정보를 추출하는 반자동 방식입니다。

참고: 여기 제공된 VBA 는 이메일 주소 추출 및 숫자만 추출할 수 있으며， 추출된 내용을 복사할 수 없이 대화 상자에만 표시합니다。

1 단계。 대상 이메일을 열고 내용을 확인합니다。

1 단계。Alt+F11키를 눌러Microsoft Visual Basic for Applications창을 연 후삽입>모듈을 클릭하여 새 모듈을 생성합니다。

2 단계。 아래의 VBA 코드를 복사하여 새 모듈에 붙여넣습니다。

VBA： 이메일 주소 추출 및 숫자 추출 현재 이메일에서 추가

Sub ExtractDataFromCurrentEmail()
'UpdateByKutools
    Dim xCurEmail As Object
    Dim xEmailBody As String
    Dim xEmailPattern As String
    Dim xPhonePattern As String
    Dim xMatches As Object
    Dim xMatch As Variant
    Dim xExtractedData As String
    On Error Resume Next
    'Get the currently selected email
    If Application.ActiveWindow = Inspector Then
        Set xCurEmail = Application.ActiveInspector.CurrentItem
    Else
        Set xCurEmail = Application.ActiveExplorer.Selection.Item(1)
    End If
    'Check if the selected item is an email
    If xCurEmail.Class <> olMail Then
        MsgBox "Please select an email to extract data.", vbExclamation
        Exit Sub
    End If
    'Extract the email body
    xEmailBody = xCurEmail.Body
    'Define regex patterns for email addresses, and phone numbers
    xEmailPattern = "\b[A-Za-z0-9._%+-]+@[A-Za-z0-9.-]+\.[A-Z|a-z]{2,}\b"
    xPhonePattern = "\d+"
    'Initialize the extracted data string
    xExtractedData = "Extracted Data:" & vbCrLf & vbCrLf
    'Extract email addresses using regex
    Set xMatches = ExtractUsingRegex(xEmailBody, xEmailPattern)
    If xMatches.Count > 0 Then
        xExtractedData = xExtractedData & "Email Addresses:" & vbCrLf
        For Each xMatch In xMatches
            xExtractedData = xExtractedData & xMatch & vbCrLf
        Next xMatch
        xExtractedData = xExtractedData & vbCrLf
    Else
        xExtractedData = xExtractedData & "No email addresses found." & vbCrLf & vbCrLf
    End If
    'Extract phone numbers using regex
    Set xMatches = ExtractUsingRegex(xEmailBody, xPhonePattern)
    If xMatches.Count > 0 Then
        xExtractedData = xExtractedData & "Numbers:" & vbCrLf
        For Each xMatch In xMatches
            xExtractedData = xExtractedData & xMatch & vbCrLf
        Next xMatch
    Else
        xExtractedData = xExtractedData & "No numbers found." & vbCrLf
    End If
    'Display the extracted data in a message box
    MsgBox xExtractedData, vbInformation, "Extracted Data"
End Sub

Function ExtractUsingRegex(Text As String, Pattern As String) As Object
    Dim xRegex As Object
    Set xRegex = CreateObject("VBsrcipt.RegExp")
    With xRegex
        .Global = True
        .IgnoreCase = True
        .Pattern = Pattern
    End With
    Set ExtractUsingRegex = xRegex.Execute(Text)
End Function

3 단계。실행버튼을 클릭하거나F5키를 누른 후 실행 버튼을 클릭하여 코드를 실행합니다。

추출된 정보를 표시하는 대화 상자가 나타납니다。

---

방법 비교

---

방법	수동 추출	Kutools	VBA
사용 용이성	간단함	매우 쉬움	중간
적합한 사용자	가끔 사용하는 경우	빈번하거나 대규모 작업	고급 사용자
맞춤 설정	없음	높은 수준의 맞춤 설정 가능	제한적(코딩 필요)
추출 속도	느림	빠름	중간
정확도	낮음	높음	중간

가끔 정보를 추출해야 하든, 대량의 이메일을 자주 처리하든 이번 튜토리얼에서 소개한 세 가지 방법이 여러분의 요구를 충족시켜 드릴 수 있습니다. 빠르고 정확하며 코딩이 필요 없는 솔루션을 원하신다면 Kutools for Outlook 의 AI 도우미가 최선의 선택입니다。지금 바로 다운로드하여 무료 체험판을 사용해 보시고 한 번의 클릭으로 이메일 정보를 추출하는 편리함을 경험해 보세요！

관련 문서

• Outlook 문법 검사기： 실수 없는 이메일 작성
• AI 기능으로 Outlook 에서 손쉽게 이메일 회신하기
• 이메일 작성 간소화: Outlook 에서 AI 사용이 쉬워졌습니다
• Outlook 이메일용 AI 요약 기능