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

Hogyan lehet exportálni az e-maileket több mappából / almappából az Excel kiemelkedő megvalósításához?

Ha egy mappát exportál az Importálás és exportálás varázslóval az Outlook programban, az nem támogatja a Tartalmazza az almappákat opció, ha a mappát CSV fájlba exportálja. Azonban meglehetősen időigényes és fárasztó az egyes mappák CSV-fájlba történő exportálása, majd manuális konvertálása Excel-munkafüzetekké. Itt ez a cikk bemutatja a VBA-t, amellyel több mappát és almappát gyorsan exportálhat Excel munkafüzetekbe.

Exportáljon több e-mailt több mappából / almappából az Excelbe a VBA segítségével

Office fül - Füles szerkesztés és böngészés engedélyezése az Office-ban, és a munka sokkal könnyebb ...
Kutools for Outlook - 100 hatékony speciális funkciót hoz a Microsoft Outlook programba
  • Auto CC / BCC szabályok szerint e-mail küldéskor; Automatikus továbbítás Több e-mail szabályok szerint; Autómatikus válasz csere szerver és további automatikus funkciók nélkül ...
  • BCC figyelmeztetés - mutasson üzenetet, amikor megpróbálja megválaszolni az összeset, ha az Ön e-mail címe szerepel a BCC listában; Emlékeztessen a hiányzó mellékletekre, és további funkciók emlékeztetnek ...
  • Válasz (összes) az összes melléklettel a levelezési beszélgetésben; Válaszoljon egyszerre sok e-mailt; Automatikus üdvözlet hozzáadása amikor válasz; Dátum és idő automatikus hozzáadása a tárgyhoz ...
  • Melléklet eszközök: Automatikus leválasztás, Összes tömörítése, Átnevezés, Automatikus mentés ... Gyorsjelentés, A kiválasztott levelek megszámlálása, Távolítsa el az ismétlődő leveleket és névjegyeket ...
  • Több mint 100 speciális funkcióval rendelkezik megoldja a legtöbb problémáját az Outlook 2021–2010 vagy az Office 365 programban. A teljes szolgáltatás 60 napos ingyenes próbaverzió.

nyíl kék jobb buborék Exportáljon több e-mailt több mappából / almappából az Excelbe a VBA segítségével

Kérjük, kövesse az alábbi lépéseket, ha több mappából vagy almappából szeretne exportálni e-maileket az Outlook VBA-val rendelkező Excel-munkafüzeteibe.

1. nyomja meg más + F11 gombokkal nyissa meg a Microsoft Visual Basic for Applications ablakot.

2. kettyenés betétlap > Modulok, majd illessze be a VBA kód alá az új modul ablakba.

VBA: E-mailek exportálása több mappából és almappából az Excelbe

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. Kérem, állítsa be a fenti VBA kódot.

(1) Cserélje ki rendeltetési_mappa_útvonal a fenti kódban a rendeltetési mappa mappájának elérési útjával az exportált munkafüzeteket menteni fogja, például C: \ Users \ DT168 \ Documents \ TEST.
(2) Cserélje le a fenti kódban a_email_accouny \ mappa \ almappa_1 és_email_accouny \ mappa \ almappa_2 nevet az almappák mappaútvonalaira, például Kelly @extendoffice.com \ Bejövő \ A és a Kelly @extendoffice.com \ Bejövő \ B

4. megnyomni a F5 vagy kattintson a gombra futás gombra a VBA futtatásához. Ezután kattintson a gombra OK gombra a megjelenő Outlook mappák exportálása Excel párbeszédpanelen. Lásd a képernyőképet:

Mostantól az összes megadott almappából vagy mappából származó e-maileket exportálják és mentik az Excel munkafüzetekbe.


nyíl kék jobb buborékKapcsolódó cikkek


