Cara Cepat Menyalin Semua Tabel dari Satu Email ke Email Lain di Outlook

Di Outlook, saat Anda perlu mengekstrak dan menyalin semua tabel dari satu email ke email lainnya, tidak diragukan lagi membosankan dan tidak praktis untuk melakukannya secara manual. Artikel ini akan berbagi cara yang jauh lebih cerdas dengan Anda.

Terkadang, Anda mungkin ingin membuat email baru yang berisi tabel email lain. Jika hanya ada satu tabel di email, itu sangat mudah. Namun, jika ada beberapa tabel di email sumber, penyalinan secara manual terlalu membosankan. Nah berikut ini kami akan memperkenalkan cara lain yang jauh lebih efektif dan cerdas.

Salin Semua Tabel dari Satu Email ke Email Lainnya

1. Sebagai langkah awal, Anda dapat mengakses Outlook Anda seperti biasa.
2. Kemudian, di jendela utama Outlook, Anda dapat menekan tombol pintasan “Alt + F11”.
3. Selanjutnya, di jendela sembulan "Microsoft Visual Basic for Applications", Anda perlu membuka modul yang tidak digunakan atau cukup memasukkan yang baru.
4. Selanjutnya, Anda dapat menyalin kode VBA berikut ke dalam modul ini.

Sub CopyAllTablesFromOneEmailToAnother()
    Dim objSourceMail As Outlook.MailItem
    Dim objSourceMailDocument As Word.Document
    Dim objNewMail As Outlook.MailItem
    Dim objNewMailDocument As Word.Document
    Dim objTable As Word.Table
 
    'Get the source email
    Select Case TypeName(Application.ActiveWindow)
           Case "Explorer"
                Set objSourceMail = ActiveExplorer.Selection.Item(1)
                objSourceMail.Display
           Case "Inspector"
                Set objSourceMail = ActiveInspector.CurrentItem
    End Select
 
    Set objSourceMailDocument = objSourceMail.GetInspector.WordEditor
 
    If objSourceMailDocument.Tables.count > 0 Then
 
       'Create a new email
       Set objNewMail = Application.CreateItem(olMailItem)
 
       For Each objTable In objSourceMailDocument.Tables
           Set objNewMailDocument = objNewMail.GetInspector.WordEditor
 
           'Copy all tables from source email to the new email
           With objNewMailDocument.Range
                .Collapse wdCollapseEnd
                .FormattedText = objTable.Range.FormattedText
                .Collapse wdCollapseEnd
                .Text = vbCrLf
           End With
      Next
 
      'Close the source email
      objSourceMail.Close olSave
      'Display the new email
      objNewMail.Display
    End If
End Sub

5. Setelah itu, Anda dapat keluar dari jendela editor VBA saat ini.
6. Nanti Anda harus mengubah pengaturan makro Outlook Anda untuk mengaktifkan semua makro.
7. Selain itu, Anda lebih baik menambahkan makro ini ke Bilah Alat Akses Cepat, yang dapat dilakukan di "Opsi Outlook".
8. Akhirnya Anda dapat mencoba:

• Pada awalnya, buka atau pilih email yang tabelnya akan disalin.
• Kemudian, tekan tombol makro yang baru ditambahkan di Bilah Alat Akses Cepat.
• Setelah makro selesai berjalan, email baru akan muncul, di mana tabel email sumber telah ditempelkan.

Pertahankan File Outlook dari Korupsi

Meskipun Outlook dapat memainkan peran yang baik tidak peduli sebagai klien email mandiri atau pengelola jadwal pribadi, Outlook tetap tidak kebal dari kesalahan dan kerusakan. Oleh karena itu, tidak diragukan lagi merupakan tugas yang berat dan membosankan untuk melindungi data Outlook Anda. Anda harus mengawasi perilaku harian Anda di Outlook, seperti jangan mengklik tautan yang mencurigakan, mengunduh lampiran yang tidak aman atau menutup Outlook dengan tidak benar, dan sebagainya. Tentu saja, Anda perlu menyimpan alat perbaikan bintang di dekat Anda, seperti DataNumen Outlook Repair dalam hal itu bisa perbaiki Outlook masalah seperti angin sepoi-sepoi.

Pengantar Penulis:

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