Outlook 이메일에서 특정 도메인이있는 모든 하이퍼 링크를 일괄 적으로 여는 방법

Outlook 솔루션 2025 년 9 월 29 일

본문에 많은 하이퍼 링크가 포함 된 Outlook 전자 메일을 볼 때 때때로 특정 도메인의 하이퍼 링크 만 빠르게 열고 싶을 수 있습니다. 여기서는 이러한 하이퍼 링크를 대량으로 여는 방법을 공유합니다.

하나의 이메일에 여러 하이퍼 링크가있는 경우 전체가 아닌 일부를 확인하는 것이 좋습니다. 예를 들어, 특정 도메인이있는 하이퍼 링크 만 일괄 열기를 원합니다. 일반적으로 열려면 하나씩 클릭해야합니다. 매우 귀찮습니다. 따라서 다음에서는보다 편리한 방법을 알려 드리겠습니다.

이메일에서 특정 도메인이있는 모든 하이퍼 링크 일괄 열기

로tart, "에 따라 Outlook VBA 편집기에 액세스Outlook에서 VBA 코드를 실행하는 방법".
그런 다음 "Microsoft Visual Basic for Applications"창에서 "MS Word Object Lib"에 대한 참조를 활성화합니다.rary "는"개체 라이브러리를 추가하는 방법rary VBA의 참조".
그런 다음 다음 VBA 코드를 사용하지 않는 모듈이나 프로젝트에 복사합니다.

Sub BatchOpenHyperlinksWithSpecificDomain()
    Dim objMail As MailItem
    Dim objMailDocument As Word.Document
    Dim objHyperlink As Word.Hyperlink
    Dim objDictionary As Object
    Dim i As Integer
    Dim varHyperlinks As Variant
    Dim varHyperlink As Variant
    Dim objInternetExplorer As Object
 
    'Get the source email
    Select Case Outlook.Application.ActiveWindow.Class
           Case olInspector
                Set objMail = ActiveInspector.CurrentItem
           Case olExplorer
                Set objMail = ActiveExplorer.Selection.Item(1)
    End Select
 
    Set objDictionary = CreateObject("Scripting.Dictionary")
 
    Set objMailDocument = objMail.GetInspector.WordEditor
    For Each objHyperlink In objMailDocument.Hyperlinks
        If InStr(1, objHyperlink.Address, "www.datanumen.com") > 0 Then
           'Add Hyperlinks to Dictionary
           If objDictionary.Exists(objHyperlink.Address) = False Then
              objDictionary.Add objHyperlink.Address, 1
           End If
        End If
    Next
 
    'Batch Open Hyperlinks on different tabs in same Internet Explorer window
    Set objInternetExplorer = CreateObject("InternetExplorer.Application")
    varHyperlinks = objDictionary.Keys
    For i = LBound(varHyperlinks) To UBound(varHyperlinks)
        varHyperlink = varHyperlinks(i)
 
        If i = 0 Then
           objInternetExplorer.Visible = True
           objInternetExplorer.navigate varHyperlink
        Else
           objInternetExplorer.navigate varHyperlink, CLng(2048)
        End If
    Next
End Sub

다음으로이 매크로를 빠른 실행 도구 모음 또는 리본에 추가합니다.
마지막으로 다음 단계를 수행하여 사용해보십시오.

먼저 Outlook 이메일을 선택하거나 엽니 다.
그런 다음 매크로 버튼을 클릭합니다.
다음 이미지와 같이 전자 메일에 미리 정의 된 도메인이 포함 된 하이퍼 링크가 Internet Explorer에서 일괄 적으로 열립니다.

성가신 Outlook 손상 제거

Outlook은 오류 및 손상의 위험이 있지만 실제로 모든 위험을 확인하는 한 쉽게 벗어날 수 있습니다. 예를 들어 정기적으로 Outlook의 데이터를 백업해야합니다. 게다가 바이러스를 포함 할 수있는 의심스러운 이메일을 조심해야합니다. 마지막으로 중요한 것은 Outlook 수리 같은 유틸리티 DataNumen Outlook Repair. Outlook 손상시 도움을 줄 수 있습니다.

저자 소개 :

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