Si të kopjoni grupe të gjitha lidhjet në shumë emaile në një email të ri të Outlook

Nëse dëshironi të kopjoni të gjitha hiperlidhjet në shumë emaile dhe më pas t'i dërgoni në një email të ri dikujt tjetër, mund të përdorni qasjen e prezantuar në këtë artikull. Është në gjendje t'ju lejojë ta merrni këtë me një lëvizje.

Ndonjëherë, mund t'ju duhet të nxirrni dhe të dërgoni hiperlidhjet nga disa email-e të marra në një adresë specifike email-i. Për shembull, kolegu juaj ju dërgon disa email-e që përmbajnë hiperlidhje që lidhen me një projekt në vazhdim. Pastaj, ju dëshironi të nxirrni këto hiperlidhje në një email të vetëm dhe ta dërgoni këtë email në adresën tuaj tjetër të email-it. Në këtë rast, mënyra më e drejtpërdrejtë është të kopjoni hiperlidhjet në email-in e ri një nga një nga email-et burimore. Por, është shumë budallallëk dhe joefikas. Tani, më poshtë, do t'ju ndajmë një metodë më të përshtatshme dhe të shpejtë.

Kopjoni në grup të gjitha hiperlidhjet në shumë emaile në një email të ri

1. Që në fillim, hapni aplikacionin Outlook.
2. Pastaj, zgjidhni emailet nga të cilat dëshironi të nxirrni hiperlidhjet.
3. Më pas, aktivizoni redaktorin VBA të Outlook sipas "Si të ekzekutoni kodin VBA në Outlook tuaj".
4. Në dritaren e redaktorit VBA, aktivizoni referencën për "MS Word Object Library" sipas "Si të shtoni një referencë të bibliotekës së objekteve në VBA".
5. Më vonë, vendosni kodin e mëposhtëm në një modul.

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. Pas kësaj, shtypni "F5" për të ekzekutuar këtë makro tani.
7. Më në fund, kur makro të përfundojë, do të shfaqet një postë e re, e cila përmban të gjitha lidhjet e hiperlidhjeve të nxjerra nga emailet e zgjedhura më parë.

Kushtojini vëmendje të veçantë hiperlidhjeve të panjohura

Është veçanërisht e nevojshme që përdoruesit e Outlook të kenë kujdes nga të gjitha hiperlidhjet e dyshimta në email-et e panjohura. Kjo për shkak se shumica e tyre mund të përmbajnë viruse, të cilat mund të rezultojnë drejtpërdrejt në korruptimin e të dhënave të Outlook-ut. Natyrisht, askush nuk është i gatshëm të humbasë të dhënat e Outlook-ut. Prandaj, në punën e përditshme, duhet të keni kujdes nga email-et e panjohura, duke parandaluar viruset dhe programet keqdashëse. Plus, nëse është e mundur, sugjerohet të kontaktoni një person me përvojë dhe të besueshëm. Riparimi i parashikimeve mjet, si p.sh DataNumen Outlook Repair. Me siguri do t'ju ndihmojë shumë kur skedari juaj i Outlook PST të komprometohet.

Hyrje e autorit:

Shirley Zhang është një eksperte për rikuperimin e të dhënave DataNumen, Inc., e cila është lider botëror në teknologjitë e rikuperimit të të dhënave, duke përfshirë rregulloni sql dhe produkte softuerike të riparimit të pamjes. Për më shumë informacion vizitoni www.datanumen.com