Кейбір пайдаланушылар Outlook бағдарламасында электрондық пошта хабарларын оқып, оқыған кезде электрондық пошта корпусына салынған сілтемелерді автоматты түрде аша алатындығын қалайды. Енді, осы мақалада біз оны оңай жүзеге асыратын әдіспен бөлісеміз.
Сіздің бастыңыздың өмірлік маңызды хаттары сияқты арнайы электрондық хаттарды ашқанда және оқыған кезде, егер электрондық пошта хабарларында бірнеше сілтемелер болса, сіз бұл сілтемелерді міндетті түрде ашасыз. Кірістірілген еренсілтемелерді қолмен ашумен салыстырғанда, оларды Outlook бағдарламасын автоматты түрде ашқан әлдеқайда ыңғайлы болады. Мұнда біз сізге егжей-тегжейлі жетуге үйретеміз.

Электрондық пошта хабарларын оқығанда, барлық енгізілген гипер сілтемелерді автоматты түрде ашу
- Бастау үшін Outlook қолданбасын іске қосыңыз.
- Outlook терезесіне кіргеннен кейін «Alt + F11» пернелер тіркесімін басыңыз.
- Келесі VBA редактор терезесінде «Microsoft VBScript Regular Expressions» нысанын қосу керек. 'Құралдар' батырмасын басып, оған қол жеткізу үшін «Сілтемелерді» таңдаңыз.
- Келесіде «ThisOutlookSession» жобасын ашыңыз.
- Содан кейін келесі VBA кодын осы жобаға көшіріңіз.
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
- Осыдан кейін сіз осы макросқа қол қоюыңыз керек. Оны орындау үшін «Құралдар»> «Цифрлық қолтаңба» түймесін басыңыз.
- Содан кейін ағымдағы терезеден шығып, Outlook макро параметрлерін өзгертіңіз.
- Соңында, жаңа VBA жобасын іске қосу үшін Outlook бағдарламасын қайта іске қосу қажет.
- Содан бері, сіз өзіңіздің Хабарлар терезесінде оны оқып шығу үшін белгілі бір электрондық поштаны екі рет басқан сайын, Outlook электрондық пошта корпусындағы сілтемелерді автоматты түрде таниды және оларды Internet Explorer-де бірден ашады.
Outlook қателерін ешқашан айналып өтпеңіз
Мүмкін сіз Outlook-та әртүрлі қателіктерге тап болған шығарсыз. Outlook мәселелерін жою қиын болса да, сіз оларды елемей де алмайсыз. Жинақталған қателер Outlook бағдарламасында PST зақымдануы сияқты күрделі апаттарға әкелуі мүмкін. Демек, сіз керемет сыртқы көріністі дайындағаныңыз жөн Outlook түзетуі утилита, сияқты DataNumen Outlook Repair. Бұл сыбайлас жемқорлықты барынша азайтуға мүмкіндік береді, осылайша PST деректерін максималды түрде шығарады.
Автордың кіріспесі:
Ширли Чжан - деректерді қалпына келтіру бойынша сарапшы DataNumen, Соның ішінде деректерді қалпына келтіру технологиялары бойынша әлемдік көшбасшы болып табылатын Inc. бүлінген mdf және бағдарламалық жасақтаманы жөндеу бағдарламалары. Қосымша ақпарат алу үшін кіріңіз WWW.datanumen.com
