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

Jak exportovat e-maily z více složek / podsložek do aplikace Excel?

Při exportu složky pomocí Průvodce importem a exportem v aplikaci Outlook nepodporuje Zahrnout podsložky Pokud exportujete složku do souboru CSV. Bude však docela časově náročné a zdlouhavé exportovat každou složku do souboru CSV a poté ji ručně převést do sešitu aplikace Excel. Zde tento článek představí VBA pro snadný rychlý export více složek a podsložek do sešitů aplikace Excel.

Exportujte více e-mailů z více složek / podsložek do aplikace Excel pomocí VBA

Záložka Office - Povolte úpravy a procházení záložkami v Office a mnohem usnadněte práci ...
Kutools pro Outlook - přináší do aplikace Microsoft Outlook 100 výkonných pokročilých funkcí
  • Auto CC / BCC podle pravidel při odesílání e-mailů; Automatické předávání Více e-mailů podle pravidel; 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 poštovní konverzaci; Odpovězte na mnoho e-mailů najednou; Automatické přidání pozdravu při odpovědi; Automatické přidání data a času do předmětu ...
  • Nástroje pro připojení: Auto Detach, Compress All, Rename All, Auto Save All ... Rychlá zpráva, Počet vybraných e-mailů, Odebrat duplicitní e-maily a kontakty ...
  • Více než 100 pokročilých funkcí bude vyřešit většinu vašich problémů v aplikaci Outlook 2021 – 2010 nebo Office 365. Plné funkce 60denní bezplatná zkušební verze.

šipka modrá pravá bublina Exportujte více e-mailů z více složek / podsložek do aplikace Excel pomocí VBA

Při exportu e-mailů z více složek nebo podsložek do sešitů aplikace Excel pomocí VBA v aplikaci Outlook postupujte podle následujících kroků.

1. lis Další + F11 klávesy pro otevření okna Microsoft Visual Basic pro aplikace.

2. cvaknutí Vložit > Modula poté vložte do nového okna modulu pod kód VBA.

VBA: Exportujte e-maily z více složek a podsložek do aplikace Excel

Const MACRO_NAME = "Export Outlook Folders to Excel"

Sub ExportMain()
ExportToExcel "destination_folder_path\A.xlsx", "your_email_accouny\folder\subfolder_1"
ExportToExcel "destination_folder_path\B.xlsx", "your_email_accouny\folder\subfolder_2"
MsgBox "Process complete.", vbInformation + vbOKOnly, MACRO_NAME
End Sub
Sub ExportToExcel(strFilename As String, strFolderPath As String)
Dim      olkMsg As Object
Dim olkFld As Object
Dim excApp As Object
Dim excWkb As Object
Dim excWks As Object
Dim intRow As Integer
Dim intVersion As Integer

If strFilename <> "" Then
If strFolderPath <> "" Then
Set olkFld = OpenOutlookFolder(strFolderPath)
If TypeName(olkFld) <> "Nothing" Then
intVersion = GetOutlookVersion()
Set excApp = CreateObject("Excel.Application")
Set excWkb = excApp.Workbooks.Add()
Set excWks = excWkb.ActiveSheet
'Write Excel Column Headers
With excWks
.Cells(1, 1) = "Subject"
.Cells(1, 2) = "Received"
.Cells(1, 3) = "Sender"
End With
intRow = 2
For Each olkMsg In olkFld.Items
'Only export messages, not receipts or appointment requests, etc.
If olkMsg.Class = olMail Then
'Add a row for each field in the message you want to export
excWks.Cells(intRow, 1) = olkMsg.Subject
excWks.Cells(intRow, 2) = olkMsg.ReceivedTime
excWks.Cells(intRow, 3) = GetSMTPAddress(olkMsg, intVersion)
intRow = intRow + 1
End If
Next
Set olkMsg = Nothing
excWkb.SaveAs strFilename
excWkb.Close
Else
MsgBox "The folder '" & strFolderPath & "' does not exist in Outlook.", vbCritical + vbOKOnly, MACRO_NAME
End If
Else
MsgBox "The folder path was empty.", vbCritical + vbOKOnly, MACRO_NAME
End If
Else
MsgBox "The filename was empty.", vbCritical + vbOKOnly, MACRO_NAME
End If

