Өөрийн Outlook имэйлд тодорхой домэйн бүхий бүх гипер холбоосыг хэрхэн нээх вэ?

Биедээ олон холбоос агуулсан Outlook имэйлийг үзэх үед та зөвхөн тодорхой домэйн бүхий холбоосыг хурдан нээхийг хүсч магадгүй юм. Ийм холбоосыг бөөнөөр нээх аргыг бид энд хуваалцах болно.

Нэг имэйлийн олон холбоосуудтай тулгарахад та бүгдийг нь биш заримыг нь шалгана гэж найдаж магадгүй юм. Жишээлбэл, та зөвхөн тодорхой домэйн бүхий холбоосыг багцаар нээхийг хүсч байна. Ерөнхийдөө та нээхийн тулд нэг нэгээр нь дарах хэрэгтэй. Энэ нь маш их төвөгтэй байдаг. Тиймээс дараахь зүйлсийн дагуу бид танд илүү тохиромжтой аргыг заах болно.

Багцыг бүх домэйныг и-мэйлээр нээнэ үү

1. Учир ньtart, Outlook VBA редакторт “Таны Outlook дээр VBA кодыг хэрхэн ажиллуулах вэ".
2. Дараа нь, "Microsoft Visual Basic for Applications" цонхонд "MS Word Object Library ”-ийг“Обьектийг хэрхэн яаж нэмэх вэrary VBA-ийн лавлагаа".
3. Дараа нь дараах 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

4. Дараа нь энэ макроыг Quick Access Toolbar эсвэл туузанд нэмнэ үү.
5. Эцэст нь туршаад үзэхийн тулд дараах алхмуудыг хий.

• Эхлээд Outlook имэйлийг сонгоод нээнэ үү.
• Дараа нь, макро товчийг дарна уу.
• Имэйл дэх урьдчилан тодорхойлсон домэйн бүхий холбоосыг тэр дор нь Internet Explorer дээр дараахь зураг дээр харуулсан шиг нээнэ.

Хэтийн төлөвтэй авлигыг цочроохоос ангижрах

Хэдийгээр Outlook нь алдаа, авлигад өртөмтгий боловч та бүх эрсдлийг анхаарч үзсэн л бол тэдгээрээс амархан мултарч чадна. Жишээлбэл, та Outlook-д зориулж өгөгдлийн нөөцлөлтийг тогтмол хийж байх хэрэгтэй. Үүнээс гадна та вирус агуулсан байж болзошгүй сэжигтэй имэйлийг анхаарч үзэх хэрэгтэй. Эцэст нь хэлэхэд та ан бэлдсэн нь дээр байх Outlook засвар гэх мэт хэрэгсэл DataNumen Outlook Repair. Энэ нь Outlook-ийн авлига гарсан тохиолдолд танд туслах чадвартай.

Зохиогчийн танилцуулга:

Ширли Жан бол мэдээлэл сэргээх мэргэжилтэн юм DataNumen, Үүнд мэдээлэл сэргээх технологиор дэлхийд тэргүүлэгч, Inc. авлигад автсан SQL Server програм хангамжийн бүтээгдэхүүнийг засах хэтийн төлөв. Дэлгэрэнгүй мэдээллийг авна уу WWW.datanumen.com