Kuinka erän kopioida kaikki hyperlinkit useissa sähköposteissa uuteen Outlook-sähköpostiosoitteeseen

Jos haluat kopioida kaikki hyperlinkit useisiin sähköposteihin ja lähettää ne sitten uudessa sähköpostissa jollekulle muulle, voit käyttää tässä artikkelissa esitettyä lähestymistapaa. Sen avulla voit saada tämän yhdellä kertaa.

Toisinaan joudut ehkä purkamaan ja lähettämään hyperlinkit useista vastaanotetuista sähköposteista tiettyyn sähköpostiosoitteeseen. Esimerkiksi kollegasi lähettää sinulle joitain sähköposteja, jotka sisältävät käynnissä olevaan projektiin liittyviä hyperlinkkejä. Sitten haluat purkaa nämä hyperlinkit yhteen sähköpostiin ja lähettää tämän sähköpostin toiseen sähköpostiosoitteeseesi. Tässä tapauksessa most suora tapa on kopioida hyperlinkit uuteen sähköpostiin yksitellen lähdesähköposteista. Mutta se on liian tyhmää ja tehotonta. Nyt, jäljempänä, jaamme sinulle helpomman ja nopeamman menetelmän.

Eräkopioi kaikki useiden sähköpostien hyperlinkit uuteen sähköpostiin

1. Käynnistä Outlook-sovellus heti alusta.
2. Valitse sitten sähköpostit, joista haluat purkaa hyperlinkit.
3. Käynnistä seuraavaksi Outlook VBA -editoriKuinka suorittaa VBA-koodi Outlookissa".
4. Ota VBA-editori-ikkunassa käyttöön viittaus "MS Word Object Library "kuten"Objektin lisääminen Library Viite VBA: ssa".
5. Lisää myöhemmin seuraava koodi moduuliin.

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. Sen jälkeen paina “F5” suorittaaksesi tämän makron juuri nyt.
7. Lopuksi, kun makro on valmis, näkyviin tulee uusi posti, joka sisältää kaikki aiemmin valituista sähköposteista puretut hyperlinkit.

Kiinnitä erityistä huomiota tuntemattomiin hyperlinkkeihin

Erityisesti Outlook-käyttäjien on varottava kaikkia epäilyttäviä hyperlinkkejä tuntemattomissa sähköposteissa. Se johtuu siitä, että most heistä voi kuljettaa viruksia, mikä voi suoraan johtaa Outlookin tietojen vioittumiseen. Kukaan ei tietenkään ole valmis menettämään Outlook-tietojaan. Siksi päivittäisessä työssä sinun on varottava tuntemattomia viestejä estämällä viruksia ja haittaohjelmia. Lisäksi, jos mahdollista, on suositeltavaa hankkia kokenut ja luotettava Outlookin korjaus työkalu, kuten DataNumen Outlook Repair. Se auttaa varmasti paljon, kun Outlook PST -tiedostosi vaarantuu.

Tekijän esittely:

Shirley Zhang on tietojen palauttamisen asiantuntija DataNumen, Inc., joka on maailman johtava tietojen palautustekniikoissa, mukaan lukien korjaa sql ja Outlookin korjausohjelmistotuotteet. Lisätietoja osoitteessa www.datanumen.com