Bagaimana Batch Copy Semua Hyperlink dalam Beberapa E-mel ke E-mel Outlook Baru

Sekiranya anda ingin menyalin semua pautan dalam beberapa e-mel dan kemudian menghantarnya dalam e-mel baru kepada orang lain, anda boleh menggunakan pendekatan yang diperkenalkan dalam artikel ini. Ini dapat membiarkan anda mendapatkan ini sekali gus.

Kadang kala, anda mungkin perlu mengekstrak dan mengirim pautan dari beberapa e-mel yang diterima ke alamat e-mel tertentu. Sebagai contoh, rakan anda menghantar beberapa e-mel yang mengandungi pautan hiper yang berkaitan dengan projek yang sedang dijalankan. Kemudian, anda ingin mengekstrak pautan ini ke satu e-mel dan menghantar e-mel ini ke alamat e-mel anda yang lain. Dalam kes ini, most cara langsung adalah dengan menyalin pautan ke e-mel baru satu persatu dari e-mel sumber. Tetapi, ia terlalu bodoh dan tidak cekap. Sekarang, selepas itu, kami akan berkongsi kaedah yang lebih mudah dan cepat untuk anda.

Batch Salin Semua Hyperlink dalam Beberapa E-mel ke E-mel Baru

1. Pada awalnya, lancarkan aplikasi Outlook.
2. Kemudian, pilih e-mel dari mana anda mahu mengekstrak pautan.
3. Seterusnya, cetuskan editor Outlook VBA menurut “Cara Menjalankan Kod VBA di Outlook Anda".
4. Di tetingkap editor VBA, aktifkan rujukan ke "MS Word Object Library "mengikut"Bagaimana Menambah Objek Library Rujukan dalam VBA".
5. Kemudian, masukkan kod berikut ke dalam modul.

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. Selepas itu, tekan "F5" untuk menjalankan makro ini sekarang.
7. Akhirnya, apabila makro selesai, surat baru akan muncul, yang mengandungi semua pautan yang diekstrak dari e-mel yang dipilih sebelumnya.

Beri Perhatian Khas kepada Hyperlink yang Tidak Diketahui

Sangat penting bagi pengguna Outlook untuk berhati-hati dengan semua pautan yang mencurigakan dalam e-mel yang tidak diketahui. Ini kerana most di antaranya mungkin membawa virus, yang secara langsung dapat mengakibatkan kerosakan data Outlook. Jelas, tidak ada yang bersedia kehilangan data Outlook mereka. Oleh itu, dalam pekerjaan harian, anda harus berhati-hati dengan e-mel yang tidak diketahui, mencegah virus dan perisian hasad. Selain itu, jika mungkin, disarankan untuk mendapatkan pengalaman dan pengalaman yang berpengalaman Pembaikan Outlook alat, seperti DataNumen Outlook Repair. Ia pasti akan banyak membantu anda apabila fail Outlook PST anda terganggu.

Pengenalan Pengarang:

Shirley Zhang adalah pakar pemulihan data di DataNumen, Inc., yang merupakan pemimpin dunia dalam teknologi pemulihan data, termasuk betulkan sql dan produk perisian pembaikan prospek. Untuk maklumat lebih lanjut, lawati www.datanumen.com