Cara Cepat Menyalin Semua Jadual dari Satu E-mel ke Yang Lain di Outlook

Di Outlook, apabila anda perlu mengekstrak dan menyalin semua jadual dari satu e-mel ke yang lain, sudah pasti membosankan dan membebankan untuk melakukannya secara manual. Artikel ini akan berkongsi cara yang lebih bijak dengan anda.

Kadang-kadang, anda mungkin ingin membuat e-mel baru yang mengandungi jadual e-mel lain. Sekiranya terdapat hanya satu jadual dalam e-mel, sangat mudah. Namun, jika terdapat banyak jadual dalam e-mel sumber, menyalin secara manual terlalu membosankan. Oleh itu, berikut ini, kami akan memperkenalkan cara lain yang jauh lebih berkesan dan cerdas.

Salin Semua Jadual dari Satu E-mel ke Yang Lain

1. Sebagai permulaan, anda harus mengakses Outlook anda seperti biasa.
2. Kemudian, di tetingkap Outlook utama, anda boleh menekan kekunci pintas "Alt + F11".
3. Selanjutnya, di tetingkap "Microsoft Visual Basic for Applications" pop timbul, anda perlu membuka modul yang tidak digunakan atau hanya memasukkan yang baru.
4. Seterusnya, anda boleh menyalin kod 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. Selepas itu, anda boleh keluar dari tetingkap editor VBA semasa.
6. Nanti anda harus menukar tetapan makro Outlook anda untuk mengaktifkan semua makro.
7. Anda juga lebih baik menambahkan makro ini ke Toolbar Akses Pantas, yang dapat dicapai dalam "Opsi Outlook".
8. Akhirnya anda boleh mencuba:

• Pada awalnya, buka atau pilih e-mel yang jadualnya akan disalin.
• Kemudian, tekan butang makro yang baru ditambahkan di Bar Alat Akses Pantas.
• Setelah makro selesai dijalankan, e-mel baru akan muncul, di mana jadual e-mel sumber telah ditampal.

Mempertahankan Fail Outlook daripada Rasuah

Walaupun Outlook dapat memainkan peranan yang baik tidak kira sebagai klien e-mel yang berdiri sendiri atau pengurus jadual peribadi, ia tetap tidak dapat kebal dari kesalahan dan kerosakan. Oleh itu, sudah pasti tugas yang sukar dan membosankan untuk melindungi data Outlook anda. Anda harus memerhatikan tingkah laku harian anda di Outlook, seperti jangan mengklik pautan yang mencurigakan, memuat turun lampiran yang tidak selamat atau menutup Outlook dengan tidak betul dan sebagainya. Sudah tentu, anda perlu menyimpan alat pembaikan bintang di dekatnya, seperti DataNumen Outlook Repair di dalamnya boleh baiki Outlook masalah seperti angin.

Pengenalan Pengarang:

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