여러 Outlook 전자 메일의 모든 하이퍼링크를 Excel로 빠르게 내보내는 방법

Outlook 솔루션 2025 년 9 월 29 일

하나 이상의 이메일에서 모든 하이퍼링크를 추출해야 할 때 하나씩 복사하는 것은 어리석은 일입니다. 이 피ost 많은 이메일의 모든 하이퍼링크를 Excel로 빠르게 내보내는 방법을 알려줍니다.

보낸 모든 이메일에 하이퍼링크를 기록하는 것과 같은 몇 가지 이유로 하이퍼링크를 추출해야 합니다. 의심의 여지없이 수동으로 추출하고 복사하는 것은 바람직하지 않습니다. VBA 사용과 같은 훨씬 더 스마트한 접근 방식을 갈망해야 합니다. 여기서 우리는 많은 이메일의 모든 하이퍼링크를 쉬운 클릭을 통해 Excel로 내보낼 수 있는 VBA 코드를 공유할 것입니다.

여러 이메일의 모든 하이퍼링크를 Excel로 내보내기

에tart와 함께 Outlook 프로그램을 정상적으로 시작하십시오.
그런 다음 Outlook 창에서 "Alt + F11" 키 버튼을 눌러야 합니다.
한 번에 Outlook VBA 편집기에 액세스할 수 있습니다.
그런 다음 "Microsoft Word Object Library" 및 "Microsoft Excel 개체 라이브러리rar와이". "도구" > "참조"를 클릭한 다음 팝업 대화 상자에서 활성화합니다.
다음으로 사용하지 않는 모듈을 열어야 하며, 여기에서 아래의 VBA 코드를 이 모듈에 복사해야 합니다.

Dim objExcelApp As Excel.Application
Dim objExcelWorkbook As Excel.Workbook
Dim objExcelWorksheet As Excel.Worksheet

Sub ExportAllHyperlinksInMultipleEmailsToExcel()
    Dim objSelection As Selection
    Dim objMail As MailItem
    Dim objMailDocument As Document
    Dim objHyperlink As Hyperlink
    Dim i As Long
 
    Set objSelection = Outlook.Application.ActiveExplorer.Selection
 
    If Not (objSelection Is Nothing) Then
 
       Set objExcelApp = CreateObject("Excel.Application")
       Set objExcelWorkbook = objExcelApp.Workbooks.Add
       Set objExcelWorksheet = objExcelWorkbook.Sheets(1)
       objExcelApp.Visible = True
       objExcelWorkbook.Activate
 
       With objExcelWorksheet
            .Cells(1, 1) = "No."
            .Cells(1, 2) = "Displaying Text"
            .Cells(1, 3) = "Address"
            .Cells(1, 4) = "Source Mail"
      End With
 
      On Error Resume Next
      i = 0
      For Each objMail In objSelection
          objMail.Display
          Set objMailDocument = objMail.GetInspector.WordEditor
          If objMailDocument.Hyperlinks.Count > 0 Then
             For Each objHyperlink In objMailDocument.Hyperlinks
                 If InStr(objHyperlink.Address, "www.") > 0 Then
                    i = i + 1
                    Call ExportToExcel(i, objMail, objHyperlink)
                 End If
             Next
          End If
          objMail.Close olDiscard
      Next
 
      objExcelWorksheet.Columns("A:D").AutoFit
    End If
End Sub

Sub ExportToExcel(n As Long, objCurrentMail As MailItem, objCurrentHyperlink As Hyperlink)
    Dim nLastRow As Integer
 
    nLastRow = objExcelWorksheet.Range("A" & objExcelWorksheet.Rows.Count).End(xlUp).Row + 1
 
    objExcelWorksheet.Range("A" & nLastRow) = n
    objExcelWorksheet.Range("B" & nLastRow) = objCurrentHyperlink.TextToDisplay
    objExcelWorksheet.Range("C" & nLastRow) = objCurrentHyperlink.Address
    objExcelWorksheet.Range("D" & nLastRow) = objCurrentMail.Subject
End Sub

그런 다음 현재 VBA 편집기 창을 종료할 수 있습니다.
나중에 "Outlook 옵션"에 액세스하여 빠른 실행 도구 모음을 사용자 지정하여 새로 추가된 매크로를 빠른 실행 도구 모음에 추가합니다.
마지막으로 사진을 찍을 수 있습니다.

먼저 이메일 목록에서 추출하려는 하이퍼링크가 있는 이메일을 선택합니다.
그런 다음 빠른 실행 도구 모음에서 매크로 버튼을 클릭합니다.
매크로가 완료되면 아래 이미지와 같은 Excel 파일이 생성됩니다.

예기치 않은 Outlook 문제 수정

Outlook 문제는 징조 없이 때때로 발생할 수 있습니다. 그러나 작은 오류 측면에서 Outlook은 간단한 restart 또는 그 받은 편지함 수리 도구. 그러나 심각한 문제가 발생하면 내부 수단이 효과가 없습니다. 이 시점에서 최후의 수단은 확실히 다음과 같이 더 평판이 좋고 강력한 도구입니다. DataNumen Outlook Repair.

저자 소개 :

Shirley Zhang은 데이터 복구 전문가입니다. DataNumen, Inc.는 다음과 같은 데이터 복구 기술 분야의 세계적 리더입니다. 손상된 mdf 및 전망 수리 소프트웨어 제품. 자세한 내용은 WWW.datanumen.COM