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

Jak exportovat hlavní text e-mailu aplikace Outlook do tabulky aplikace Excel?

Pokud chcete exportovat vybraný hlavní text e-mailu z tabulky aplikace Outlook do aplikace Excel, může vám pomoci metoda v tomto článku.

Exportujte hlavní text e-mailu aplikace Outlook do tabulky aplikace Excel s kódem VBA


Exportujte hlavní text e-mailu aplikace Outlook do tabulky aplikace Excel s kódem VBA<

Spusťte níže uvedený kód VBA a exportujte vybraný text e-mailu aplikace Outlook do aplikace Excel.

1. Otevřete e-mail, vyberte text e-mailu, který chcete exportovat do tabulky aplikace Excel, a poté stiskněte Další + F11 klávesy pro otevření Microsoft Visual Basic pro aplikace okno.

2. V Microsoft Visual Basic pro aplikace okno, klepněte na tlačítko Vložit > Modul. A pak zkopírujte níže uvedený kód VBA do okna Kód.

Kód VBA: exportujte hlavní text e-mailu aplikace Outlook do tabulky aplikace 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

Poznámka: V kódu, “E-mail body.xlsx„Je název sešitu, který vytvoříte s vybraným textem hlavního e-mailu. Můžete to změnit podle toho, co potřebujete.

3. cvaknutí Tools > Reference. Pak zkontrolujte obě Objektová knihovna Microsoft Excel a Objektová knihovna Microsoft Word krabice v Reference - projekt dialogové okno. Viz snímek obrazovky:

4. Pak a Procházet složku Zobrazí se dialogové okno, vyberte složku pro uložení sešitu a klikněte na ikonu OK .

Nyní sešit s názvem „email tělo”Je vytvořen a uložen do určené složky. Otevřete sešit a uvidíte, že vybraný text e-mailu se exportuje do Listu 1 sešitu.


Kutools pro Outlook - přináší do aplikace Outlook 100 pokročilých funkcí a usnadňuje práci!

  • Auto CC / BCC podle pravidel při odesílání e-mailů; Automatické předávání Více e-mailů podle zvyku; Automatická odpověď bez serveru Exchange a dalších automatických funkcí ...
  • Varování BCC - zobrazit zprávu, když se pokusíte odpovědět všem pokud je vaše e-mailová adresa v seznamu BCC; Připomenout, když chybí přílohya další připomínající funkce ...
  • Odpovědět (Vše) Se všemi přílohami v e-mailové konverzaci; Odpovězte na mnoho e-mailů během několika sekund; Automatické přidání pozdravu při odpovědi; Přidat datum do předmětu ...
  • Nástroje pro přílohy: Spravujte všechny přílohy ve všech e-mailech, Automatické odpojení, Komprimovat vše, Přejmenovat vše, Uložit vše ... Rychlá zpráva, Počítat vybrané e-maily...
  • Výkonné nevyžádané e-maily podle zvyku; Odeberte duplicitní e-maily a kontakty... Umožní vám dělat chytřejší, rychlejší a lepší v Outlooku.
záběr kutools outlook kutools tab 1180x121
shot kutools outlook kutools plus karta 1180x121
 
Komentáře (4)
Zatím žádné hodnocení. Buďte první, kdo ohodnotí!
Tento komentář byl moderátorem webu minimalizován
Ahoj, kód se vrátil pouze přímo do excelu a ne do těla e-mailu, mohu vědět, proč tomu tak bylo?
Tento komentář byl moderátorem webu minimalizován
stejný problém i pro mě
Tento komentář byl moderátorem webu minimalizován
tato práce, ale pouze v jednom e-mailu, co když je ve složce více e-mailů, které je třeba extrahovat v aplikaci Excel?
Tento komentář byl moderátorem webu minimalizován
Você vai precisar implementar o kódigo fazendo um Looping, com um FOR por příklad:

Sub lerEmails()

' Criando aplikujte aplikaci Outlook
Ztlumit objOutlook jako objekt
Set objOutlook = CreateObject("Outlook.Application")

Criando um Namespace, que seria uma sessão no Outlook
Dim objNSpace As Object
Set objNSpace = objOutlook.GetNamespace("MAPI")

' Cria um objekt com a pasta Inbox do Outlooku
Dim minhaPasta jako objekt
Nastavit minhaPasta = objNSpace.GetDefaultFolder(olFolderInbox)

Dim i tak dlouho
Dim itemPasta As Object

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

' Percorrer todos os itens dentro da pasta
Pro každou položkuTěstoviny V minhaPasta.Items

If itemPasta.Class = olMail Then
Dim objEmail As Outlook.MailItem
Nastavte objEmail = itemPasta

Cells(i, 1).Value = objEmail.SenderEmailAddress
Cells(i, 2).Hodnota = objEmail.To
Buňky(i, 3).Hodnota = objEmail.Předmět
Cells(i, 4).Value = objEmail.ReceivedTime
Buňky(i, 5).Hodnota = objEmail.Tělo
Cells(i, 5). WrapText = False

End If
i = i + 1

další

Nastavit objEmail = nic
Nastavte objOutlook = Nic
Nastavit objNSpace = Nic
Nastavit minhaPasta = Nic

End Sub
Zatím zde nejsou žádné komentáře
Zanechat své připomínky
Odesílání jako host
×
Ohodnoťte tento příspěvek:
0   Postavy
Doporučená umístění