Bəzi səbəblərə görə, Outlook e-poçtunuza mətnlərə çoxsaylı hiperlinklər daxil etmisiniz. Bəziləri isə eyni ünvana bağlıdır. Əgər siz bu hiperlinklərin ünvanlarını toplu şəkildə dəyişmək istəyirsinizsə, bu məqalədə təqdim olunan üsullardan istifadə edə bilərsiniz.
Məsələn, mesaj mətnində çoxlu hiperlink olan bir Outlook e-poçtu tərtib etmisiniz. Ancaq sonradan bir ünvanın səhv olduğunu aşkar etdiniz. Və bir çox hiperlink bu ünvandan istifadə edir. Buna görə də, bu hiperlinklərin ünvanlarını toplu şəkildə dəyişdirməlisiniz. Bu problemə cavab olaraq, bundan sonra biz 2 asan və sürətli yanaşmanı paylaşacağıq.
Metod 1: Əl ilə tapın və dəyişdirin
- Başlamaq üçün, açılmış e-poçtda "Alt + F9" düymələrini basın.
- Sonra bütün hiperlinklərin ünvanları birbaşa göstəriləcək.
- İndi "Tap və dəyişdir" informasiya qutusunu çıxarmaq üçün "Ctrl + H" düyməsini basın.
- Bu yeni dialoq qutusunda köhnə hiperlink ünvanını "Nə tapın" qutusuna və "Əvəz et" qutusuna yeni ünvanı daxil edin.
- Bundan sonra "Hamısını dəyişdirin" düyməsini basın.
- Daha sonra "Tap və dəyişdir" informasiya qutusunu bağlayın.
- Mesaj mətninə qayıtdıqdan sonra hiperlink ünvanlarını gizlətmək üçün yenidən “Alt + F9” düymələrini basın.
- Sonra, bütün mesaj mətnini seçmək üçün "Ctrl + A" düyməsini basın.
- Nəhayət, bütün dəyişdirilmiş hiperlink ünvanlarını yeniləmək üçün "F9" düyməsini vurun.
- İndi, kursorun mətnlərin üzərinə getməsinə icazə verməklə hiperlink ünvanlarını yoxlayın. Köhnə ünvanlarla əlaqəli bütün hiperlinklər aşağıdakı ekran görüntüsü kimi dəyişdirilib.
Metod 2: Outlook VBA-dan istifadə edin
- İlk növbədə, VBA redaktorunu işə salmaq üçün "Alt + F11" düyməsini basın.
- Daha sonra, yeni pəncərədə, "" məqaləsinə uyğun olaraq "MS Word Obyekt Kitabxanası"nı aktivləşdirin.VBA-da Obyekt Kitabxanasına İstinad necə əlavə olunur".
- Sonra, aşağıdakı VBA kodunu modula qoyun.
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
- Daha sonra bu makrosunu "Sənədinə istinad edərək mesaj pəncərəsinin Tez Giriş Alətlər Panelinə əlavə edin.Outlook-da VBA kodunu necə işlətmək olar".
- Nəhayət, cəhd etmək üçün aşağıdakı addımları izləyin.
- Açılan informasiya qutularında köhnə və yeni hiperlink ünvanlarını daxil edin.
- Makro tamamlandıqda, ünvanları dəyişdirilmiş hiperlinklərin sayını bildirən bir mesaj alacaqsınız.
- Aşağıdakı şəkildəki kimi bir çox hiperlinklərin ünvanları dəyişdirilib.
Dəyərli Outlook məlumatlarınızı qoruyun
Outlook səhvlərə və korrupsiyaya meylli olduğundan, Outlook faylınızı qorumaq üçün bəzi təsirli tədbirlər görməlisiniz. Hər şeydən əvvəl, müntəzəm PST məlumatlarının ehtiyat nüsxəsini çıxarmalısınız. Ayrıca, Outlook-u düzgün şəkildə bağlamaq üçün yaxşı bir vərdiş yaratmalısınız. Nəhayət, güclü bir vasitə hazırlamaqdan daha yaxşıdır Outlook düzəlişi kimi kommunal DataNumen Outlook Repair.
Müəllif Giriş:
Shirley Zhang məlumatların bərpası üzrə mütəxəssisdir DataNumendaxil olmaqla məlumatların bərpası texnologiyaları üzrə dünya lideri olan , Inc SQL Server bərpa və Outlook təmiri proqram məhsulları. Ətraflı məlumat üçün ziyarət edin www.datanumen.com