Барлық электрондық сілтемелердегі барлық гипер сілтемелерді Outlook электрондық поштасына қалай көшіруге болады?

Егер сіз барлық гипер сілтемелерді бірнеше электрондық поштаға көшіргіңіз келсе, содан кейін оларды жаңа электрондық пошта арқылы басқа біреуге жібергіңіз келсе, онда сіз осы мақалада енгізілген әдісті қолдана аласыз. Ол сізге мұны бір сәтте алуға мүмкіндік береді.

Кейде сізге бірнеше электрондық пошта мекен-жайларынан гипер сілтемелерді шығарып жіберу қажет болуы мүмкін. Мысалы, сіздің әріптесіңіз сізге жүзеге асырылып жатқан жобаға қатысты сілтемелер бар бірнеше электрондық пошта хабарларын жібереді. Содан кейін сіз осы сілтемелерді бір электрондық поштаға шығарып, оны басқа электрондық поштаңызға жібергіңіз келеді. Бұл жағдайда мost тікелей жол - жаңа электрондық поштаға сілтемелерді бастапқы хаттардан бір-бірден көшіру. Бірақ, бұл өте ақымақ және тиімсіз. Енді бұдан әрі біз сізге ыңғайлы әрі жылдам әдіспен бөлісетін боламыз.

Бірнеше электрондық поштадағы барлық сілтемелерді жаңа электрондық поштаға топтамалық түрде көшіру

1. Ең басында Outlook қосымшасын іске қосыңыз.
2. Содан кейін, сілтемелерді алғыңыз келетін электрондық пошта хабарларын таңдаңыз.
3. Келесіде Outlook VBA редакторын «іске қосыңыз»Outlook бағдарламасында VBA кодын қалай іске қосуға болады«.
4. VBA редакторының терезесінде «MS Word Object Librarу «» бойыншаНысанды қалай қосуға болады Library VBA сілтемесі«.
5. Кейінірек келесі кодты модульге салыңыз.

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. Осыдан кейін дәл қазір осы макросты іске қосу үшін «F5» пернесін басыңыз.
7. Сонымен, макро аяқталғаннан кейін, бұрын таңдалған электрондық пошта хабарларынан алынған барлық сілтемелерді қамтитын жаңа пошта пайда болады.

Белгісіз гипер сілтемелерге ерекше назар аударыңыз

Әсіресе Outlook пайдаланушылары үшін белгісіз электрондық пошта хабарларындағы барлық күдікті сілтемелерден сақтану қажет. Бұл мost олардың ішінде вирустар болуы мүмкін, бұл тікелей Outlook деректерінің бүлінуіне әкелуі мүмкін. Әрине, ешкім Outlook деректерін жоғалтуға дайын емес. Демек, сіз күнделікті жұмыста вирустар мен зиянды бағдарламалардың алдын алып, белгісіз хат-хабарлардан сақ болуыңыз керек. Сонымен қатар, егер мүмкін болса, тәжірибелі және сенімдіге ие болу ұсынылады Перспективаны жөндеу сияқты құрал DataNumen Outlook Repair. Бұл сіздің Outlook PST файлыңыз бұзылған кезде сізге көп көмегін тигізері сөзсіз.

Автордың кіріспесі:

Ширли Чжан - деректерді қалпына келтіру бойынша сарапшы DataNumen, Соның ішінде деректерді қалпына келтіру технологиялары бойынша әлемдік көшбасшы болып табылатын Inc. sql түзету және бағдарламалық жасақтаманы жөндеу бағдарламалары. Қосымша ақпарат алу үшін кіріңіз WWW.datanumen.com