როგორ დავაკოპიროთ ყველა ჰიპერბმული მრავალ წერილში ახალ Outlook ელფოსტაზე

თუ გსურთ დააკოპიროთ ყველა ჰიპერბმული მრავალ ელ.წერილში და შემდეგ გაგზავნოთ ისინი სხვა ელფოსტით, შეგიძლიათ გამოიყენოთ ამ სტატიაში წარმოდგენილი მიდგომა. მას შეუძლია მოგცეთ ამის მიღება ერთი ნაბიჯით.

ზოგჯერ შეიძლება დაგჭირდეთ ჰიპერბმულების ამოღება და გაგზავნა რამდენიმე მიღებული ელფოსტიდან კონკრეტულ ელფოსტის მისამართზე. მაგალითად, თქვენი კოლეგა გიგზავნით წერილებს, რომლებიც შეიცავს ჰიპერბმულებს, რომლებიც დაკავშირებულია მიმდინარე პროექტთან. შემდეგ, თქვენ გსურთ ამოიღოთ ეს ჰიპერბმულები ერთ ელფოსტაზე და გაგზავნოთ ეს ელფოსტა თქვენს სხვა ელფოსტის მისამართზე. ამ შემთხვევაში მost პირდაპირი გზა არის ჰიპერბმულების კოპირება ახალ ელფოსტაზე სათითაოდ წყაროს ელ.წერილებიდან. მაგრამ ეს ძალიან სულელური და არაეფექტურია. ახლა, შემდგომში, გაგიზიარებთ უფრო მოსახერხებელ და სწრაფ მეთოდს.

რამდენიმე ელ.ფოსტის ყველა ჰიპერბმულის ჯგუფური კოპირება ახალ ელფოსტაზე

1. თავიდანვე გაუშვით Outlook აპლიკაცია.
2. შემდეგ აირჩიეთ ელფოსტა, საიდანაც გსურთ ჰიპერბმულების ამოღება.
3. შემდეგი, ჩართეთ Outlook VBA რედაქტორი "როგორ გაუშვათ VBA კოდი თქვენს Outlook-ში".
4. VBA რედაქტორის ფანჯარაში ჩართეთ მითითება „MS Word Object Library" როგორც "როგორ დავამატო Object Library მითითება VBA-ში".
5. მოგვიანებით ჩადეთ შემდეგი კოდი მოდულში.

Sub CopyAllHyperlinksOfMultipleEmails()
    Dim objNewMail As Outlook.MailItem
    Dim objNewMailDocument As Word.Document
    Dim objSelection As Outlook.Selection
    Dim objMail As Outlook.MailItem
    Dim objMailDocument As Word.Document
    Dim objHyperlink As Word.Hyperlink
 
    'Create a new mail
    Set objNewMail = Outlook.Application.CreateItem(olMailItem)
    objNewMail.Display
    Set objNewMailDocument = objNewMail.GetInspector.WordEditor
 
    'Get all selected emails
    Set objSelection = Outlook.Application.ActiveExplorer.Selection
 
    For i = objSelection.Count To 1 Step -1
        If objSelection.Item(i).Class = olMail Then
           Set objMail = objSelection.Item(i)
 
           Set objMailDocument = objMail.GetInspector.WordEditor
 
           'Copy hyperlink to new mail body
           For Each objHyperlink In objMailDocument.Hyperlinks
               objHyperlink.Range.Copy
               objNewMailDocument.Range(0, 0).PasteAndFormat wdFormatOriginalFormatting
               objNewMailDocument.Range(0, 0).Select
               objNewMailDocument.Application.Selection.TypeParagraph
           Next
        End If
    Next
End Sub

6. ამის შემდეგ დააჭირეთ "F5" ამ მაკროს ახლავე გასაშვებად.
7. ბოლოს, როდესაც მაკრო დასრულდება, გამოჩნდება ახალი ფოსტა, რომელიც შეიცავს ყველა ჰიპერბმულს, რომელიც ამოღებულია ადრე შერჩეული ელ.წერილებიდან.

განსაკუთრებული ყურადღება მიაქციეთ უცნობ ჰიპერბმულებს

განსაკუთრებით აუცილებელია Outlook-ის მომხმარებლებისთვის სიფრთხილით მოვეკიდოთ ყველა საეჭვო ჰიპერბმულს უცნობ წერილებში. ეს იმიტომ, რომ მost მათგან შეიძლება იყოს ვირუსების მატარებელი, რამაც შეიძლება პირდაპირ გამოიწვიოს Outlook მონაცემთა კორუფცია. ცხადია, არავინ არ არის მზად დაკარგოს თავისი Outlook მონაცემები. ამიტომ, ყოველდღიურ მუშაობაში, თქვენ უნდა დააკვირდეთ უცნობ წერილებს, თავიდან აიცილოთ ვირუსები და მავნე პროგრამები. გარდა ამისა, თუ ეს შესაძლებელია, რეკომენდებულია გამოცდილი და სანდო პერსონალის მოპოვება Outlook შეკეთება ინსტრუმენტი, როგორიცაა DataNumen Outlook Repair. ეს ნამდვილად დაგეხმარებათ, როდესაც თქვენი Outlook PST ფაილი კომპრომეტირებული იქნება.

ავტორი შესავალი:

შირლი ჟანგი არის მონაცემთა აღდგენის ექსპერტი DataNumen, Inc., რომელიც მსოფლიო ლიდერია მონაცემთა აღდგენის ტექნოლოგიებში, მათ შორის გაასწორე sql და Outlook სარემონტო პროგრამული პროდუქტები. დამატებითი ინფორმაციისთვის ეწვიეთ www.datanumen. ერთად