Dans Outlook, lorsque vous devez extraire et copier toutes les tables d'un e-mail à un autre, il est sans aucun doute fastidieux et fastidieux de le faire manuellement. Cet article partagera une manière beaucoup plus intelligente avec vous.
Parfois, vous pouvez souhaiter créer un nouvel e-mail contenant les tables d'un autre e-mail. S'il n'y a qu'un seul tableau dans l'e-mail, c'est très simple. Cependant, s'il existe plusieurs tables dans l'e-mail source, la copie manuelle est trop fastidieuse. Ainsi, dans ce qui suit, nous présenterons une autre méthode bien plus efficace et intelligente.
Copier toutes les tables d'un e-mail à un autre
- Pour commencer, vous devriez accéder à votre compte Outlook comme d'habitude.
- Ensuite, dans la fenêtre principale d'Outlook, vous pouvez appuyer sur les touches de raccourci "Alt + F11".
- Par la suite, dans la fenêtre contextuelle "Microsoft Visual Basic pour Applications", vous devez ouvrir un module inutilisé ou simplement en insérer un nouveau.
- Ensuite, vous pouvez copier le code VBA suivant dans ce module.
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
- Après cela, vous pouvez quitter la fenêtre actuelle de l'éditeur VBA.
- Plus tard, vous devrez modifier vos paramètres de macro Outlook pour activer toutes les macros.
- En outre, vous feriez mieux d'ajouter cette macro à la barre d'outils d'accès rapide, ce qui peut être accompli dans "Options Outlook".
- Enfin tu peux essayer :
- Au tout début, ouvrez ou sélectionnez un e-mail dont les tableaux doivent être copiés.
- Ensuite, appuyez sur le bouton de macro nouvellement ajouté dans la barre d'outils d'accès rapide.
- Une fois l'exécution de la macro terminée, un nouvel e-mail apparaîtra, dans lequel les tableaux de l'e-mail source ont été collés.
Défendre le fichier Outlook contre la corruption
Bien qu'Outlook puisse jouer un bon rôle, qu'il s'agisse d'un client de messagerie autonome ou d'un gestionnaire de calendrier privé, il ne peut toujours pas être à l'abri des erreurs et des corruptions. Par conséquent, protéger vos données Outlook est sans aucun doute une tâche ardue et fastidieuse. Vous devez garder un œil sur vos comportements quotidiens dans Outlook, comme ne pas cliquer sur des liens suspects, télécharger des pièces jointes dangereuses ou fermer Outlook de manière incorrecte, etc. Bien sûr, il est nécessaire que vous gardiez un outil de réparation stellaire à proximité, tel que DataNumen Outlook Repair en ce qu'il peut réparer Outlook troubles comme une brise.
Introduction de l'auteur:
Shirley Zhang est une experte en récupération de données dans DataNumen, Inc., qui est le leader mondial des technologies de récupération de données, y compris réparation mdf et produits logiciels de réparation Outlook. Pour plus d'informations, visitez www.datanumen.com