Kutools for Outlook - 100 speciális funkciót hoz az Outlookba, és sokkal könnyebbé teszi a munkát!

  • Auto CC / BCC szabályok szerint e-mail küldéskor; Automatikus továbbítás Több e-mail egyedi; Autómatikus válasz csere szerver és további automatikus funkciók nélkül ...
  • BCC figyelmeztetés - üzenet megjelenítése, amikor megpróbál válaszolni az összesre ha az e-mail címed szerepel a BCC listában; Emlékeztessen a hiányzó mellékletekre, és további funkciók emlékeztetnek ...
  • Válasz (minden) az összes melléklettel az e-mail beszélgetésben; Válasz sok e-mailre másodpercek alatt; Automatikus üdvözlet hozzáadása amikor válasz; Dátum hozzáadása a tárgyhoz ...
  • Mellékleteszközök: Az összes levél összes mellékletének kezelése, Automatikus leválasztás, Tömörítsen mindent, Átnevezés, Összes mentése ... Gyorsjelentés, Számolja ki a kiválasztott leveleket...
  • Erőteljes levélszemét szokás szerint; Távolítsa el az ismétlődő leveleket és névjegyeket... Lehetővé teszi, hogy okosabban, gyorsabban és jobban végezze el az Outlook programot.
lövés kutools outlook kutools fül 1180x121
shot kutools outlook kutools plus tab 1180x121
 
A megjegyzések rendezése szerint
Hozzászólások (10)
Még nincs értékelés. Legyen Ön az első, aki értékel!
A weboldal moderátora ezt a megjegyzést minimalizálta
Hogyan érhetem el, hogy ez automatikusan visszatérjen az almappákba?
A weboldal moderátora ezt a megjegyzést minimalizálta
szia kedves, minden jól működik köszi de a törzs nincs exportálva, hogyan tudom exportálni az e-mail törzsét is, az excel fájl éppen megvan (Tárgy, Fogadott és Feladó), ha frissítesz vele, az megold egy óriási problémát üzletemben még egyszer köszönöm
A weboldal moderátora ezt a megjegyzést minimalizálta
Szia Montaser!
A VBA-szkript az Outlook exportálási funkcióján alapul, amely nem támogatja az üzenetek tartalmának exportálását az e-mailek levélmappából történő tömeges exportálásakor. Ezért ez a VBA-szkript sem tudja exportálni az üzenet tartalmát.
A weboldal moderátora ezt a megjegyzést minimalizálta
ez remekül működik, de van mód arra, hogy ne csak a fenti 4 mezőre vonatkozó adatokat adjuk hozzá, hanem mindazt, amit az Outlook PST-be exportálnak? Tárgytörzs Feladó: (Név) Feladó: (Cím) Feladó: (Típus) Címzett: (Név) Címzett: (Cím) Címzett: (Típus) CC: (Név) CC: (Cím) CC: (Típus) BCC: ( Név) BCC: (Cím) BCC: (Típus) Számlázási információ Kategóriák Fontosság Futás érzékenység

Megpróbáltam hozzáadni az "Importance" elemet, és működik, de hálás lennék, ha valaki megadná a kódot a többi mezőhöz. köszönöm!!
ExcWk-vel
.Cells(1, 1) = "Tárgy"
.Cells(1, 2) = "Fogadott"
.Cells(1, 3) = "Feladó"
.Cells(1, 4) = "törzs"
.Cells(1, 5) = "Fontos"
Vége
intRow = 2
Minden olkMsg In olkFld.Items
„Csak üzenetek exportálása, nyugták, időpont-kérések stb.
Ha olkMsg.Class = olMail Akkor
„Adjon hozzá egy sort az exportálni kívánt üzenet minden mezőjéhez
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
A weboldal moderátora ezt a megjegyzést minimalizálta
Szia! Kérjük, ellenőrizze az alábbi kódot igényeinek megfelelően:
Const MACRO_NAME = "Outlook mappák exportálása Excelbe"

AlexportMain()

