Come copiare rapidamente tutte le tabelle da un'e-mail all'altra in Outlook

In Outlook, quando devi estrarre e copiare tutte le tabelle da un'e-mail all'altra, è senza dubbio noioso e macchinoso farlo manualmente. Questo articolo condividerà con te un modo molto più intelligente.

A volte, potresti voler creare una nuova email contenente le tabelle di un'altra email. Se c'è solo una tabella nell'e-mail, è molto semplice. Tuttavia, se sono presenti più tabelle nell'e-mail di origine, la copia manuale è troppo noiosa. Quindi, di seguito, introdurremo un altro modo che è molto più efficace e intelligente.

Copia tutte le tabelle da un'e-mail all'altra

1. Innanzitutto, dovresti accedere a Outlook come di consueto.
2. Quindi, nella finestra principale di Outlook, puoi premere i tasti di scelta rapida "Alt + F11".
3. Successivamente, nella finestra popup “Microsoft Visual Basic for Applications”, è necessario aprire un modulo inutilizzato o semplicemente inserirne uno nuovo.
4. Successivamente, puoi copiare il seguente codice VBA in questo modulo.

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. Successivamente, puoi uscire dalla finestra dell'editor VBA corrente.
6. Successivamente dovresti modificare le impostazioni delle macro di Outlook per abilitare tutte le macro.
7. Inoltre, è meglio aggiungere questa macro alla barra di accesso rapido, che può essere eseguita in "Opzioni di Outlook".
8. Finalmente puoi provare:

• All'inizio, apri o seleziona un'e-mail di cui copiare le tabelle.
• Quindi, premi il pulsante macro appena aggiunto nella barra di accesso rapido.
• Al termine dell'esecuzione della macro, verrà visualizzata una nuova e-mail, in cui sono state incollate le tabelle dell'e-mail di origine.

Difendi il file di Outlook dalla corruzione

Sebbene Outlook possa svolgere un buon ruolo, indipendentemente dal fatto che sia un client di posta elettronica autonomo o un gestore di pianificazione privato, non può comunque essere immune da errori e corruzioni. Pertanto, è senza dubbio un compito arduo e noioso proteggere i dati di Outlook. Devi tenere d'occhio i tuoi comportamenti quotidiani in Outlook, come non fare clic su collegamenti sospetti, scaricare allegati non sicuri o chiudere Outlook in modo improprio e così via. Naturalmente, è necessario che tu tenga nelle vicinanze uno strumento di riparazione stellare, come ad esempio DataNumen Outlook Repair in quanto può riparare Outlook problemi come un gioco da ragazzi.

Introduzione dell'autore:

Shirley Zhang è un'esperta di recupero dati in DataNumen, Inc., che è il leader mondiale nelle tecnologie di recupero dati, tra cui riparazione mdf e prodotti software di riparazione di Outlook. Per maggiori informazioni visita www.datanumen.com