Kako grupno kopirati sve hiperveze u više e-poruka u novu Outlook e-poštu

Ako želite kopirati sve hiperveze u više e-poruka, a zatim ih poslati nekom drugom u novom e-poruci, možete koristiti pristup predstavljen u ovom članku. Može vam omogućiti da ovo dobijete u jednom potezu.

Ponekad ćete možda morati izdvojiti i poslati hiperveze iz više primljenih e-poruka na određenu adresu e-pošte. Na primjer, vaš kolega vam šalje neke e-poruke koje sadrže hiperveze vezane za projekat koji je u toku. Zatim biste željeli izdvojiti ove hiperveze u jednu e-poštu i poslati ovu e-poštu na svoju drugu adresu e-pošte. U ovom slučaju, most direktan način je kopiranje hiperveza na novu e-poštu jednu po jednu iz izvornih e-poruka. Ali, previše je glupo i neefikasno. Sada ćemo vam, nakon toga, podijeliti praktičniji i brži način.

Grupno kopirajte sve hiperveze u više e-poruka u novu e-poštu

1. Na samom početku pokrenite Outlook aplikaciju.
2. Zatim odaberite e-poruke iz kojih želite izdvojiti hiperveze.
3. Zatim pokrenite Outlook VBA editor prema “Kako pokrenuti VBA kod u vašem Outlooku".
4. U prozoru VBA editora omogućite referencu na „MS Word Object Library” prema “Kako dodati Object Library Referenca u VBA".
5. Kasnije stavite sljedeći kod u 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. Nakon toga, pritisnite “F5” da pokrenete ovaj makro odmah.
7. Konačno, kada se makro završi, pojavit će se nova poruka koja sadrži sve hiperveze izvučene iz prethodno odabranih e-poruka.

Obratite posebnu pažnju na nepoznate hiperveze

Posebno je neophodno da se Outlook korisnici čuvaju svih sumnjivih hiperlinkova u nepoznatim mejlovima. To je zato što most od njih mogu nositi viruse, što može direktno dovesti do oštećenja Outlook podataka. Očigledno, niko nije spreman da izgubi svoje Outlook podatke. Stoga, u svakodnevnom radu, trebate paziti na nepoznate mailove, sprječavajući viruse i zlonamjerni softver. Osim toga, ako je moguće, preporuča se potražiti iskusnog i pouzdanog Outlook popravak alat, kao npr DataNumen Outlook Repair. Sigurno će vam puno pomoći kada vaša Outlook PST datoteka bude ugrožena.

Uvod za autora:

Shirley Zhang je stručnjak za oporavak podataka DataNumen, Inc., koji je svjetski lider u tehnologijama za oporavak podataka, uključujući popraviti sql i Outlook softverski proizvodi za popravku. Za više informacija posjetite www.datanumen.com