A több e-mailben található összes hiperhivatkozás kötegelt másolása egy új Outlook e-mailbe

Ha az összes hiperhivatkozást több e-mailben szeretné átmásolni, majd új e-mailben elküldeni valaki másnak, használhatja az ebben a cikkben bemutatott megközelítést. Lehetővé teszi, hogy ezt egy menetben megkapja.

Időnként előfordulhat, hogy ki kell bontania és el kell küldenie a hiperhivatkozásokat több kapott e-mailből egy adott e-mail címre. Például kollégája olyan e-maileket küld Önnek, amelyek egy folyamatban lévő projekthez kapcsolódó hiperhivatkozásokat tartalmaznak. Ezután ki szeretné bontani ezeket a hiperhivatkozásokat egyetlen e-mailbe, és elküldeni ezt az e-mailt a másik e-mail címére. Ebben az esetben a most közvetlen módszer az új e-mailre mutató hivatkozások egyenkénti kimásolása a forrás e-mailekből. De ez túl buta és nem hatékony. Most a továbbiakban egy kényelmesebb és gyorsabb módszert osztunk meg veletek.

A több e-mailben található összes hiperhivatkozás kötegelt másolása új e-mailbe

1. A legelején indítsa el az Outlook alkalmazást.
2. Ezután válassza ki azokat az e-maileket, amelyekből hiperhivatkozásokat szeretne kinyerni.
3. Ezután indítsa el az Outlook VBA-szerkesztőt a „A VBA kód futtatása az Outlookban".
4. A VBA-szerkesztő ablakában engedélyezze az „MS Word Object Library” a következő szerintHogyan adjunk hozzá egy Object Lib-etrary Hivatkozás a VBA-ban".
5. Később helyezze be a következő kódot egy modulba.

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. Ezután nyomja meg az „F5” gombot a makró azonnali futtatásához.
7. Végül, amikor a makró befejeződik, megjelenik egy új levél, amely tartalmazza a korábban kiválasztott e-mailekből kinyert összes hivatkozást.

Fordítson különös figyelmet az ismeretlen hiperhivatkozásokra

Különösen fontos, hogy az Outlook-felhasználók óvakodjanak az ismeretlen e-mailekben található gyanús hiperhivatkozásoktól. Ez azért van, mert a most közülük vírusokat hordozhatnak, amelyek közvetlenül az Outlook adatok megsérüléséhez vezethetnek. Nyilvánvalóan senki sem áll készen arra, hogy elveszítse Outlook adatait. Ezért a napi munkában ügyelnie kell az ismeretlen levelekre, megelőzve a vírusokat és a rosszindulatú programokat. Plusz, ha lehetséges, javasoljuk, hogy szerezzen egy tapasztalt és megbízható Outlook javítás eszköz, mint pl DataNumen Outlook Repair. Ez biztosan sokat segít, ha az Outlook PST-fájlja veszélybe kerül.

Szerző Bevezetés:

Shirley Zhang adat-helyreállítási szakértő DataNumen, Inc., amely világelső az adat-helyreállítási technológiák területén, beleértve sql javítás és outlook javítószoftver termékek. További információért látogasson el www.datanumen.com