Kaip grupiniu būdu nukopijuoti visus hipersaitus keliuose el. laiškuose į naują „Outlook“ el

Jei norite nukopijuoti visus hipersaitus keliuose el. laiškuose ir išsiųsti juos nauju el. laišku kam nors kitam, galite naudoti šiame straipsnyje aprašytą metodą. Tai gali leisti jums tai gauti vienu ypu.

Kartais gali tekti išgauti ir išsiųsti kelių gautų el. laiškų hipersaitus konkrečiu el. pašto adresu. Pavyzdžiui, jūsų kolega siunčia jums kai kuriuos el. laiškus, kuriuose yra nuorodų, susijusių su vykdomu projektu. Tada norėtumėte išskleisti šias hipersaitus į vieną el. laišką ir išsiųsti šį el. laišką kitu el. pašto adresu. Šiuo atveju most tiesioginis būdas yra kopijuoti hipersaitus į naują el. laišką po vieną iš šaltinio el. laiškų. Tačiau tai per kvaila ir neefektyvu. Dabar, toliau, pasidalinsime patogesniu ir greitesniu būdu.

Nukopijuokite visas hipersaitus keliuose el. laiškuose į naują el. laišką

1. Pačioje pradžioje paleiskite „Outlook“ programą.
2. Tada pasirinkite el. laiškus, iš kurių norite išgauti hipersaitus.
3. Tada suaktyvinkite „Outlook VBA“ redaktorių pagal „Kaip paleisti VBA kodą „Outlook“.".
4. VBA redaktoriaus lange įgalinkite nuorodą į „MS Word Object Library“ pagal „Kaip pridėti objekto library Nuoroda VBA".
5. Vėliau į modulį įdėkite šį kodą.

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. Po to paspauskite „F5“, kad paleistumėte šią makrokomandą dabar.
7. Galiausiai, kai makrokomanda bus baigta, bus rodomas naujas laiškas, kuriame yra visi hipersaitai, išgauti iš anksčiau pasirinktų el. laiškų.

Ypatingą dėmesį atkreipkite į nežinomas hipersaitas

„Outlook“ vartotojams ypač svarbu saugotis visų įtartinų hipersaitų nežinomuose el. laiškuose. Taip yra todėl, kad most iš jų gali būti virusų, kurie gali tiesiogiai sugadinti „Outlook“ duomenis. Akivaizdu, kad niekas nėra pasirengęs prarasti savo „Outlook“ duomenų. Todėl kasdieniame darbe turėtumėte saugotis nežinomų laiškų, užkertant kelią virusams ir kenkėjiškoms programoms. Be to, jei įmanoma, siūloma pasiimti patyrusį ir patikimą „Outlook“ taisymas įrankis, pvz DataNumen Outlook Repair. Tai tikrai jums labai padės, kai jūsų Outlook PST failas bus pažeistas.

Autoriaus įvadas:

Shirley Zhang yra duomenų atkūrimo ekspertė DataNumen, Inc., kuri yra pasaulyje duomenų atkūrimo technologijų lyderė, įskaitant pataisyti sql ir „Outlook“ taisymo programinės įrangos produktai. Norėdami gauti daugiau informacijos, apsilankykite WWW.datanumen.com