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

Kako izvoziti e-pošto iz več map / podmap v Excel v Outlooku?

Pri izvozu mape s čarovnikom za uvoz in izvoz v Outlooku ne podpira datoteke Vključi podmape možnost, če mapo izvozite v datoteko CSV. Izvažanje vsake mape v datoteko CSV in nato ročno pretvorbo v Excelov delovni zvezek bo precej zamudno in dolgočasno. Tu bo ta članek predstavil VBA za hiter izvoz več map in podmap v Excelove delovne zvezke.

Izvozite več e-poštnih sporočil iz več map / podmap v Excel z VBA

Kartica Office - omogočite urejanje in brskanje z zavihki v storitvi Office ter olajšajte delo ...
Kutools za Outlook - prinaša 100 zmogljivih naprednih funkcij v Microsoft Outlook
  • Samodejno CC / BCC po pravilih pri pošiljanju e-pošte; Samodejno posredovanje naprej Več e-poštnih sporočil po pravilih; Samodejni odgovor brez strežnika za izmenjavo in več samodejnih funkcij ...
  • Opozorilo pred BCC - prikaže sporočilo, ko poskušate odgovoriti na vse, če je vaš poštni naslov na seznamu BCC; Opomni, ko manjkajo priloge, in več opomnikov ...
  • Odgovori (vsi) z vsemi prilogami v pogovoru po pošti; Odgovori na več e-poštnih sporočil hkrati; Samodejno dodaj pozdrav ko odgovor; Samodejno dodaj datum in čas v zadevo ...
  • Orodja za pritrditev: Samodejno loči, Stisni vse, Preimenuj vse, Samodejno shrani vse ... Hitro poročilo, Preštej izbrano pošto, Odstranitev podvojenih e-poštnih sporočil in stikov ...
  • Več kot 100 naprednih funkcij bo rešiti večino svojih težav v Outlooku 2010-2019 in 365. Polne funkcije 60-dnevnega brezplačnega preskusa.

puščica modri desni mehurček Izvozite več e-poštnih sporočil iz več map / podmap v Excel z VBA

Sledite spodnjim korakom za izvoz e-pošte iz več map ali podmap v Excelove delovne zvezke z VBA v Outlooku.

1. Pritisnite druga + F11 za odpiranje okna Microsoft Visual Basic for Applications.

2. klik Vstavi > Moduliin nato prilepite pod kodo VBA v novo okno modula.

VBA: izvozite e-pošto iz več map in podmap v 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. Po potrebi prilagodite zgornjo kodo VBA.

(1) Zamenjajte path_folder_path v zgornji kodi s potjo do mape do ciljne mape boste izvožene delovne zvezke shranili, na primer C: \ Users \ DT168 \ Documents \ TEST.
(2) Zamenjajte your_email_accouny \ folder \ subfolder_1 in your_email_accouny \ folder \ subfolder_2 v zgornji kodi s potmi map v podmape v Outlooku, na primer Kelly @extendoffice.com \ Prejeto \ A in Kelly @extendoffice.com \ Prejeto \ B

4. Pritisnite F5 ali kliknite Run za zagon tega VBA. In nato kliknite OK v pojavnem pogovornem oknu Izvozi mape Outlook v Excel. Oglejte si posnetek zaslona:

Zdaj se e-poštna sporočila iz vseh določenih podmap ali map v zgornji kodi VBA izvozijo in shranijo v Excelove delovne zvezke.


