გარკვეული მიზეზების გამო, თქვენ ჩადეთ რამდენიმე ჰიპერბმული ტექსტებზე თქვენს Outlook ელფოსტაში. და ზოგიერთი მათგანი დაკავშირებულია იმავე მისამართზე. თუ გსურთ ამ ჰიპერბმულების მისამართების ჯგუფური შეცვლა, შეგიძლიათ გამოიყენოთ ამ სტატიაში დანერგილი მეთოდები.
მაგალითად, თქვენ შეადგინეთ Outlook ელ.წერილი, რომელსაც აქვს უამრავი ჰიპერბმული შეტყობინების სხეულში. თუმცა, შემდეგ აღმოაჩინე, რომ მისამართი არასწორია. და ბევრი ჰიპერბმული იყენებს ამ მისამართს. ამიტომ, თქვენ უნდა შეცვალოთ ეს ჰიპერბმულების მისამართები. ამ პრობლემის საპასუხოდ, შემდგომში გაგიზიარებთ 2 მარტივ და სწრაფ მიდგომას.
მეთოდი 1: იპოვეთ და შეცვალეთ ხელით
- დასაწყისისთვის, გახსნილ ელფოსტაში დააჭირეთ ღილაკს "Alt + F9".
- შემდეგ, ყველა ჰიპერბმულის მისამართი გამოჩნდება პირდაპირ.
- ახლა, დააჭირეთ "Ctrl + H" რათა გამოიტანოთ "ძებნა და ჩანაცვლება" დიალოგური ფანჯარა.
- ამ ახალ დიალოგურ ფანჯარაში შეიყვანეთ ძველი ჰიპერბმულის მისამართი ველში „იპოვე რა“ და ახალი მისამართი ველში „ჩანაცვლება“.
- ამის შემდეგ დააჭირეთ ღილაკს "ყველას ჩანაცვლება".
- მოგვიანებით დახურეთ დიალოგური ფანჯარა "ძებნა და ჩანაცვლება".
- შეტყობინების ტექსტში დაბრუნების შემდეგ, კვლავ დააჭირეთ "Alt + F9" კლავიშებს ჰიპერბმულის მისამართების დასამალად.
- ამის შემდეგ, დააჭირეთ "Ctrl + A" ყველა შეტყობინების ტექსტის შესარჩევად.
- დაბოლოს, დააჭირეთ "F9" ღილაკს, რათა განაახლოთ ყველა შეცვლილი ჰიპერბმულის მისამართი.
- ახლა, გადაამოწმეთ ჰიპერბმულის მისამართები, კურსორს ტექსტებზე მაღლა ასვლის მიცემით. ყველა ჰიპერბმული, რომელიც დაკავშირებულია ძველ მისამართებთან, შეიცვალა, როგორც შემდეგი ეკრანის სურათი.
მეთოდი 2: გამოიყენეთ Outlook VBA
- პირველ რიგში, დააჭირეთ "Alt + F11" VBA რედაქტორის გასაშვებად.
- შემდეგ, ახალ ფანჯარაში, ჩართეთ „MS Word Object Library“ სტატიის „როგორ დავამატოთ ობიექტის ბიბლიოთეკის მითითება 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
- ამის შემდეგ, დაამატეთ ეს მაკრო შეტყობინებების ფანჯრის სწრაფი წვდომის ინსტრუმენტთა პანელში, მითითებით "როგორ გაუშვათ VBA კოდი თქვენს Outlook-ში".
- საბოლოოდ, მიჰყევით ქვემოთ მოცემულ ნაბიჯებს, რომ სცადოთ.
- ამომხტარ დიალოგურ ფანჯარაში შეიყვანეთ ძველი და ახალი ჰიპერბმულის მისამართები.
- როდესაც მაკრო დასრულდება, თქვენ მიიღებთ შეტყობინებას, რომელიც გეტყვით ჰიპერბმულების რაოდენობას, რომელთა მისამართები შეიცვალა.
- რამდენიმე ჰიპერბმულის მისამართი შეიცვალა, როგორც ქვემოთ მოცემული სურათი.
დაიცავით თქვენი ღირებული Outlook მონაცემები
იმის გამო, რომ Outlook მიდრეკილია შეცდომებისა და კორუფციისკენ, თქვენ უნდა მიიღოთ ეფექტური ზომები თქვენი Outlook ფაილის დასაცავად. უპირველეს ყოვლისა, თქვენ უნდა გააკეთოთ რეგულარული PST მონაცემების სარეზერვო ასლები. ასევე, თქვენ უნდა ჩამოაყალიბოთ კარგი ჩვევა დახუროთ თქვენი Outlook სათანადო გზით. დაბოლოს, რაც არანაკლებ მნიშვნელოვანია, უმჯობესია მოამზადოთ ძლიერი Outlook შესწორება სასარგებლო, როგორიცაა DataNumen Outlook Repair.
ავტორი შესავალი:
შირლი ჟანგი არის მონაცემთა აღდგენის ექსპერტი DataNumen, Inc., რომელიც მსოფლიო ლიდერია მონაცემთა აღდგენის ტექნოლოგიებში, მათ შორის SQL Server აღდგენა და Outlook სარემონტო პროგრამული პროდუქტები. დამატებითი ინფორმაციისთვის ეწვიეთ www.datanumen. ერთად






