Cum să copiați în lot toate hyperlinkurile din mai multe e-mailuri într-un nou e-mail Outlook

Dacă doriți să copiați toate hyperlinkurile în mai multe e-mailuri și apoi să le trimiteți într-un nou e-mail altcuiva, puteți utiliza abordarea introdusă în acest articol. Este capabil să vă permită să obțineți asta dintr-o singură mișcare.

Uneori, poate fi necesar să extrageți și să trimiteți hyperlinkurile de la mai multe e-mailuri primite la o anumită adresă de e-mail. De exemplu, colegul tău îți trimite câteva e-mailuri care conțin hyperlinkuri legate de un proiect în derulare. Apoi, ați dori să extrageți aceste hyperlinkuri către un singur e-mail și să trimiteți acest e-mail la cealaltă adresă de e-mail. În acest caz, most modalitatea directă este de a copia hyperlinkuri către noul e-mail unul câte unul din e-mailurile sursă. Dar, este prea stupid și ineficient. Acum, ulterior, vă vom împărtăși o metodă mai convenabilă și mai rapidă.

Copiați în lot toate hyperlinkurile din mai multe e-mailuri într-un e-mail nou

1. De la bun început, lansați aplicația Outlook.
2. Apoi, selectați e-mailurile din care doriți să extrageți hyperlinkuri.
3. Apoi, declanșați editorul Outlook VBA conform „Cum să rulați codul VBA în Outlook".
4. În fereastra editorului VBA, activați referința la „MS Word Object Library” conform „Cum să adăugați un obiect Library Referință în VBA".
5. Mai târziu, introduceți următorul cod într-un 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. După aceea, apăsați „F5” pentru a rula această macrocomandă chiar acum.
7. În cele din urmă, când macrocomandă se finalizează, va apărea un nou e-mail, care conține toate hyperlinkurile extrase din e-mailurile selectate anterior.

Acordați o atenție deosebită hyperlinkurilor necunoscute

Este deosebit de necesar ca utilizatorii Outlook să se ferească de toate hyperlinkurile suspecte din e-mailurile necunoscute. Este pentru că most dintre ele pot transporta viruși, care pot duce direct la coruperea datelor Outlook. Evident, nimeni nu este pregătit să-și piardă datele Outlook. Prin urmare, în munca de zi cu zi, ar trebui să fiți atenți la e-mailurile necunoscute, prevenind viruși și programe malware. În plus, dacă este posibil, este sugerat să iei o persoană cu experiență și de încredere Repararea Outlook instrument, cum ar fi DataNumen Outlook Repair. Cu siguranță vă va ajuta foarte mult atunci când fișierul Outlook PST va fi compromis.

Introducerea autorului:

Shirley Zhang este expertă în recuperarea datelor DataNumen, Inc., care este lider mondial în tehnologiile de recuperare a datelor, inclusiv repara sql și produse software de reparații Outlook. Pentru mai multe informații vizitați www.datanumen.com