Como copiar rapidamente todas as tabelas de um e-mail para outro no Outlook

No Outlook, quando você precisa extrair e copiar todas as tabelas de um e-mail para outro, é sem dúvida tedioso e complicado fazer isso manualmente. Este artigo compartilhará uma maneira muito mais inteligente com você.

Às vezes, você pode desejar criar um novo e-mail contendo as tabelas de outro e-mail. Se houver apenas uma tabela no e-mail, é muito fácil. No entanto, se houver várias tabelas no e-mail de origem, copiar manualmente é muito tedioso. Portanto, a seguir, apresentaremos outra maneira muito mais eficaz e inteligente.

Copiar todas as tabelas de um e-mail para outro

1. Para começar, você deve acessar o Outlook normalmente.
2. Em seguida, na janela principal do Outlook, você pode pressionar as teclas de atalho “Alt + F11”.
3. Posteriormente, na janela pop-up “Microsoft Visual Basic for Applications”, você precisa abrir um módulo não utilizado ou simplesmente inserir um novo.
4. Em seguida, você pode copiar o seguinte código VBA para este módulo.

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. Depois disso, você pode sair da janela atual do editor VBA.
6. Mais tarde, você deve alterar as configurações de macro do Outlook para habilitar todas as macros.
7. Além disso, é melhor adicionar esta macro à Barra de Ferramentas de Acesso Rápido, que pode ser realizada em “Opções do Outlook”.
8. Finalmente, você pode tentar:

• Logo no início, abra ou selecione um e-mail cujas tabelas serão copiadas.
• Em seguida, pressione o botão de macro recém-adicionado na Barra de Ferramentas de Acesso Rápido.
• Depois que a execução da macro terminar, um novo e-mail aparecerá, no qual as tabelas do e-mail de origem foram coladas.

Defenda o arquivo do Outlook contra a corrupção

Embora o Outlook possa desempenhar um bom papel, independentemente de ser um cliente de e-mail autônomo ou um gerenciador de agendamento privado, ele ainda não pode ser imune a erros e corrupções. Portanto, é sem dúvida uma tarefa árdua e tediosa proteger seus dados do Outlook. Você deve manter o controle sobre seus comportamentos diários no Outlook, como não clicar em links suspeitos, baixar anexos inseguros ou fechar o Outlook incorretamente e assim por diante. Claro, é necessário que você mantenha uma ferramenta de reparo estelar por perto, como DataNumen Outlook Repair nisso pode reparar o Outlook problemas como uma brisa.

Introdução do autor:

Shirley Zhang é especialista em recuperação de dados em DataNumen, Inc., líder mundial em tecnologias de recuperação de dados, incluindo conserto de mdf e produtos de software de reparo do Outlook. Para mais informações visite www.datanumen.com