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 dërgoni lidhjet nga emailet e shumta të marra në një adresë të caktuar emaili. Për shembull, kolegu juaj ju dërgon disa email që përmbajnë hiperlidhje që lidhen me një projekt në vazhdim. Më pas, dëshironi të nxirrni këto hiperlidhje në një email të vetëm dhe ta dërgoni këtë email në adresën tuaj të emailit tjetër. Në këtë rast, most Mënyra e drejtpërdrejtë është të kopjoni hiperlidhjet në emailin e ri një nga një nga emailet burimore. Por, është shumë budalla dhe joefikase. Tani, pas kësaj, ne do t'ju ndajmë një metodë më të përshtatshme dhe më 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 redaktuesit VBA, aktivizoni referencën për "MS Word Object Library" sipas "Si të shtoni një Object Library Referenca 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 lidhjet e dyshimta në email të panjohur. Është për shkak se most prej tyre mund të bartin viruse, të cilat mund të rezultojnë drejtpërdrejt në prishjen e të dhënave të Outlook. Natyrisht, askush nuk është gati të humbasë të dhënat e tij të Outlook. Prandaj, në punën e përditshme, duhet të keni kujdes për postat e panjohura, duke parandaluar viruset dhe malware. Plus, nëse është e mundur, sugjerohet të merrni 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