Кейбір себептер бойынша сіз Outlook электрондық поштаңызға мәтіндерге бірнеше сілтемелер енгіздіңіз. Және олардың кейбірі бір мекен-жайға байланысты. Егер сіз осы сілтемелердің мекен-жайларын топтамамен өзгерткіңіз келсе, онда сіз осы мақалада енгізілген әдістерді пайдалана аласыз.
Мысалы, сіз хабарлама корпусында көптеген сілтемелері бар Outlook электрондық поштасын жасадыңыз. Содан кейін сіз мекен-жайдың дұрыс еместігін білдіңіз. Көптеген гипер сілтемелер осы мекен-жайды қолданады. Сондықтан сізге осы сілтемелердің мекен-жайларын топтамалық түрде өзгерту керек. Осы мәселеге жауап ретінде біз бұдан әрі 2 қарапайым және жылдам тәсілдерді бөлісеміз.
1-әдіс: Қолмен табыңыз және ауыстырыңыз
- Бастау үшін ашылған электрондық поштада «Alt + F9» батырмаларын басыңыз.
- Содан кейін барлық сілтемелердің мекен-жайы тікелей көрсетіледі.
- Енді «Іздеу және ауыстыру» диалогтық терезесін шығару үшін «Ctrl + H» пернелерін басыңыз.
- Осы жаңа диалог терезесінде «Нені табыңыз» жолына ескі гиперсілтемені және «Ауыстыру» өрісіне жаңа адресті енгізіңіз.
- Осыдан кейін «Барлығын ауыстыру» батырмасын басыңыз.
- Кейінірек «Табу және ауыстыру» диалогтық терезесін жабыңыз.
- Хабардың негізгі бөлігіне оралғаннан кейін, сілтеме адресін жасыру үшін «Alt + F9» пернелерін қайтадан басыңыз.
- Содан кейін барлық хабарлар денесін таңдау үшін «Ctrl + A» пернелерін басыңыз.
- Соңында, барлық өзгертілген гипер сілтемелерді жаңарту үшін «F9» пернесін түртіңіз.
- Енді меңзерді мәтіндердің үстіне апарып, сілтеме адрестерін тексеріңіз. Ескі мекен-жайлармен байланыстырылған барлық сілтемелер келесі скриншот сияқты өзгертілді.
2-әдіс: Outlook VBA пайдалану
- Бірінші кезекте VBA редакторын іске қосу үшін «Alt + F11» пернелерін басыңыз.
- Содан кейін, жаңа терезеде «» мақаласына сәйкес «MS Word нысан кітапханасын» қосыңыз.VBA бағдарламасында объект кітапханасына сілтемені қалай қосуға болады«.
- Келесі, келесі VBA кодын модульге салыңыз.
Sub BatchChangeMultipleHyperlinkAddresses()
Dim objMail As Outlook.MailItem
Dim objMailDocument As Word.Document
Dim objHyperlink As Word.Hyperlink
Dim strOldAddress, strNewAddress As String
Dim i As Long
Set objMail = Application.ActiveInspector.CurrentItem
Set objMailDocument = objMail.GetInspector.WordEditor
If objMailDocument.Hyperlinks.Count > 0 Then
'Enter the old and new hyperlink address
strOldAddress = InputBox("Enter the old hyperlink address:")
strNewAddress = InputBox("Enter the new hyperlink address:")
'Change hyperlink address
i = 0
For Each objHyperlink In objMailDocument.Hyperlinks
If InStr(objHyperlink.Address, strOldAddress) > 0 Then
objHyperlink.Address = Replace(objHyperlink.Address, strOldAddress, strNewAddress)
i = i + 1
End If
Next
'Prompt you
MsgBox i & " hyperlinks' addresses are changed!", vbInformation + vbOKOnly
End If
End Sub
- Осыдан кейін хабарлама терезесіне жылдам қол жеткізу құралдар тақтасына осы макросты «сілтеме жасай отырып қосыңыз.Outlook бағдарламасында VBA кодын қалай іске қосуға болады«.
- Ақыр соңында, оны көру үшін төмендегі әрекеттерді орындаңыз.
- Қалқымалы диалог терезелеріне ескі және жаңа сілтемелер мекен-жайларын енгізіңіз.
- Макро аяқталғаннан кейін сізге адрес өзгертілген сілтемелердің саны туралы хабарлама келеді.
- Төмендегі сурет сияқты бірнеше сілтемелердің мекен-жайы өзгертілді.
Бағалы Outlook деректерін қорғаңыз
Outlook қателіктерге және сыбайлас жемқорлыққа бейім болғандықтан, сіз Outlook файлын қорғау үшін бірнеше сақтық шараларын қолдануыңыз керек. Ең алдымен, сізге PST деректерінің сақтық көшірмесін жасау қажет. Сонымен қатар, сіз өзіңіздің Outlook бағдарламаңызды дұрыс жабатын жақсы әдет қалыптастыруыңыз керек. Ақырында, сіз күшті дайындағаныңыз жөн Outlook түзетуі сияқты утилита DataNumen Outlook Repair.
Автордың кіріспесі:
Ширли Чжан - деректерді қалпына келтіру бойынша сарапшы DataNumen, Соның ішінде деректерді қалпына келтіру технологиялары бойынша әлемдік көшбасшы болып табылатын Inc. SQL Server қалпына келтіру және бағдарламалық жасақтаманы жөндеу бағдарламалары. Қосымша ақпарат алу үшін кіріңіз WWW.datanumen.com