ExportToExcel "célmappa_útvonala\A.xlsx", "saját_e-mail_fiók\mappa\almappa_1"

ExportToExcel "célmappa_útvonala\B.xlsx", "saját_e-mail_fiók\mappa\almappa_2"

MsgBox "A folyamat befejeződött.", vbInformation + vbOKOnly, MACRO_NAME

End Sub

Sub ExportToExcel (strFilename karakterláncként, strFolderPath karakterláncként)

Dim olkMsg As Object

Dim olkFld mint objektum

Dim excApp mint objektum

Dim excWkb mint objektum

Dim excWks As Object

Dim intRow As Integer

Dim intVersion As Integer

Ha strFilename <> "" Akkor

Ha strFolderPath <> "" Akkor

Set olkFld = OpenOutlookFolder(strFolderPath)

Ha TypeName(olkFld) <> "Semmi" Akkor

intVersion = GetOutlookVersion()

Set excApp = CreateObject("Excel.Application")

Set excWkb = excApp.Workbooks.Add()

Állítsa be az excWks = excWkb.ActiveSheet

Írjon Excel oszlopfejléceket

ExcWk-vel

.Cells(1, 1) = "Tárgy"

.Cells(1, 2) = "törzs"

.Cells(1, 3) = "Fogadott"

.Cells(1, 4) = "Feladó: (Név)"

.Cells(1, 5) = "Feladó: (Cím)"

.Cells(1, 6) = "Feladó: (Típus)"

.Cells(1, 7) = "Címzett: (Név)"

.Cells(1, 8) = "Címzett: (Cím)"

.Cells(1, 9) = "Címzett: (Típus)"

.Cells(1, 10) = "CC: (Név)"

.Cells(1, 11) = "CC: (Cím)"

.Cells(1, 12) = "CC: (Típus)"

.Cells(1, 13) = "BCC: (Név)"

.Cells(1, 14) = "BCC: (Cím)"

.Cells(1, 15) = "BCC: (Típus)"

.Cells(1, 16) = "Számlázási információk"

.Cells(1, 17) = "Kategóriák"

.Cells(1, 18) = "Fontos"

.Cells(1, 19) = "Kifutás"

.Cells(1, 20) = "Érzékenység"

Vége

intRow = 2

Minden olkMsg In olkFld.Items

„Csak üzenetek exportálása, nyugták, időpont-kérések stb.

Ha olkMsg.Class = olMail Akkor

