2 helppoa tapaa luoda nopeasti Outlook-tehtävä Excel-työkirjaa varten

Jotkut käyttäjät haluavat luoda nopeasti Outlook-tehtävän Excel-työkirjalle. Siksi tässä artikkelissa esittelemme 2 yksinkertaista tapaa saada se.

Joskus saatat haluta luoda Outlook-tehtävän Excel-tiedostosta seuranta- tai muista syistä. Itse asiassa Microsoft Excel sisältää "Create Microsoft Outlook Task" -ominaisuuden, kuten seuraavassa esitellyn menetelmän 1. Mutta se liittää vain Excel-työkirjan Outlook-tehtävään. Jos haluat kopioida nopeasti kaikkien laskentataulukoiden sisällön Outlook-tehtävän runkoon, voit käyttää sen sijaan menetelmää 2. Lue nyt saadaksesi kaksi keinoa yksityiskohtaisesti.

Tapa 1: Käytä "Create Microsoft Outlook Task" -komentoa MS Excelissä

1. Avaa ensin tietty Excel-työkirja.
2. Napsauta sitten pikatyökalupalkin alanuolipainiketta.
3. Valitse seuraavaksi avattavasta luettelosta "Lisää komentoja".
4. Myöhemmin, uudessa Excel-asetukset-ikkunassa, Quick Access Toolbar -välilehdellä, lisää "Luo Microsoft Outlook Task" -komento Quick Access -työkalupalkkiin.

• Valitse ensin "Komennot, jotka eivät ole nauhassa" luettelosta "Valitse komennot".
• Etsi sitten "Luo Microsoft Outlook Task" -komento ja aseta se päälle.
• Napsauta sen jälkeen "Lisää >>" -painiketta keskellä.
• Lopuksi paina "OK" -painiketta.

5. Kun olet palannut Excel-työkirjaan, napsauta pikatyökalupalkin uutta painiketta.
6. Heti näkyviin tulee uusi Outlook-tehtävä, joka on liitetty nykyiseen Excel-työkirjaan, kuten seuraava kuvakaappaus.

Tapa 2: Kopioi Excel-työkirja Outlook-tehtävän runkoon VBA-koodin avulla

1. Avaa ensin Excel-lähdetiedosto.
2. Käynnistä sitten Excel VBA -editori painamalla Alt + F11.
3. Ota sen jälkeen käyttöön ”Microsoft Outlook Object Library”, josta voit katsoa lisätietoja kohdasta ”Objektikirjastoviittauksen lisääminen VBA:ssa".
4. Laita sen jälkeen alla oleva VBA-koodi moduuliin tai "ThisWorkbook" -projektiin.

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. Paina lopuksi "F5"-näppäinpainikkeita.
6. Kun makro on valmis, saat Outlook-tehtävän, joka sisältää Excel-työkirjan sisällön tekstiosassa, seuraavan kuvakaappauksen mukaisesti.

Palauta Outlook-tiedot varmuuskopioista

On erittäin suositeltavaa varmuuskopioida tietokoneesi tiedot säännöllisin väliajoin, mukaan lukien tietysti Outlook-datatiedostot. Tällä tavalla sinun ei tarvitse huolehtia Outlookin tietojen katoamisesta. Vaikka Outlook-tiedostosi vaurioituisi, voit noutaa tiedot varmuuskopioista vaivattomasti. Mutta olettaen, että et ole tehnyt tiedoista varmuuskopiota, sinun on tällaisissa tapauksissa yritettävä PST-palautusta asiantuntevan korjausohjelman avulla, kuten DataNumen Outlook Repair. Se voi palauttaa PST rikkomatta hikeä.

Tekijän esittely:

Shirley Zhang on tietojen palauttamisen asiantuntija DataNumen, Inc., joka on maailman johtava tietojen palautustekniikoissa, mukaan lukien korjaus mdf ja Outlookin korjausohjelmistotuotteet. Lisätietoja osoitteessa www.datanumen.com