Note: The other languages of the website are Google-translated. Back to English

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.


Kutools za Outlook - prinaša 100 naprednih funkcij v Outlook in olajša delo!

  • Samodejno CC / BCC po pravilih pri pošiljanju e-pošte; Samodejno posredovanje naprej Več e-poštnih sporočil po meri; Samodejni odgovor brez strežnika za izmenjavo in več samodejnih funkcij ...
  • Opozorilo pred BCC - prikaži sporočilo, ko poskušate odgovoriti vsem če je vaš poštni naslov na seznamu BCC; Opomni, ko manjkajo priloge, in več opomnikov ...
  • Odgovori (vsi) z vsemi prilogami v e-poštnem pogovoru; Odgovori na veliko e-poštnih sporočil v nekaj sekundah; Samodejno dodaj pozdrav ko odgovor; Dodaj datum v zadevo ...
  • Orodja za priloge: Upravljanje vseh prilog v vseh e-poštnih sporočilih, Samodejno loči, Stisni vse, Preimenuj vse, Shrani vse ... Hitro poročilo, Štejte izbrano pošto...
  • Zmogljiva neželena e-poštna sporočila po meri; Odstranite podvojene pošte in stike... Omogočajo vam pametnejše, hitrejše in boljše delovanje v Outlooku.
strelec kutools outlook kutools zavihek 1180x121
shot kutools outlook kutools plus jeziček 1180x121
 
Komentarji (4)
Ocene še ni. Bodite prvi in ​​ocenite!
Ta komentar je moderator na spletnem mestu minimiziral
Živjo, koda se je vrnila samo neposredno, v excel in ne v telo e-pošte, ali lahko vem, zakaj je bilo tako??
Ta komentar je moderator na spletnem mestu minimiziral
isto vprašanje tudi zame
Ta komentar je moderator na spletnem mestu minimiziral
to deluje, vendar samo v enem e-poštnem sporočilu, kaj če je v mapi več e-poštnih sporočil, ki jih je treba ekstrahirati v excelu?
Ta komentar je moderator na spletnem mestu minimiziral
Você vai precisar implementar o código fazendo um Looping, com um FOR por exemplo:

Sub lerEmails()

' Criando a applicação do Outlook
Zatemni objOutlook kot predmet
Nastavite objOutlook = CreateObject("Outlook.Application")

' Criando um Namespace, que seria uma sessão no Outlook
Zatemni objNSpace kot predmet
Nastavite objNSpace = objOutlook.GetNamespace("MAPI")

' Cria um objeto com a pasta Inbox do Outlook
Dim minhaPasta kot predmet
Nastavi minhaPasta = objNSpace.GetDefaultFolder(olFolderInbox)

Dim i as Long
Dim itemPasta As Object

i = 2 'Linha que vai começar preenchendo na planilha

' Percorrer todos os itens dentro da pasta
Za vsak artikel Testenine v minhaPasta.Items

Če je itemPasta.Class = olMail Potem
Dim objEmail Kot Outlook.MailItem
Nastavite objEmail = itemPasta

Celice(i, 1).Vrednost = objEmail.SenderEmailAddress
Cells(i, 2).Value = objEmail.To
Cells(i, 3).Value = objEmail.Subject
Cells(i, 4).Value = objEmail.ReceivedTime
Celice(i, 5).Vrednost = objEmail.Telo
Celice(i, 5).WrapText = False

Konec Če
i = i + 1

Naslednji

Nastavite objEmail = nič
Nastavite objOutlook = nič
Nastavite objNSpace = nič
Nastavite minhaPasta = nič

End Sub
Tu še ni objavljenih komentarjev
Pustite vaše komentarje
Objava kot gost
×
Ocenite to objavo:
0   Znaki
Predlagane lokacije