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.
Автордың кіріспесі:
Ширли Чжан - деректерді қалпына келтіру бойынша сарапшы DataNumen, Соның ішінде деректерді қалпына келтіру технологиялары бойынша әлемдік көшбасшы болып табылатын Inc. бүлінген кв және бағдарламалық жасақтаманы жөндеу бағдарламалары. Қосымша ақпарат алу үшін кіріңіз WWW.datanumen.com