Ինչպես խմբաքանակով պատճենել բոլոր հիպերհղումները մի քանի էլփոստով նոր Outlook էլ. Փոստին

Outlook լուծումներ Սեպտեմբեր 29, 2025

Եթե ցանկանում եք պատճենել բոլոր հիպերհղումները մի քանի նամակներում և այնուհետև ուղարկել դրանք նոր նամակով մեկ ուրիշին, կարող եք օգտագործել այս հոդվածում ներկայացված մոտեցումը: Այն կարող է թույլ տալ ձեզ ստանալ սա մեկ քայլով:

Երբեմն ձեզ կարող է անհրաժեշտ լինել մի քանի ստացված էլ-նամակներից հանել և ուղարկել հիպերհղումներ որոշակի էլ. հասցեով: Օրինակ, ձեր գործընկերը ձեզ ուղարկում է որոշ նամակներ, որոնք պարունակում են հիպերհղումներ՝ կապված ընթացիկ նախագծի հետ: Այնուհետև դուք կցանկանայիք հանել այս հիպերհղումները մեկ էլ.փոստի վրա և ուղարկել այս նամակը ձեր մյուս էլփոստի հասցեին: Այս դեպքում մost ուղղակի ճանապարհն է սկզբնաղբյուր նամակներից մեկ առ մեկ նոր էլ.փոստի հիպերհղումները պատճենել: Բայց, դա չափազանց հիմար է և անարդյունավետ: Այժմ, դրանից հետո, մենք ձեզ կկիսվենք ավելի հարմար և արագ մեթոդով:

Բազմաթիվ էլփոստի բոլոր հիպերհղումները խմբաքանակով պատճենեք նոր էլ

Հենց սկզբից գործարկեք Outlook հավելվածը:
Այնուհետև ընտրեք այն նամակները, որոնցից ցանկանում եք արդյունահանել հիպերհղումներ:
Հաջորդը, գործարկեք Outlook VBA խմբագիրը ՝ համաձայն «Ինչպես գործարկել VBA կոդը ձեր Outlook- ում".
VBA խմբագրիչի պատուհանում միացրեք հղումը «MS Word Object Library »ըստ«Ինչպես ավելացնել օբյեկտ Library Հղում VBA- ում".
Հետագայում տեղադրեք հետևյալ կոդը մոդուլի մեջ.

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

Դրանից հետո սեղմեք «F5»՝ այս մակրոն հենց հիմա գործարկելու համար:
Ի վերջո, երբ մակրոն ավարտվի, կհայտնվի նոր նամակ, որը պարունակում է բոլոր հիպերհղումները, որոնք արդյունահանվել են նախկինում ընտրված էլ.

Հատուկ ուշադրություն դարձրեք անհայտ հիպերհղումներին

Հատկապես անհրաժեշտ է, որ Outlook-ի օգտատերերը զգուշանան անհայտ նամակներում առկա բոլոր կասկածելի հիպերհղումներից: Դա այն պատճառով է, որ մost դրանցից կարող են վիրուսներ կրել, ինչը կարող է ուղղակիորեն հանգեցնել Outlook-ի տվյալների կոռուպցիայի: Ակնհայտ է, որ ոչ ոք պատրաստ չէ կորցնել իր Outlook-ի տվյալները: Հետևաբար, ամենօրյա աշխատանքում դուք պետք է զգույշ լինեք անհայտ նամակների վրա՝ կանխելով վիրուսներն ու չարամիտ ծրագրերը: Բացի այդ, հնարավորության դեպքում, առաջարկվում է ձեռք բերել փորձառու և վստահելի Outlook- ի նորոգում գործիք, ինչպիսիք են DataNumen Outlook Repair. Դա, անշուշտ, ձեզ շատ կօգնի, երբ ձեր Outlook PST ֆայլը վտանգի ենթարկվի:

Հեղինակի ներածություն.

Shirley Zhang- ը տվյալների վերականգման փորձագետ է DataNumen, Inc., որը տվյալների վերականգման տեխնոլոգիաների համաշխարհային առաջատարն է, այդ թվում ֆիքսել sql և հեռանկարների նորոգման ծրագրակազմի արտադրանքները: Լրացուցիչ տեղեկությունների համար այցելեք www.datanumen.com