Set olkMsg = Nothing
Set olkFld = Nothing
Set excWks = Nothing
Set excWkb = Nothing
Set excApp = Nothing
End Sub

Public Function OpenOutlookFolder(strFolderPath As String) As Outlook.MAPIFolder
Dim arrFolders As Variant
Dim varFolder As Variant
Dim bolBeyondRoot As Boolean

On Error Resume Next
If strFolderPath = "" Then
Set OpenOutlookFolder = Nothing
Else
Do While Left(strFolderPath, 1) = "\"
strFolderPath = Right(strFolderPath, Len(strFolderPath) - 1)
Loop
arrFolders = Split(strFolderPath, "\")
For Each varFolder In arrFolders
Select Case bolBeyondRoot
Case False
Set OpenOutlookFolder = Outlook.Session.Folders(varFolder)
bolBeyondRoot = True
Case True
Set OpenOutlookFolder = OpenOutlookFolder.Folders(varFolder)
End Select
If Err.Number <> 0 Then
Set OpenOutlookFolder = Nothing
Exit For
End If
Next
End If
On Error GoTo 0
End Function

Function GetSMTPAddress(Item As Outlook.MailItem, intOutlookVersion As Integer) As String
Dim olkSnd As Outlook.AddressEntry
Dim olkEnt As Object

On Error Resume Next
Select Case intOutlookVersion
Case Is < 14
If Item.SenderEmailType = "EX" Then
GetSMTPAddress = SMTPEX(Item)
Else
GetSMTPAddress = Item.SenderEmailAddress
End If
Case Else
Set olkSnd = Item.Sender
If olkSnd.AddressEntryUserType = olExchangeUserAddressEntry Then
Set olkEnt = olkSnd.GetExchangeUser
GetSMTPAddress = olkEnt.PrimarySmtpAddress
Else
GetSMTPAddress = Item.SenderEmailAddress
End If
End Select
On Error GoTo 0
Set olkPrp = Nothing
Set olkSnd = Nothing
Set olkEnt = Nothing
End Function

Function GetOutlookVersion() As Integer
Dim arrVer As Variant
arrVer = Split(Outlook.Version, ".")
GetOutlookVersion = arrVer(0)
End Function

Function SMTPEX(olkMsg As Outlook.MailItem) As String
Dim olkPA As Outlook.propertyAccessor
On Error Resume Next
Set olkPA = olkMsg.propertyAccessor
SMTPEX = olkPA.GetProperty("http://schemas.microsoft.com/mapi/proptag/0x5D01001E")
On Error GoTo 0
Set olkPA = Nothing
End Function

3. Upravte výše uvedený kód VBA podle potřeby.

(1) Vyměňte cesta_k cílové složce ve výše uvedeném kódu s cestou ke složce cílové složky uložíte exportované sešity, například C: \ Users \ DT168 \ Documents \ TEST.
(2) Nahraďte svůj_email_accouny \ složku \ podsložku1 a vaši_email_accouny \ složku \ podsložku2 ve výše uvedeném kódu cestami podsložek v Outlooku, například Kelly @extendoffice.com \ Doručené \ A a Kelly @extendoffice.com \ Doručené \ B

4. zmáčkni F5 klíč nebo klikněte na Běh tlačítko pro spuštění tohoto VBA. A poté klikněte na OK v rozbalovacím okně Exportovat složky aplikace Outlook do aplikace Excel. Viz snímek obrazovky:

A nyní jsou e-maily ze všech zadaných podsložek nebo složek ve výše uvedeném kódu VBA exportovány a uloženy do sešitů aplikace Excel.


šipka modrá pravá bublinaSouvisející články


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 (10)
Zatím žádné hodnocení. Buďte první, kdo ohodnotí!
Tento komentář byl moderátorem webu minimalizován
Jak dosáhnu toho, aby se to automaticky opakovalo do podsložek?
Tento komentář byl moderátorem webu minimalizován
ahoj drahá, všechno funguje dobře, díky, ale tělo se neexportuje, jak mohu exportovat i tělo e-mailu, soubor aplikace Excel má právě (Předmět, Přijato a Odesílatel), pokud mě s ním můžete aktualizovat, vyřeší to obrovskou záležitost v mém podnikání ještě jednou velké díky
Tento komentář byl moderátorem webu minimalizován
Ahoj Montasere,
Skript VBA běží na základě funkce Export aplikace Outlook, která nepodporuje export obsahu zprávy při hromadném exportu e-mailů z poštovní složky. Tento skript VBA proto také nemůže exportovat obsah zprávy.
Tento komentář byl moderátorem webu minimalizován
funguje to skvěle, ale existuje způsob, jak přidat informace nejen pro 4 výše uvedená pole, ale pro všechny, které export aplikace Outlook do PST poskytuje? Tělo předmětu Od: (Jméno) Od: (Adresa) Od: (Typ) Komu: (Jméno) Komu: (Adresa) Komu: (Typ) Kopie: (Jméno) Kopie: (Adresa) Kopie: (Typ) Skrytá kopie: ( Jméno) BCC: (Adresa) BCC: (Typ) Fakturační údaje Kategorie Důležitost Citlivost

Zkusil jsem přidat "Důležitost" a funguje to, ale ocenil bych, kdyby někdo mohl poskytnout kód pro ostatní pole. Děkuji!!
S excWks
.Cells(1, 1) = "Předmět"
.Cells(1, 2) = "Přijato"
.Cells(1, 3) = "Odesílatel"
.Cells(1, 4) = "Tělo"
.Cells(1, 5) = "Důležité"
Konec s
intRow = 2
Pro každou olkMsg v olkFld.Items
„Exportujte pouze zprávy, nikoli potvrzení nebo žádosti o schůzku atd.
Pokud olkMsg.Class = olMail Then
'Přidejte řádek pro každé pole ve zprávě, kterou chcete exportovat
excWks.Cells(intRow, 1) = olkMsg.Subject
excWks.Cells(intRow, 2) = olkMsg.ReceivedTime
excWks.Cells(intRow, 3) = GetSMTPAddress(olkMsg, intVersion)
excWks.Cells(intRow, 4) = olkMsg.Body
excWks.Cells(intRow, 5) = olkMsg.Importance
Tento komentář byl moderátorem webu minimalizován
Dobrý den, zkontrolujte prosím níže uvedený kód podle vašich potřeb:
Const MACRO_NAME = "Exportovat složky Outlooku do Excelu"

Sub ExportMain()

ExportToExcel "cesta_cílové_složky\A.xlsx", "váš_e-mailový_účet\složka\podsložka_1"

ExportToExcel "cesta_cílové_složky\B.xlsx", "váš_e-mailový_účet\složka\podsložka_2"

MsgBox "Proces dokončen.", vbInformation + vbOKOnly, MACRO_NAME

End Sub

Sub ExportToExcel(strFilename As String, StrFolderPath As String)

Ztlumit olkMsg jako objekt

Dim olkFld As Object

Dim excApp As Object

Dim excWkb As Object

Dim excWks As Object

Dim intRow As Integer

Dim intVersion As Integer

If strFilename <> "" Potom

If strFolderPath <> "" Potom

Nastavit olkFld = OpenOutlookFolder(strFolderPath)

If TypeName(olkFld) <> "Nothing" Then

intVersion = GetOutlookVersion()

Set excApp = CreateObject("Excel.Application")

Nastavit excWkb = excApp.Workbooks.Add()

Nastavit excWks = excWkb.ActiveSheet

'Zapište záhlaví sloupců aplikace Excel

S excWks

.Cells(1, 1) = "Předmět"

.Cells(1, 2) = "Tělo"

.Cells(1, 3) = "Přijato"

.Cells(1, 4) = "Od: (Jméno)"

.Cells(1, 5) = "Od: (Adresa)"

.Cells(1, 6) = "Od: (Typ)"

.Cells(1, 7) = "Komu: (Jméno)"

.Cells(1, 8) = "Komu: (adresa)"

.Cells(1, 9) = "Komu: (typ)"

.Cells(1; 10) = "CC: (Název)"

.Cells(1; 11) = "CC: (Adresa)"

.Cells(1; 12) = "CC: (Typ)"

.Cells(1, 13) = "BCC: (Název)"

.Cells(1, 14) = "BCC: (adresa)"

.Cells(1; 15) = "BCC: (Typ)"

.Cells(1, 16) = "Fakturační údaje"

.Cells(1, 17) = "Kategorie"

.Cells(1, 18) = "Důležité"

.Cells(1, 19) = "Ujeté kilometry"

.Cells(1, 20) = "Citlivost"

Konec s

intRow = 2

Pro každou olkMsg v olkFld.Items

„Exportujte pouze zprávy, nikoli potvrzení nebo žádosti o schůzku atd.

Pokud olkMsg.Class = olMail Then

'Přidejte řádek pro každé pole ve zprávě, kterou chcete exportovat

excWks.Cells(intRow, 1) = olkMsg.Subject

excWks.Cells(intRow, 2) = olkMsg.Body

excWks.Cells(intRow, 3) = olkMsg.ReceivedTime

excWks.Cells(intRow, 4) = olkMsg.SenderName

excWks.Cells(intRow, 5) = GetAddress(olkMsg.Sender, intVersion)

excWks.Cells(intRow, 6) = olkMsg.Sender.Type

excWks.Cells(intRow, 7) = GetRecipientsName(olkMsg, 1, 1, intVersion)

excWks.Cells(intRow, 8) = GetRecipientsName(olkMsg, 1, 2, intVersion)

excWks.Cells(intRow, 9) = GetRecipientsName(olkMsg, 1, 3, intVersion)

excWks.Cells(intRow, 10) = GetRecipientsName(olkMsg, 2, 1, intVersion)

excWks.Cells(intRow, 11) = GetRecipientsName(olkMsg, 2, 2, intVersion)

excWks.Cells(intRow, 12) = GetRecipientsName(olkMsg, 2, 3, intVersion)

excWks.Cells(intRow, 13) = GetRecipientsName(olkMsg, 3, 1, intVersion)

excWks.Cells(intRow, 14) = GetRecipientsName(olkMsg, 3, 2, intVersion)

excWks.Cells(intRow, 15) = GetRecipientsName(olkMsg, 3, 3, intVersion)

excWks.Cells(intRow, 16) = olkMsg.BillingInformation

excWks.Cells(intRow, 17) = olkMsg.Categories

excWks.Cells(intRow, 18) = olkMsg.Importance

excWks.Cells(intRow, 19) = olkMsg.Mileage

excWks.Cells(intRow, 20) = olkMsg.Sensitivity

intRow = intRow + 1

End If

další

Nastavte olkMsg = Nic

excWkb.SaveAs strFilename

excWkb.Zavřít

Jiný

MsgBox "Složka '" & strFolderPath & "' v ​​aplikaci Outlook neexistuje.", vbCritical + vbOKOnly, MACRO_NAME

End If

Jiný

MsgBox "Cesta ke složce byla prázdná.", vbCritical + vbOKOnly, MACRO_NAME

End If

Jiný

MsgBox "Název souboru byl prázdný.", vbCritical + vbOKOnly, MACRO_NAME

End If



Nastavte olkMsg = Nic

Nastavte olkFld = Nic

Nastavit excWks = nic

Nastavit excWkb = nic

Nastavit excApp = nic

End Sub



Veřejná funkce OpenOutlookFolder(strFolderPath As String) Jako Outlook.MAPIFolder

Dim arrFolders jako varianta

Dim varFolder As Variant

Dim bolBeyondRoot As Boolean

On Error Resume Next

If strFolderPath = "" Pak

Nastavte OpenOutlookFolder = Nic

Jiný

Dělat doleva(strFolderPath, 1) = "\"

strFolderPath = Right(strFolderPath, Len(strFolderPath) - 1)

Smyčka

arrFolders = Split(strFolderPath, "\")

Pro každý varFolder V arrFolders

Vyberte Case bolBeyondRoot

Případ nepravdivý

Nastavit OpenOutlookFolder = Outlook.Session.Folders(varFolder)

bolBeyondRoot = Pravda

Případ pravdivý

Nastavit OpenOutlookFolder = OpenOutlookFolder.Folders(varFolder)

Konec Vybrat

Pokud Err.Number <> 0 Pak

Nastavte OpenOutlookFolder = Nic

Ukončete pro

End If

další

End If

Při chybě GoTo 0

End Function



Funkce GetOutlookVersion() As Integer

Dim arrVer As Variant

arrVer = Split(Outlook.Version, ".")

GetOutlookVersion = arrVer(0)

End Function



Funkce SMTPEX(Entry As AddressEntry) As String

Dim olkPA jako Outlook.PropertyAccessor

On Error Resume Next

Nastavte olkPA = Entry.PropertyAccessor

SMTPEX = olkPA.GetProperty("http://schemas.microsoft.com/mapi/proptag/0x5D01001E")

Při chybě GoTo 0

Nastavte olkPA = nic

End Function



Funkce GetAddress(Entry As AddressEntry, intOutlookVersion As Integer) As String

Dim olkEnt jako objekt

On Error Resume Next

Vyberte Case intOutlookVersion

Případ je < 14

Pokud Entry.Type = "EX" Pak

GetAddress = SMTPEX (záznam)

Jiný

GetAddress = Entry.Address

End If

Case Else

If Entry.AddressEntryUserType = olExchangeUserAddressEntry Then

Nastavit olkEnt = Entry.GetExchangeUser

GetAddress = olkEnt.PrimarySmtpAddress

Jiný

GetAddress = Entry.Address

End If

Konec Vybrat

Při chybě GoTo 0

Nastavte olkEnt = Nic

End Function



Funkce GetRecipientsName(Item As MailItem, rcpType As Integer, Ret As Integer, intOutlookVersion As Integer) As String

Dim xRcp jako příjemce

Dim xNames As String

xNames = ""

Pro každý xRcp In Item.Recipients

If xRcp.Type = rcpType Then

Jestliže Ret = 1 Pak

If xNames = "" Pak

xNames = xRcp.Name

Jiný

xNames = xNames & "; " & xRcp.Name

End If

ElseIf Ret = 2 Then

If xNames = "" Pak

xNames = GetAddress(xRcp.AddressEntry, intOutlookVersion)

Jiný

xNames = xNames & "; " & GetAddress(xRcp.AddressEntry, intOutlookVersion)

End If

ElseIf Ret = 3 Then

If xNames = "" Pak

xNames = xRcp.AddressEntry.Type

Jiný

xNames = xNames & "; " & xRcp.AddressEntry.Type

End If

End If

ElseIf xRcp.Type = rcpType Then

Jestliže Ret = 1 Pak

If xNames = "" Pak

xNames = xRcp.Name

Jiný

xNames = xNames & "; " & xRcp.Name

End If

ElseIf Ret = 2 Then

If xNames = "" Pak

xNames = GetAddress(xRcp.AddressEntry, intOutlookVersion)

Jiný

xNames = xNames & "; " & GetAddress(xRcp.AddressEntry, intOutlookVersion)

End If

ElseIf Ret = 3 Then

If xNames = "" Pak

xNames = xRcp.AddressEntry.Type

Jiný

xNames = xNames & "; " & xRcp.AddressEntry.Type

End If

End If

ElseIf xRcp.Type = rcpType Then

Jestliže Ret = 1 Pak

If xNames = "" Pak

xNames = xRcp.Name

Jiný

xNames = xNames & "; " & xRcp.Name

End If

ElseIf Ret = 2 Then

If xNames = "" Pak

xNames = GetAddress(xRcp.AddressEntry, intOutlookVersion)

Jiný

xNames = xNames & "; " & GetAddress(xRcp.AddressEntry, intOutlookVersion)

End If

ElseIf Ret = 3 Then

If xNames = "" Pak

xNames = xRcp.AddressEntry.Type

Jiný

xNames = xNames & "; " & xRcp.AddressEntry.Type

End If

End If

End If

další

GetRecipientsName = xNames

End Function




Doufám, že to funguje pro vás.
Amanda
Tento komentář byl moderátorem webu minimalizován
V části ExporttoExcel můžete přidat tělo

'Zapište záhlaví sloupců aplikace Excel
S excWks
.Cells(1, 1) = "Předmět"
.Cells(1, 2) = "Přijato"
.Cells(1, 3) = "Odesílatel"
.Cells(1, 4) = "Tělo"
Konec s
intRow = 2
Pro každou olkMsg v olkFld.Items
„Exportujte pouze zprávy, nikoli potvrzení nebo žádosti o schůzku atd.
Pokud olkMsg.Class = olMail Then
'Přidejte řádek pro každé pole ve zprávě, kterou chcete exportovat
excWks.Cells(intRow, 1) = olkMsg.Subject
excWks.Cells(intRow, 2) = olkMsg.ReceivedTime
excWks.Cells(intRow, 3) = GetSMTPAddress(olkMsg, intVersion)
excWks.Cells(intRow, 4) = olkMsg.Body
intRow = intRow + 1
Tento komentář byl moderátorem webu minimalizován
Ahoj, doufám, že mi tady někdo pomůže, nemám prakticky žádné znalosti VB, ale zatím se mi podařilo tento skript zprovoznit.

Celkově mám však ve své doručené poště asi 1500 složek a podsložek a opravdu bych chtěl jednoduchý skript, který by exportoval všechny e-mailové adresy, na které jsem poslal, s předmětem a datem v samostatných sloupcích v Excelu.

Hledal jsem několik dní a zkoušel mnoho různých webů, ale nemohu získat žádný jiný kód, než je tento.


Je to, oč žádám, vůbec možné? Pokud ano, je tu někdo dostatečně laskavý a chytrý, aby mi pomohl se skriptem, který potřebuji?
Předpokládám, že to má něco společného s touto částí:


Sub ExportMain()

ExportToExcel "cesta_cílové_složky\A.xlsx", "váš_e-mailový_účet\složka\podsložka_1"

ExportToExcel "cesta_cílové_složky\B.xlsx", "váš_e-mailový_účet\složka\podsložka_2"

MsgBox "Proces dokončen.", vbInformation + vbOKOnly, MACRO_NAME

End Sub


Díky pokročilé
Tento komentář byl moderátorem webu minimalizován
Dobrý den,
Právě jsem spustil toto makro, které funguje dobře.
Chápu to ve výrazech
excWks.Cells(intRow, 1) = olkMsg.Subject
excWks.Cells(intRow, 2) = olkMsg.ReceivedTime
excWks.Cells(intRow, 3) = GetSMTPAddress(olkMsg, intVersion)

olkMsg.* a GetSMTPAddress(olkMsg, intVersion) extrahují obsah z aplikace Outlook.

Jaký argument použít k získání adresy, na kterou byla pošta odeslána?

Při použití Průvodce exportem aplikace Outlook je možné exportovat tuto adresu, takže předpokládám, že by to bylo možné provést prostřednictvím tohoto makra (s určitou úpravou).
Může někdo pomoci?

Pozdravy
Tento komentář byl moderátorem webu minimalizován
Spouštím toto makro, ale stále se mi zobrazuje chyba kompilace:

Uživatel=definovaný typ není definován

Na řádku 62 " Veřejná funkce OpenOutlookFolder(strFolderPath As String) Jako Outlook.MAPIFolder "

Cestu jsem již uvedl takto:

ExportToExcel "C:\Users\kudus\Documents\MailExportTest\f1\A.xlsx", "myname@mydomain.com\Inbox\Black Hat Webcast"
ExportToExcel "C:\Users\\Documekudus\Documents\MailExportTest\f2\B.xlsx", "myname@mydomain.com\Inbox\CPD\Kaplan Training"

Pro případ, že je to potřeba, používám Outlook 2016
Tento komentář byl moderátorem webu minimalizován
Opravil jsem to. V okně Visual Basic přejděte na Tools Reference - a pole pro "Microsoft Outlook 16.0 Object Library"

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í

Sociální sítě

Copyright © 2009 - www.extendoffice.com. | Všechna práva vyhrazena. Poháněno ExtendOffice. | |. | Sitemap
Microsoft a logo Office jsou ochranné známky nebo registrované ochranné známky společnosti Microsoft Corporation ve Spojených státech a / nebo jiných zemích.
Chráněno Sectigo SSL