2 méthodes simples pour créer rapidement une tâche Outlook pour un classeur Excel

Certains utilisateurs souhaitent créer rapidement une tâche Outlook pour un classeur Excel. Ainsi, dans cet article, nous allons présenter 2 approches simples pour l'obtenir.

Parfois, vous souhaiterez peut-être créer une tâche Outlook à partir d'un fichier Excel pour un suivi ou pour d'autres raisons. En fait, Microsoft Excel est livré avec une fonctionnalité native de "Créer une tâche Microsoft Outlook", comme la méthode 1 présentée ci-dessous. Mais, cela ne fera que joindre le classeur Excel à une tâche Outlook. Si vous souhaitez copier rapidement tout le contenu de toutes les feuilles de calcul dans le corps d'une tâche Outlook, vous pouvez utiliser la méthode 2 à la place. Maintenant, lisez la suite pour obtenir les 2 moyens en détail.

Méthode 1 : Utilisez la commande "Créer une tâche Microsoft Outlook" dans MS Excel

1. En premier lieu, ouvrez le classeur Excel spécifique.
2. Ensuite, cliquez sur le bouton fléché vers le bas dans la barre d'outils d'accès rapide.
3. Ensuite, choisissez "Plus de commandes" dans la liste déroulante.
4. Plus tard, dans la nouvelle fenêtre "Options Excel", sur l'onglet "Barre d'outils d'accès rapide", ajoutez la commande "Créer une tâche Microsoft Outlook" à la barre d'outils d'accès rapide.

• Tout d'abord, sélectionnez "Commandes ne figurant pas dans le ruban" dans la liste "Choisir des commandes à partir de".
• Ensuite, localisez et lancez la commande "Créer une tâche Microsoft Outlook".
• Ensuite, cliquez sur le bouton "Ajouter >>" au centre.
• Enfin, appuyez sur le bouton "OK".

5. Finalement, après être revenu au classeur Excel, cliquez sur le nouveau bouton dans la barre d'outils d'accès rapide.
6. Immédiatement, une nouvelle tâche Outlook s'affichera, qui a été jointe au classeur Excel actuel, comme la capture d'écran suivante.

Méthode 2 : copier le classeur Excel dans le corps d'une tâche Outlook via le code VBA

1. Dans un premier temps, ouvrez le fichier Excel source.
2. Ensuite, appuyez sur "Alt + F11" pour lancer l'éditeur Excel VBA.
3. Ensuite, activez "Microsoft Outlook Object Library", à propos de laquelle vous pouvez vous référer à "Comment ajouter une bibliothèque d'objetsrary Référence dans VBA" .
4. Après cela, placez le code VBA ci-dessous dans un module ou un projet "ThisWorkbook".

Sub CreateOutlookTaskforExcelWorkbook()
    Dim objOutlookApp As Outlook.Application
    Dim objTask As Outlook.TaskItem
    Dim objWorksheet As Excel.Worksheet
    Dim objTempWorkbook As Excel.Workbook
    Dim objTempWorksheet As Excel.Worksheet
    Dim strTempFolder As String
    Dim strHTMLFile As String
    Dim objHTMLFile As Object
    Dim objFileSystem As Object
    Dim objTextStream As Object
    Dim objTempMail As Outlook.MailItem
 
    Set objOutlookApp = CreateObject("Outlook.Application")
    Set objTask = objOutlookApp.CreateItem(oltaskitem)
    objTask.Subject = ActiveWorkbook.Name
    objTask.Display
 
    For Each objWorksheet In ActiveWorkbook.Sheets
        objWorksheet.UsedRange.Copy
 
        Set objTempWorkbook = Excel.Application.Workbooks.Add(1)
        Set objTempWorksheet = objTempWorkbook.Sheets(1)
        With objTempWorksheet.Cells(1)
             .PasteSpecial xlPasteValues
             .PasteSpecial xlPasteColumnWidths
             .PasteSpecial xlPasteFormats
        End With
 
        strTempFolder = CStr(Environ("USERPROFILE")) & "\AppData\Local\Temp"
        strHTMLFile = strTempFolder & "\Temp" & Format(Now, "yyyymmddhhmmss") & ".htm"
        Set objHTMLFile = objTempWorkbook.PublishObjects.Add(xlSourceRange, strHTMLFile, objTempWorksheet.Name, objTempWorksheet.UsedRange.Address)
        objHTMLFile.Publish (True)

        Set objTempMail = objOutlookApp.CreateItem(olMailItem)
 
        Set objFileSystem = CreateObject("Scripting.FileSystemObject")
        Set objTextStream = objFileSystem.OpenTextFile(strHTMLFile)
        objTempMail.HTMLBody = objTextStream.ReadAll
        objTempMail.Display
 
        objTask.Body = objTask.Body & vbCr & "-----------------------" & vbCr & objTempMail.Body

        objTextStream.Close
        objTempWorkbook.Close False
        Kill strHTMLFile
        objTempMail.Close olDiscard
    Next
End Sub

5. Enfin, appuyez sur les touches "F5".
6. Une fois la macro terminée, vous obtiendrez une tâche Outlook, qui contient le contenu du classeur Excel dans le corps, illustré par la capture d'écran suivante.

Restaurer les données Outlook à partir des sauvegardes

Il est fortement recommandé de sauvegarder les données de votre ordinateur à intervalles réguliers, y compris bien sûr vos fichiers de données Outlook. De cette façon, vous n'avez pas à vous soucier de la perte de données Outlook. Même si votre fichier Outlook est endommagé, vous pouvez récupérer des données à partir de sauvegardes sans effort. Mais, en supposant que vous n'avez pas effectué de sauvegarde de données, dans de tels cas, vous devez tenter une récupération PST via un utilitaire de réparation compétent, tel que DataNumen Outlook Repair. Il peut récupérer PST sans transpirer.

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