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

Ako želite kopirati sve hiperveze u više e-poruka i zatim ih poslati u novoj e-pošti nekom drugom, 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 poruka e-pošte na određenu adresu e-pošte. Na primjer, vaš vam kolega šalje e-poštu koja sadrži hiperveze povezane s projektom koji je u tijeku. Zatim biste željeli izdvojiti te hiperveze na jednu e-poštu i poslati je na svoju drugu adresu e-pošte. U ovom slučaju, most izravan način je kopiranje hiperveza na novu e-poštu jednu po jednu iz izvorne e-pošte. Ali, to je previše glupo i neučinkovito. Sada, nakon toga, podijelit ćemo s vama praktičniju i bržu metodu.

Skupno 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-poštu iz koje želite izdvojiti hiperveze.
3. Zatim pokrenite Outlook VBA uređivač prema "Kako pokrenuti VBA kod u vašem Outlooku".
4. U prozoru uređivača VBA omogućite referencu na “MS Word Object Library" prema "Kako dodati biblioteku objekatarary 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 biste odmah pokrenuli ovu makronaredbu.
7. Na kraju, kada se makronaredba završi, pojavit će se nova poruka e-pošte koja sadrži sve hiperveze izvađene iz prethodno odabranih poruka e-pošte.

Obratite posebnu pozornost na nepoznate hiperveze

Posebno je potrebno da se Outlook korisnici čuvaju svih sumnjivih hiperveza u nepoznatim e-porukama. To je zato što most od njih mogu nositi viruse, što može izravno rezultirati oštećenjem Outlook podataka. Očito, nitko nije spreman izgubiti svoje Outlook podatke. Stoga, u svakodnevnom radu, trebali biste paziti na nepoznate pošte, sprječavajući viruse i malware. 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 stručnjakinja je za oporavak podataka u DataNumen, Inc., koji je svjetski lider u tehnologijama za oporavak podataka, uključujući popraviti sql i softverske proizvode za popravak Outlooka. Za više informacija posjetite www.datanumen.com