Cara Batch Salin Semua Hyperlink di Beberapa Email ke Email Outlook Baru

Jika Anda ingin menyalin semua hyperlink di beberapa email dan kemudian mengirimkannya dalam email baru ke orang lain, Anda dapat menggunakan pendekatan yang diperkenalkan dalam artikel ini. Itu bisa membiarkan Anda mendapatkan ini sekaligus.

Terkadang, Anda mungkin perlu mengekstrak dan mengirim hyperlink dari beberapa email yang diterima ke alamat email tertentu. Misalnya, kolega Anda mengirimi Anda beberapa email yang berisi hyperlink yang terkait dengan proyek yang sedang berlangsung. Kemudian, Anda ingin mengekstrak hyperlink ini ke satu email dan mengirim email ini ke alamat email Anda yang lain. Dalam hal ini, most Cara langsungnya adalah dengan menyalin hyperlink ke email baru satu per satu dari email sumber. Tapi, itu terlalu bodoh dan tidak efisien. Sekarang, setelah itu, kami akan membagikan kepada Anda metode yang lebih mudah dan cepat.

Salin Batch Semua Hyperlink di Beberapa Email ke Email Baru

1. Pertama-tama, luncurkan aplikasi Outlook.
2. Kemudian, pilih email yang ingin Anda ekstrak hyperlinknya.
3. Selanjutnya, picu editor Outlook VBA menurut "Cara Menjalankan Kode VBA di Outlook Anda".
4. Di jendela editor VBA, aktifkan referensi ke "MS Word Object Library "sesuai"Cara Menambahkan Object Library Referensi di VBA".
5. Nanti, masukkan kode 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. Setelah itu, tekan "F5" untuk menjalankan makro ini sekarang.
7. Akhirnya, ketika makro selesai, email baru akan muncul, yang berisi semua hyperlink yang diekstrak dari email yang dipilih sebelumnya.

Bayar Perhatian Khusus ke Hyperlink yang Tidak Dikenal

Sangat penting bagi pengguna Outlook untuk berhati-hati terhadap semua hyperlink yang mencurigakan di email yang tidak dikenal. Karena most di antaranya mungkin membawa virus, yang secara langsung dapat mengakibatkan kerusakan data Outlook. Jelas, tidak ada yang siap kehilangan data Outlook mereka. Oleh karena itu, dalam pekerjaan sehari-hari, Anda harus berhati-hati terhadap email yang tidak dikenal, mencegah virus dan malware. Plus, jika memungkinkan, disarankan untuk menghubungi yang berpengalaman dan dapat diandalkan Perbaikan Outlook alat, seperti DataNumen Outlook Repair. Ini pasti akan banyak membantu Anda ketika file PST Outlook Anda dikompromikan.

Pengantar Penulis:

Shirley Zhang adalah pakar pemulihan data di DataNumen, Inc., yang merupakan pemimpin dunia dalam teknologi pemulihan data, termasuk perbaiki sql dan produk perangkat lunak perbaikan pandangan. Untuk informasi lebih lanjut kunjungi www.datanumen.com