puščica modri desni mehurčekPovezani članki


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 (10)
Ocene še ni. Bodite prvi in ​​ocenite!
Ta komentar je moderator na spletnem mestu minimiziral
Kako dosežem, da se to samodejno vrne v podmape?
Ta komentar je moderator na spletnem mestu minimiziral
zdravo draga, vse dobro deluje, hvala lepa, vendar telo ni izvoženo, kako lahko izvozim tudi telo e-pošte, excel datoteka ima pravkar (Zadeva, Prejeto in Pošiljatelj), če me lahko posodobiš z njo, bo rešil veliko zadevo v mojem poslu še enkrat najlepša hvala
Ta komentar je moderator na spletnem mestu minimiziral
Živjo Montaser,
Skript VBA se izvaja na podlagi Outlookove funkcije izvoza, ki ne podpira izvažanja vsebine sporočil pri množičnem izvozu e-pošte iz poštne mape. Zato tudi ta skript VBA ne more izvoziti vsebine sporočila.
Ta komentar je moderator na spletnem mestu minimiziral
to deluje odlično, toda ali obstaja način za dodajanje informacij ne samo za 4 zgornja polja, ampak za vse, kar daje izvoz Outlook v PST? Telo predmeta Od: (Ime) Od: (Naslov) Od: (Vrsta) Do: (Ime) Do: (Naslov) Do: (Vrsta) CC: (Ime) CC: (Naslov) CC: (Vrsta) BCC: ( Ime) BCC: (Naslov) BCC: (Vrsta) Podatki o obračunu Kategorije Pomen Prevoženi kilometri Občutljivost

Poskušal sem dodati "Pomembnost" in deluje, vendar bi bil hvaležen, če bi lahko kdo zagotovil kodo za druga polja. Hvala vam!!
Z excWks
.Cells(1, 1) = "Zadeva"
.Cells(1, 2) = "Prejeto"
.Cells(1, 3) = "Pošiljatelj"
.Cells(1, 4) = "telo"
.Cells(1, 5) = "Pomen"
Končaj s
intRow = 2
Za vsako olkMsg v olkFld.Items
»Izvozite samo sporočila, ne potrdil ali zahtev za sestanke itd.
Če je olkMsg.Class = olMail Potem
»Dodajte vrstico za vsako polje v sporočilu, ki ga želite izvoziti
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.Pomen
Ta komentar je moderator na spletnem mestu minimiziral
Pozdravljeni, preverite spodnjo kodo glede na vaše potrebe:
Const MACRO_NAME = "Izvozi Outlookove mape v 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 "Proces je končan.", vbInformation + vbOKOnly, MACRO_NAME

End Sub

Sub ExportToExcel(strFilename kot niz, strFolderPath kot niz)

Zatemni olkMsg kot predmet

Zatemni olkFld kot objekt

Zatemni excApp kot predmet

Dim excWkb kot objekt

Dim excWks kot objekt

Dim intRow kot celo število

Dim intVersion kot celo število

Če strFilename <> "" Potem

Če strFolderPath <> "" Potem

Nastavi olkFld = OpenOutlookFolder(strFolderPath)

Če TypeName(olkFld) <> "Nič" Potem

intVersion = GetOutlookVersion()

Nastavi excApp = CreateObject("Excel.Application")

Nastavi excWkb = excApp.Workbooks.Add()

Nastavite excWks = excWkb.ActiveSheet

»Napišite glave stolpcev Excel

Z excWks

.Cells(1, 1) = "Zadeva"

.Cells(1, 2) = "telo"

.Cells(1, 3) = "Prejeto"

.Cells(1, 4) = "Od: (Ime)"

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

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

.Cells(1, 7) = "Za: (Ime)"

.Cells(1, 8) = "Za: (naslov)"

.Cells(1, 9) = "Za: (Vrsta)"

.Cells(1, 10) = "CC: (Ime)"

.Cells(1, 11) = "CC: (Naslov)"

.Cells(1, 12) = "CC: (Vrsta)"

.Cells(1, 13) = "BCC: (Ime)"

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

.Cells(1, 15) = "BCC: (Vrsta)"

.Cells(1, 16) = "Informacije za obračun"

.Cells(1, 17) = "Kategorije"

.Cells(1, 18) = "Pomen"

.Cells(1, 19) = "Prevoženi kilometri"

.Cells(1, 20) = "Občutljivost"

Končaj s

intRow = 2

Za vsako olkMsg v olkFld.Items

»Izvozite samo sporočila, ne potrdil ali zahtev za sestanke itd.

Če je olkMsg.Class = olMail Potem

»Dodajte vrstico za vsako polje v sporočilu, ki ga želite izvoziti

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.Cells

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

excWks.Cells(intRow, 19) = olkMsg.Prevoženi kilometri

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

intRow = intRow + 1

