Paano Awtomatikong Buksan ang Lahat ng Naka-embed na Hyperlink kapag Nagbabasa ng Mga Tukoy na Email sa Outlook

Ang ilang mga gumagamit ay nagnanais na ang Outlook ay maaaring awtomatikong buksan ang mga hyperlink na ipinasok sa katawan ng email kapag sila ay nagbukas at nagbasa ng mga partikular na email. Ngayon, sa artikulong ito, ibabahagi namin ang isang paraan na maaaring mapagtanto ito nang madali.

Kapag nagbubukas at nagbabasa ng mga partikular na email, tulad ng mga mahahalagang email mula sa iyong boss, kung ang mga email ay naglalaman ng ilang mga hyperlink, tiyak na bubuksan mo ang mga link na ito. Kung ihahambing sa manu-manong pagbubukas ng mga naka-embed na hyperlink, tiyak na magiging mas maginhawa ang paggawa sa Outlook nang awtomatiko. Dito ay ituturo namin sa iyo kung paano makamit ito nang detalyado.

Awtomatikong Buksan ang Lahat ng Naka-embed na Hyperlink kapag Nagbabasa ng Mga Tukoy na Email

1. Upang magsimula, ilunsad ang application ng Outlook.
2. Matapos ipasok ang window ng Outlook, pindutin ang "Alt + F11" key shortcut.
3. Sa kasunod na window ng editor ng VBA, kailangan mong paganahin ang object na "Microsoft VBScript Regular Expressions". Pindutin ang 'Mga Tool" at piliin ang "Mga Sanggunian" upang makamit ito.
4. Susunod, buksan ang proyektong "ThisOutlookSession".
5. Pagkatapos, kopyahin ang sumusunod na VBA code sa proyektong ito.

Public WithEvents objInspectors As Outlook.Inspectors
Public WithEvents objMail As Outlook.MailItem

Private Sub Application_Startup()
 Set objInspectors = Outlook.Application.Inspectors
End Sub

Private Sub objInspectors_NewInspector(ByVal Inspector As Inspector)
 If Inspector.CurrentItem.Class = olMail Then
 Set objMail = Inspector.CurrentItem
 End If
End Sub

Private Sub objMail_Open(Cancel As Boolean)
    Dim objRegExp As RegExp
    Dim objMatches As MatchCollection
    Dim objMatch As match
    Dim strURL As String
 
    'When opening specific emails
    'From specific persons or marked as important
    If objMail.SenderEmailAddress = "boss@datanumen.com" And objMail.Importance = olImportanceHigh Then
       Set objRegExp = New RegExp
 
       With objRegExp
            .Pattern = "(([0-9a-z=\?:/\.&-^!#$;_])*)"
            .Global = True
            .IgnoreCase = True
       End With

       If objRegExp.Test(objMail.Body) Then

          Set objMatches = objRegExp.Execute(objMail.Body)
          For Each objMatch In objMatches
              strURL = objMatch.SubMatches(0)
 
              'Exclude hyperlinks of email addresses
              If InStr(strURL, "@") = 0 Then
 
                 'Get the Internet Explorer
                 'Change the path as per your own case
                 Shell (Chr(34) & "C:\Program Files\Internet Explorer\iexplore.exe" & Chr(34) & strURL)
                 DoEvents
              End If
          Next
       End If
    End If
End Sub

6. Pagkatapos nito, dapat mong lagdaan ang macro na ito. I-click ang “Tools” > “Digital Signature” para magawa ito.
7. Susunod, lumabas sa kasalukuyang window at baguhin ang iyong mga setting ng macro sa Outlook.
8. Sa huli, kailangan mong i-restart ang iyong Outlook upang paganahin ang bagong proyekto ng VBA.
9. Simula noon, sa tuwing nag-double click ka sa mga partikular na email para basahin ito sa sarili nitong window ng Mensahe, awtomatikong makikilala ng Outlook ang mga hyperlink sa katawan ng email at agad na bubuksan ang mga ito sa Internet Explorer.

Huwag kailanman I-bypass ang Mga Error sa Outlook

Marahil ay napapailalim ka sa iba't ibang mga error sa Outlook. Bagama't mahirap alisin ang mga isyu sa Outlook, hindi mo rin maaaring balewalain ang mga ito. Ang mga naipon na error ay maaaring humantong sa mga seryosong sakuna sa Outlook, tulad ng pinsala sa PST. Samakatuwid, mas mahusay kang maghanda ng isang mabigat na panlabas Inaayos ang Outlook utility, tulad ng DataNumen Outlook Repair. Maaari nitong bawasan ang katiwalian, sa gayon ay kinukuha ang pinakamataas na data ng PST nang walang kaguluhan.

Panimula ng May-akda:

Si Shirley Zhang ay isang dalubhasa sa pagbawi ng data sa DataNumen, Inc., na pinuno ng mundo sa mga teknolohiya sa pagbawi ng data, kasama ang nasira mdf at pananaw sa pag-aayos ng mga produktong software. Para sa karagdagang impormasyon pagbisita www.datanumen. Sa