Kako izvoziti besedilo besedila e-pošte programa Outlook v preglednico Excel?

Če želite izvoziti izbrano besedilo besedila e-pošte iz Outlooka v preglednico Excel, vam lahko pomaga metoda v tem članku.

Telo besedila e-pošte v Outlooku izvozite v preglednico Excel s kodo VBA

Telo besedila e-pošte v Outlooku izvozite v preglednico Excel s kodo VBA<

Zaženite spodnjo kodo VBA, če želite izbrano telo besedila Outlookovega e-poštnega sporočila izvoziti v Excel.

1. Odprite e-poštno sporočilo, izberite telo e-pošte, ki ga želite izvoziti v preglednico Excel, in pritisnite na druga + F11 tipke za odpiranje Microsoft Visual Basic za aplikacije okno.

2. V Ljubljani Microsoft Visual Basic za aplikacije okno, kliknite Vstavi > Moduli. Nato kopirajte spodnjo kodo VBA v okno Code.

Koda VBA: izvozite besedilo Outlookovega e-poštnega sporočila v preglednico Excel

Sub ExportToExcel()
Dim xExcel As Excel.Application
Dim xWb As Workbook
Dim xWs As Worksheet
Dim xInspector As Inspector
Dim xItem As Object
Dim xMailItem As MailItem
Dim xDoc As Document
Dim xShell As Object
Dim xFilePath As String
On Error Resume Next
    Set xShell = CreateObject("Shell.Application")
    Set xFolder = xShell.BrowseForFolder(0, "Select a Folder:", 0, 0)
    If TypeName(xFolder) = "Nothing" Then Exit Sub
    Set xFolderItem = xFolder.Self
    xFilePath = xFolderItem.Path & "\"
    Set xItem = Outlook.Application.ActiveExplorer.Selection.item(1)
    If xItem.Class <> olMail Then Exit Sub
    Set xMailItem = xItem
    Set xInspector = xMailItem.GetInspector
    Set xDoc = xInspector.WordEditor
    xDoc.Application.Selection.Range.Copy
    xInspector.Close olDiscard
    Set xExcel = New Excel.Application
    Set xWb = xExcel.Workbooks.Add
    Set xWs = xWb.Sheets.item(1)
    xExcel.Visible = False
    xWs.Activate
    xWs.Paste
    xWs.SaveAs xFilePath & "Email body.xlsx"
    xWb.Close True
    xExcel.Quit
    Set xWs = Nothing
    Set xWb = Nothing
    Set xExcel = Nothing
End Sub

Opombe: V kodi je »Pošlji body.xlsx"Je ime delovnega zvezka, ki ga boste ustvarili z izbranim besedilom telesa e-pošte. Lahko ga spremenite glede na vaše potrebe.

3. klik Orodja > Reference. Nato preverite oba Knjižnica predmetov Microsoft Excel in Knjižnica predmetov Microsoft Word polja v Reference - Projekt pogovorno okno. Oglejte si posnetek zaslona:

4. Nato a Brskaj po mapi Pojavi se pogovorno okno, izberite mapo, v katero želite shraniti delovni zvezek, in kliknite OK gumb.

Zdaj je v delovnem zvezku z imenom »telo sporočila"Se ustvari in shrani v določeno mapo. Odprite delovni zvezek in vidite, da je izbrano besedilo telesa e-pošte izvoženo v list1 delovnega zvezka.