Outlook VBA를 통해 이메일의 모든 하이퍼 링크 주소를 추출하고 표시하는 방법

Outlook 솔루션 2025 년 9 월 29 일

Most 시간이 지나면 하이퍼 링크 주소를 보려면 표시되는 텍스트 위에 커서를 올려야합니다. 이 기사에서는 VBA를 사용하여 한 번의 클릭으로 모든 주소를 하나의 이메일에 표시하는 방법을 알려줍니다.

아시다시피 이메일 본문에 URL을 직접 추가하는 것 외에 텍스트에 하이퍼 링크를 삽입 할 수 있습니다. 이 경우 하이퍼 링크 주소를 바로 볼 수 없습니다. 표시된 텍스트 위로 커서를 가져 가야합니다. 그러나 현재 이메일에 이러한 하이퍼 링크가 너무 많으면 주소를 하나씩 확인해야하므로 상당히 지루할 것입니다.

이 문제에 대한 응답으로 여기에서는 VBA를 사용하여 모든 하이퍼 링크 주소를 직접 추출하고 표시하는 데 도움이되는 빠른 방법을 공개합니다. 이렇게하면 한 번만 클릭하면됩니다. 이제 정교한 단계와 VBA 코드를 얻으려면 계속 읽으십시오.

이메일에서 모든 하이퍼 링크 주소 추출 및 표시

먼저 Outlook 응용 프로그램을 시작하십시오.
그런 다음 기본 Outlook 창에서 "Alt + F11"키 버튼을 누릅니다.
다음으로 Outlook VBA 편집기에 성공적으로 액세스 할 수 있습니다.
이후에 사용하지 않는 모듈을 열어야합니다.
그 후 다음 VBA 코드를 복사하여이 모듈에 붙여 넣습니다.

Sub ShowAllHyperlinkAddresses()
    Dim objMail As Outlook.MailItem
    Dim objWordDocument As Word.Document
    Dim objWordApp As Word.Application
    Dim objWordSelection As Word.Selection
    Dim objHyperlinks As Word.Hyperlinks
    Dim objHyperlink As Word.Hyperlink
    Dim strLink As String
 
    Set objMail = Outlook.Application.ActiveInspector.CurrentItem
    Set objWordDocument = objMail.GetInspector.WordEditor
    Set objWordApp = objWordDocument.Application
    Set objHyperlinks = objWordDocument.Hyperlinks
 
    If objHyperlinks.Count > 0 Then
       For Each objHyperlink In objHyperlinks
           strLink = objHyperlink.Address
           strLink = vbTab & "<" & strLink & ">"
           objHyperlink.Range.InsertAfter strLink
           objHyperlink.Delete
           With objWordApp.Options
                .AutoFormatReplaceHyperlinks = True
                .AutoFormatApplyOtherParas = False
                .AutoFormatApplyHeadings = False
                .AutoFormatApplyBulletedLists = False
                .AutoFormatApplyLists = False
                .AutoFormatApplyFirstIndents = False
          End With
          Set objWordSelection = objWordApp.Selection
          objWordSelection.Range.AutoFormat
       Next
    End If
End Sub

나중에 편의를 위해 메시지 창의 빠른 실행 도구 모음에 새 매크로를 추가하는 것이 좋습니다.
또한 Outlook 매크로 설정이 매크로를 허용하는지 확인해야합니다.
마지막으로 시도해 볼 수 있습니다.

먼저 많은 하이퍼 링크가 포함 된 이메일을 엽니 다.
그런 다음 편집 가능 모드로 전환하십시오. "작업"> "메시지 편집"을 클릭하십시오.
다음으로 빠른 실행 도구 모음에서 매크로 버튼을 클릭합니다.
한 번에 모든 하이퍼 링크 주소가 추출되어 다음 스크린 샷과 같이 표시됩니다.

Outlook 문제로부터 면역되지 않음

Outlook은 사용자에게 많은 융통성있는 기능을 제공하지만 여전히 오류와 충돌에서 면제되지는 않습니다. 따라서 Outlook 데이터를 손상이나 손실로부터 보호하려면 많은 노력을 기울여야합니다. 예를 들어, Outlook 데이터를 정기적으로 백업하는 데 지속적으로 노력해야합니다. 물론 유력한 것을 준비하면 훨씬 나을 것입니다 Outlook 복구 도구, 같은 DataNumen Outlook Repair.

저자 소개 :

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