如何在 Outlook 中快速將所有表格從一封電子郵件複製到另一封電子郵件

Outlook解決方案 2025 年 9 月 29 日
立即分享：

在 Outlook 中，當您需要將一封電子郵件中的所有表格提取並複製到另一封電子郵件時，手動執行此操作無疑是乏味且麻煩的。 本文將與您分享一種更聰明的方法。

有時，您可能希望創建一封包含另一封電子郵件的表格的新電子郵件。 如果電子郵件中只有一張表，則非常簡單。 但是，如果源郵件中有多個表，手動複製就太繁瑣了。 因此，下面我們將介紹另一種更有效、更智能的方法。

快速將所有表格從一封電子郵件複製到另一封電子郵件

將所有表從一封電子郵件複製到另一封電子郵件

  1. 首先，您應該像往常一樣存取 Outlook。
  2. 然後，在 Outlook 主窗口中，您可以按“Alt + F11”快捷鍵。
  3. 隨後，在彈出的“Microsoft Visual Basic for Applications”窗口中，您需要打開未使用的模塊或只需插入一個新模塊。
  4. 接下來，您可以將以下 VBA 代碼複製到該模塊中。
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

VBA 代碼 - 將一封電子郵件中的所有表複製到另一封電子郵件

  1. 之後，您可以退出當前的VBA編輯器窗口。
  2. 稍後您應該更改 Outlook 宏設置以啟用所有宏。
  3. 另外，您最好將此宏添加到快速訪問工具欄，這可以在“Outlook 選項”中完成。
  4. 最後，您可以嘗試：
  • 首先，打開或選擇要復制其表格的電子郵件。
  • 然後，點擊快速訪問工具欄中新添加的宏按鈕。
  • 宏運行完成後，將顯示一封新電子郵件，其中已粘貼源電子郵件的表格。

保護Outlook文件免受損壞

儘管 Outlook 無論作為獨立的電子郵件客戶端還是私人日程管理器都可以發揮良好的作用，但它仍然無法避免錯誤和損壞。 因此，保護您的Outlook數據無疑是一項艱鉅而乏味的任務。 您必須密切關注自己在 Outlook 中的日常行為，例如不要點擊可疑鏈接、下載不安全的附件或不正確地關閉 Outlook 等。 當然，你身邊有一個恆星修復工具是有必要的，比如 DataNumen Outlook Repair 因為它可以 維修展望 煩惱如風。

作者簡介：

Shirley Zhang是的數據恢復專家 DataNumen，Inc.是數據恢復技術的全球領導者，包括 mdf維修 和Outlook修復軟件產品。 欲了解更多信息，請訪問 萬維網。datanumen.COM

立即分享：

評論被關閉。