Konec Če

Naslednji

Nastavite olkMsg = Nič

excWkb.SaveAs strFilename

excWkb.Zapri

Else

MsgBox "Mapa '" & strFolderPath & "' ne obstaja v Outlooku.", vbCritical + vbOKOnly, MACRO_NAME

Konec Če

Else

MsgBox "Pot mape je bila prazna.", vbCritical + vbOKOnly, MACRO_NAME

Konec Če

Else

MsgBox "Ime datoteke je bilo prazno.", vbCritical + vbOKOnly, MACRO_NAME

Konec Če



Nastavite olkMsg = Nič

Nastavite olkFld = Nič

Nastavite excWks = Nič

Nastavite excWkb = Nič

Nastavite excApp = Nič

End Sub



Javna funkcija OpenOutlookFolder(strFolderPath kot niz) kot Outlook.MAPIFolder

Dim arrFolders kot različica

Dim varFolder kot različica

Dim bolBeyondRoot Kot Boolean

On Error Resume Next

Če je strFolderPath = "" Potem

Nastavite OpenOutlookFolder = Nič

Else

Naredi, medtem ko je levo(strFolderPath, 1) = "\"

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

Zanka

arrFolders = Split(strFolderPath, "\")

Za vsako varFolder v arrFolders

Izberite Case bolBeyondRoot

Primer napačen

Nastavite OpenOutlookFolder = Outlook.Session.Folders(varFolder)

bolBeyondRoot = Res

Res je

Nastavi OpenOutlookFolder = OpenOutlookFolder.Folders(varFolder)

Konec Izberi

Če je Err.Number <> 0 Potem

Nastavite OpenOutlookFolder = Nič

Izhod za

Konec Če

Naslednji

Konec Če

Ob napaki Pojdi na 0

End Function



Funkcija GetOutlookVersion() kot celo število

Dim arrVer kot različica

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

GetOutlookVersion = arrVer(0)

End Function



Funkcija SMTPEX(Entry As AddressEntry) Kot niz

Dim olkPA kot Outlook.PropertyAccessor

On Error Resume Next

Nastavite olkPA = Entry.PropertyAccessor

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

Ob napaki Pojdi na 0

Nastavite olkPA = Nič

End Function



Funkcija GetAddress(Vnos kot AddressEntry, intOutlookVersion kot celo število) Kot niz

Zatemnjen kot predmet

On Error Resume Next

Izberite Case intOutlookVersion

Primer je < 14

Če Entry.Type = "EX" Potem

GetAddress = SMTPEX (vnos)

Else

GetAddress = Vnos.Naslov

Konec Če

Drugi primer

Če Entry.AddressEntryUserType = olExchangeUserAddressEntry, potem

Nastavite olkEnt = Entry.GetExchangeUser

GetAddress = olkEnt.PrimarySmtpAddress

Else

GetAddress = Vnos.Naslov

Konec Če

Konec Izberi

Ob napaki Pojdi na 0

Nastavite olkEnt = Nič

End Function



Funkcija GetRecipientsName(Item kot MailItem, rcpType kot celo število, Ret kot celo število, intOutlookVersion kot celo število) kot niz

Dim xRcp kot prejemnik

Dim xNames kot niz

xNames = ""

Za vsak xRcp In Item.Recipients

Če je xRcp.Type = rcpType Potem

Če je Ret = 1 Potem

Če je xNames = "" Potem

xImena = xRcp.Ime

Else

xNames = xNames & "; " & xRcp.Name

Konec Če

ElseIf Ret = 2 Potem

Če je xNames = "" Potem

xImena = GetAddress(xRcp.AddressEntry, intOutlookVersion)

Else

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

Konec Če

ElseIf Ret = 3 Potem

Če je xNames = "" Potem

xImena = xRcp.AddressEntry.Type

Else

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

Konec Če

Konec Če

ElseIf xRcp.Type = rcpType Potem

Če je Ret = 1 Potem

Če je xNames = "" Potem

xImena = xRcp.Ime

Else

xNames = xNames & "; " & xRcp.Name

Konec Če

ElseIf Ret = 2 Potem

Če je xNames = "" Potem

xImena = GetAddress(xRcp.AddressEntry, intOutlookVersion)

Else

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

Konec Če

ElseIf Ret = 3 Potem

Če je xNames = "" Potem

xImena = xRcp.AddressEntry.Type

Else

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

Konec Če

Konec Če

ElseIf xRcp.Type = rcpType Potem

Če je Ret = 1 Potem

Če je xNames = "" Potem

xImena = xRcp.Ime

Else

xNames = xNames & "; " & xRcp.Name

Konec Če

ElseIf Ret = 2 Potem

Če je xNames = "" Potem

xImena = GetAddress(xRcp.AddressEntry, intOutlookVersion)

Else

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

Konec Če

ElseIf Ret = 3 Potem

Če je xNames = "" Potem

xImena = xRcp.AddressEntry.Type

Else

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

Konec Če

Konec Če

Konec Če

Naslednji

GetRecipientsName = xNames

End Function




Upam, da to dela za vas.
Amanda
Ta komentar je moderator na spletnem mestu minimiziral
V podnožju ExporttoExcel lahko dodate telo

»Napišite glave stolpcev Excel
Z excWks
.Cells(1, 1) = "Zadeva"
.Cells(1, 2) = "Prejeto"
.Cells(1, 3) = "Pošiljatelj"
.Cells(1, 4) = "telo"
Končaj s
intRow = 2
Za vsako olkMsg v olkFld.Items
»Izvozite samo sporočila, ne potrdil ali zahtev za sestanke itd.
Če je olkMsg.Class = olMail Potem
»Dodajte vrstico za vsako polje v sporočilu, ki ga želite izvoziti
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
Ta komentar je moderator na spletnem mestu minimiziral
Živjo, upam, da mi lahko kdo pomaga tukaj, saj praktično nimam znanja o VB, vendar mi je uspelo ta skript do zdaj delati zame.

Vendar imam v svojem nabiralniku skupaj okoli 1500 map in podmap in resnično bi želel preprost skript za izvoz vseh e-poštnih naslovov, na katere sem poslal, z zadevo in datumom v ločenih stolpcih v Excelu.

Iskal sem več dni in preizkusil veliko različnih spletnih mest, vendar ne morem doseči nobene kode, ki bi delovala razen te.


Je to, za kar prosim, sploh mogoče? Če je tako, je kdo dovolj prijazen in pameten, da bi mi pomagal pri scenariju, ki ga potrebujem?
Predvidevam, da ima nekaj opraviti s tem delom:


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 "Proces je končan.", vbInformation + vbOKOnly, MACRO_NAME

End Sub


Hvala v naprej
Ta komentar je moderator na spletnem mestu minimiziral
Hi,
Pravkar sem zagnal ta makro, ki dobro deluje.
To razumem v izrazih
excWks.Cells(intRow, 1) = olkMsg.Subject
excWks.Cells(intRow, 2) = olkMsg.ReceivedTime
excWks.Cells(intRow, 3) = GetSMTPAddress(olkMsg, intVersion)

olkMsg.* in GetSMTPAddress(olkMsg, intVersion) izvlečeta stvari iz Outlooka.

Kateri argument je treba uporabiti za pridobitev naslova, na katerega je bila pošta poslana?

Pri uporabi čarovnika za izvoz v Outlooku je ta naslov mogoče izvoziti, zato predvidevam, da bi bilo to mogoče narediti s tem makrom (z nekaj spremembami).
Ali lahko kdo pomaga?

S spoštovanjem
Ta komentar je moderator na spletnem mestu minimiziral
Zaženem ta makro, vendar nenehno dobivam napako pri prevajanju:

Uporabnik=definirana vrsta ni definirana

V vrstici 62 "Javna funkcija OpenOutlookFolder(strFolderPath kot niz) kot Outlook.MAPIFolder"

Pot sem že določil takole:

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"

Uporabljam Outlook 2016, če je to potrebno
Ta komentar je moderator na spletnem mestu minimiziral
Popravil sem. V vizualnem osnovnem oknu pojdite na Orodja Referenca - in polje za "Microsoft Outlook 16.0 Object Library"

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