„Adjon hozzá egy sort az exportálni kívánt üzenet minden mezőjéhez

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) = GetCím(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

Ha véget

Következő

Set olkMsg = Semmi

excWkb.SaveAs strFilename

excWkb.Close

Más

MsgBox "A "" és az strFolderPath & "" mappa nem létezik az Outlookban.", vbCritical + vbOKOnly, MACRO_NAME

Ha véget

Más

MsgBox "A mappa elérési útja üres volt.", vbCritical + vbOKOnly, MACRO_NAME

Ha véget

Más

MsgBox "A fájlnév üres volt.", vbCritical + vbOKOnly, MACRO_NAME

Ha véget



Set olkMsg = Semmi

Set olkFld = Semmi

Set excWks = Semmi

Set excWkb = Semmi

Set excApp = Semmi

End Sub



Nyilvános függvény OpenOutlookFolder(strFolderPath As String) mint Outlook.MAPIFolder

Dim arrFolders As Variant

Dim varFolder As Variant

Dim bolBeyondRoot As Boolean

On Error Resume Next

Ha strFolderPath = "" Akkor

Állítsa be az OpenOutlookFolder = Semmit

Más

Do While Left(strFolderPath, 1) = "\"

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

Hurok

arrFolders = Felosztás (strFolderPath, "\")

Minden varFolder In arrFolders

Válassza a Case bolBeyondRoot lehetőséget

Hamis eset

OpenOutlookFolder beállítása = Outlook.Session.Folders(varFolder)

bolBeyondRoot = Igaz

Igaz eset

OpenOutlookFolder beállítása = OpenOutlookFolder.Folders(varFolder)

Vége kiválasztása

Ha Err.Number <> 0 Akkor

Állítsa be az OpenOutlookFolder = Semmit

Kilépés

Ha véget

Következő

Ha véget

Hiba történt GoTo 0

end Function



A GetOutlookVersion() függvény egész számként

Dim arrVer As Variant

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

GetOutlookVersion = arrVer(0)

end Function



Funkció SMTPEX(Entry As AddressEntry) As String

Dim olkPA Outlook.PropertyAccessor néven

On Error Resume Next

Állítsa be: olkPA = Entry.PropertyAccessor

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

Hiba történt GoTo 0

Állítsa be az olkPA = Semmit

end Function



Függvény GetAddress(Entry As AddressEntry, intOutlookVersion As Integer) As String

Dim olkEnt As Object

On Error Resume Next

Válassza az Eset azOutlookVersion elemet

Az eset < 14

Ha Entry.Type = "EX" Akkor

GetAddress = SMTPEX (bejegyzés)

Más

GetAddress = Entry.Address

Ha véget

Más eset

Ha Entry.AddressEntryUserType = olExchangeUserAddressEntry akkor

Set olkEnt = Entry.GetExchangeUser

GetAddress = olkEnt.PrimarySmtpAddress

Más

GetAddress = Entry.Address

Ha véget

Vége kiválasztása

Hiba történt GoTo 0

Set olkEnt = Semmi

end Function



Függvény GetRecipientsName(Elem As MailItem, rcpType As Integer, Ret As Integer, intOutlookVersion As Integer) As String

Dim xRcp címzettként

Dim xNames As String

xNames = ""

Minden xRcp In Item.Recipients

Ha xRcp.Type = rcpType Akkor

Ha Ret = 1 Akkor

Ha xNames = "" Akkor

xNames = xRcp.Name

Más

xNames = xNames & "; " & xRcp.Name

Ha véget

ElseIf Ret = 2 Akkor

Ha xNames = "" Akkor

xNames = GetCím(xRcp.AddressEntry, intOutlookVersion)

Más

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

Ha véget

ElseIf Ret = 3 Akkor

Ha xNames = "" Akkor

xNames = xRcp.AddressEntry.Type

Más

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

Ha véget

Ha véget

ElseIf xRcp.Type = rcpType Akkor

Ha Ret = 1 Akkor

Ha xNames = "" Akkor

xNames = xRcp.Name

Más

xNames = xNames & "; " & xRcp.Name

Ha véget

ElseIf Ret = 2 Akkor

Ha xNames = "" Akkor

xNames = GetCím(xRcp.AddressEntry, intOutlookVersion)

Más

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

Ha véget

ElseIf Ret = 3 Akkor

Ha xNames = "" Akkor

xNames = xRcp.AddressEntry.Type

Más

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

Ha véget

Ha véget

ElseIf xRcp.Type = rcpType Akkor

Ha Ret = 1 Akkor

Ha xNames = "" Akkor

xNames = xRcp.Name

Más

xNames = xNames & "; " & xRcp.Name

Ha véget

ElseIf Ret = 2 Akkor

Ha xNames = "" Akkor

xNames = GetCím(xRcp.AddressEntry, intOutlookVersion)

Más

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

Ha véget

ElseIf Ret = 3 Akkor

Ha xNames = "" Akkor

xNames = xRcp.AddressEntry.Type

Más

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

Ha véget

Ha véget

Ha véget

Következő

GetRecipientsName = xNames

end Function




Remélem ez neked működik.
Amanda
A weboldal moderátora ezt a megjegyzést minimalizálta
Az ExporttoExcel almenüben hozzáadhatja a törzset

Írjon Excel oszlopfejléceket
ExcWk-vel
.Cells(1, 1) = "Tárgy"
.Cells(1, 2) = "Fogadott"
.Cells(1, 3) = "Feladó"
.Cells(1, 4) = "törzs"
Vége
intRow = 2
Minden olkMsg In olkFld.Items
„Csak üzenetek exportálása, nyugták, időpont-kérések stb.
Ha olkMsg.Class = olMail Akkor
„Adjon hozzá egy sort az exportálni kívánt üzenet minden mezőjéhez
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
A weboldal moderátora ezt a megjegyzést minimalizálta
Szia! Remélhetőleg valaki tud nekem segíteni, gyakorlatilag nem ismerem a VB-t, de eddig sikerült elérni, hogy ez a szkript működjön.

Összesen azonban körülbelül 1500 mappa és almappa van a beérkező levelem alatt, és nagyon szeretnék egy egyszerű szkriptet, amely exportálná az összes e-mail címet, amelyre a tárgysorral és a dátummal együtt az Excel külön oszlopaiba küldtem.

Napok óta keresgélek, és sok különböző webhelyet kipróbáltam, de ezen kívül egyetlen kódot sem tudok működni.


Egyáltalán lehetséges, amit kérek? Ha igen, van valaki, aki elég kedves és okos ahhoz, hogy segítsen a forgatókönyvben, amire szükségem van?
Feltételezem, hogy van valami köze ehhez a részhez:


AlexportMain()

ExportToExcel "célmappa_útvonala\A.xlsx", "saját_e-mail_fiók\mappa\almappa_1"

ExportToExcel "célmappa_útvonala\B.xlsx", "saját_e-mail_fiók\mappa\almappa_2"

MsgBox "A folyamat befejeződött.", vbInformation + vbOKOnly, MACRO_NAME

End Sub


Köszönet a fejlett
A weboldal moderátora ezt a megjegyzést minimalizálta
Szia,
Most futtattam ezt a makrót, ami jól működik.
Ezt megértem a kifejezésekben
excWks.Cells(intRow, 1) = olkMsg.Subject
excWks.Cells(intRow, 2) = olkMsg.ReceivedTime
excWks.Cells(intRow, 3) = GetSMTPAddress(olkMsg, intVersion)

az olkMsg.* és a GetSMTPAddress(olkMsg, intVersion) kivonja a dolgokat az Outlookból.

Mi az az argumentum, amellyel megkapjuk azt a címet, amelyre a levelet küldték?

Az Outlook Exportálási varázslójának használatakor lehetőség van ennek a címnek az exportálására, így feltételezem, hogy ez ezen a makrón keresztül is megtehető (némi módosítással).
Tud valaki segíteni?

Üdvözlettel
A weboldal moderátora ezt a megjegyzést minimalizálta
Futtatom ezt a makrót, de folyamatosan fordítási hibát kapok:

User=defined típus nincs megadva

A 62. sorban " Public Function OpenOutlookFolder(strFolderPath As String) As Outlook.MAPIFolder "

Az elérési utat a következőképpen már megadtam:

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"

Az Outlook 2016-ot használom, ha szükséges
A weboldal moderátora ezt a megjegyzést minimalizálta
Megjavítottam. A Visual Basic ablakban lépjen az Eszközök Referencia menüpontra, majd a „Microsoft Outlook 16.0 Object Library” mezőbe.

Még senki sem írt megjegyzést
Hagyja meg észrevételeit
Feladás vendégként
×
Értékeld ezt a bejegyzést:
0   Karakterek
Javasolt helyek

Kövess minket

Copyright © 2009 - www.extendoffice.com. | Minden jog fenntartva. Powered by ExtendOffice. | Oldaltérkép
A Microsoft és az Office logó a Microsoft Corporation védjegyei vagy bejegyzett védjegyei az Egyesült Államokban és / vagy más országokban.
Sectigo SSL védi