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

Cum se exportă e-mailuri din mai multe foldere / subfoldere pentru a excela în Outlook?

Când exportați un folder cu expertul Import și Export în Outlook, acesta nu acceptă Includeți subfoldere opțiune dacă exportați folderul în fișier CSV. Cu toate acestea, va fi destul de consumator de timp și de obositor să exportați fiecare folder în fișier CSV și apoi să îl convertiți manual în registrul de lucru Excel. Aici, acest articol va introduce un VBA pentru a exporta rapid mai multe foldere și subfoldere în registrele de lucru Excel.

Exportați mai multe e-mailuri din mai multe foldere / subfoldere în Excel cu VBA

Fila Office - Activați editarea și navigarea cu file în Office și faceți munca mult mai ușoară ...
Kutools pentru Outlook - aduce 100 de caracteristici avansate puternice în Microsoft Outlook
  • Auto CC / BCC prin reguli la trimiterea e-mailului; Auto înainte E-mailuri multiple după reguli; Răspuns automat fără server de schimb și mai multe funcții automate ...
  • Avertisment BCC - afișați mesajul atunci când încercați să răspundeți la toate dacă adresa dvs. de e-mail se află în lista BCC; Amintiți-vă când lipsesc atașamentele, și mai multe caracteristici de reamintire ...
  • Răspundeți (Toate) cu toate atașamentele în conversația prin poștă; Răspundeți la multe e-mailuri simultan; Adăugare automată felicitare când răspundeți; Adăugare automată a datei și orei în subiect ...
  • Instrumente de atașare: Detașare automată, Comprimare toate, Redenumire toate, Salvare automată toate ... Raport rapid, Numărați mesajele selectate, Eliminați mesajele și persoanele de contact duplicate ...
  • Mai mult de 100 de funcții avansate vor rezolva majoritatea problemelor tale în Outlook 2021 - 2010 sau Office 365. Caracteristici complete Probă gratuită de 60 de zile.

săgeată albastru dreapta balon Exportați mai multe e-mailuri din mai multe foldere / subfoldere în Excel cu VBA

Vă rugăm să urmați pașii de mai jos pentru a exporta e-mailuri din mai multe foldere sau subfoldere în registrele de lucru Excel cu VBA în Outlook.

1. presa Alt + F11 tastele pentru a deschide fereastra Microsoft Visual Basic pentru aplicații.

2. clic Insera > Module, și apoi lipiți mai jos codul VBA în noua fereastră a modulului.

VBA: exportați e-mailuri din mai multe foldere și subfoldere în 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. Vă rugăm să ajustați codul VBA de mai sus după cum aveți nevoie.

(1) Înlocuiți destinație_folder_path în codul de mai sus cu calea folderului folderului de destinație în care veți salva registrele de lucru exportate, cum ar fi C: \ Users \ DT168 \ Documents \ TEST.
(2) Înlocuiți your_email_accouny \ folder \ subfolder_1 și your_email_accouny \ folder \ subfolder_2 din codul de mai sus cu căile de folder ale subfolderelor din Outlook, cum ar fi Kelly @extendoffice.com \ Inbox \ A și Kelly @extendoffice.com \ Inbox \ B

4. apasă pe F5 tasta sau faceți clic pe Alerga pentru a rula acest VBA. Și apoi faceți clic pe OK butonul din fereastra de dialog Exportare dosare Outlook în Excel. Vedeți captura de ecran:

Și acum e-mailurile din toate subfolderele sau folderele specificate în codul VBA de mai sus sunt exportate și salvate în registrele de lucru Excel.


săgeată albastru dreapta balonArticole pe aceeaşi temă


Kutools pentru Outlook - aduce 100 de caracteristici avansate în Outlook și face munca mult mai ușoară!

  • Auto CC / BCC prin reguli la trimiterea e-mailului; Auto înainte Mai multe e-mailuri personalizate; Răspuns automat fără server de schimb și mai multe funcții automate ...
  • Avertisment BCC - afișați mesajul când încercați să răspundeți la toate dacă adresa dvs. de e-mail se află în lista BCC; Amintiți-vă când lipsesc atașamentele, și mai multe caracteristici de reamintire ...
  • Răspundeți (Toate) Cu toate atașamentele din conversația prin e-mail; Răspunde la multe e-mailuri în secunde; Adăugare automată felicitare când răspundeți; Adăugați o dată în subiect ...
  • Instrumente de atașament: gestionați toate atașamentele din toate e-mailurile, Detașare automată, Comprimă toate, Redenumiți toate, Salvați toate ... Raport rapid, Numărați mesajele selectate...
  • E-mailuri nedorite puternice după obicei; Eliminați e-mailurile și persoanele de contact duplicate... Vă permit să faceți mai inteligent, mai rapid și mai bine în Outlook.
shot kutools outlook kutools fila 1180x121
shot kutools outlook kutools plus fila 1180x121
 
Comentarii (10)
Încă nu există evaluări. Fii primul care evaluează!
Acest comentariu a fost redus la minimum de moderatorul de pe site
Cum fac ca acest lucru să recurgă automat în subdosare?
Acest comentariu a fost redus la minimum de moderatorul de pe site
Bună dragă, totul funcționează bine. Mulțumesc, dar corpul nu este exportat, cum pot exporta și corpul e-mailului, fișierul Excel are doar (Subiect, Primit și Expeditor), dacă mă poți actualiza cu el, va rezolva o problemă uriașă în afacerea mea, mulțumesc din nou
Acest comentariu a fost redus la minimum de moderatorul de pe site
Bună Montaser,
Scriptul VBA rulează pe baza funcției de export din Outlook, care nu acceptă exportul de conținut al mesajelor atunci când se exportă în bloc e-mailuri dintr-un folder de e-mail. Prin urmare, acest script VBA nu poate exporta și conținutul mesajului.
Acest comentariu a fost redus la minimum de moderatorul de pe site
Acest lucru funcționează excelent, dar există o modalitate de a adăuga informații nu doar pentru cele 4 câmpuri de mai sus, ci pentru tot ceea ce oferă exportul Outlook în PST? Corpul subiectului De la: (Nume) De la: (Adresă) De la: (Tip) Către: (Nume) Către: (Adresă) Către: (Tip) CC: (Nume) CC: (Adresă) CC: (Tip) BCC: ( Nume) BCC: (Adresă) BCC: (Tip) Informații de facturare Categorii Importanță Sensibilitate kilometraj

Am încercat să adaug „Importanță” și funcționează, dar aș aprecia dacă cineva ar putea furniza codul pentru celelalte câmpuri. mulțumesc!!
Cu excWks
.Cells(1, 1) = „Subiect”
.Cells(1, 2) = „Primit”
.Cells(1, 3) = „Expeditor”
.Cells(1, 4) = „Corps”
.Cells(1, 5) = „Importanță”
Se termina cu
intRow = 2
Pentru fiecare olkMsg în olkFld.Items
„Exportați doar mesaje, nu chitanțe sau solicitări de programare etc.
Dacă olkMsg.Class = olMail, atunci
„Adăugați un rând pentru fiecare câmp din mesajul pe care doriți să-l exportați
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
Acest comentariu a fost redus la minimum de moderatorul de pe site
Bună, vă rugăm să verificați codul de mai jos în funcție de nevoile dvs.:
Const MACRO_NAME = „Exportați folderele Outlook în Excel”

Sub ExportMain()

ExportToExcel „destination_folder_path\A.xlsx”, „your_email_accounty\folder\subfolder_1”

ExportToExcel „destination_folder_path\B.xlsx”, „your_email_accounty\folder\subfolder_2”

MsgBox „Procesul finalizat”, vbInformation + vbOKOnly, MACRO_NAME

End Sub

Sub ExportToExcel(strFilename ca șir, strFolderPath ca șir)

Dim olkMsg ca obiect

Dim olkFld ca obiect

Dim excApp ca obiect

Dim excWkb ca obiect

Dim excWks ca obiect

Dim intRow ca întreg

Dim intVersion ca întreg

Dacă strFilename <> "" Atunci

Dacă strFolderPath <> "" Atunci

Setați olkFld = OpenOutlookFolder(strFolderPath)

Dacă TypeName(olkFld) <> „Nimic”, atunci

intVersion = GetOutlookVersion()

Set excApp = CreateObject("Excel.Application")

Setați excWkb = excApp.Workbooks.Add()

Setați excWks = excWkb.ActiveSheet

„Scrieți anteturile de coloane Excel

Cu excWks

.Cells(1, 1) = „Subiect”

.Cells(1, 2) = „Corps”

.Cells(1, 3) = „Primit”

.Cells(1, 4) = „De la: (Nume)”

.Cells(1, 5) = „De la: (Adresă)”

.Cells(1, 6) = „De la: (Tip)”

.Cells(1, 7) = „Către: (Nume)”

.Cells(1, 8) = „Către: (Adresă)”

.Cells(1, 9) = „Către: (Tip)”

.Cells(1, 10) = „CC: (Nume)”

.Cells(1, 11) = „CC: (Adresă)”

.Cells(1, 12) = „CC: (Tip)”

.Cells(1, 13) = „BCC: (Nume)”

.Cells(1, 14) = „BCC: (Adresă)”

.Cells(1, 15) = „BCC: (Tip)”

.Cells(1, 16) = „Informații de facturare”

.Cells(1, 17) = „Categorii”

.Cells(1, 18) = „Importanță”

.Cells(1, 19) = „Kilometraj”

.Cells(1, 20) = „Sensibilitate”

Se termina cu

intRow = 2

Pentru fiecare olkMsg în olkFld.Items

„Exportați doar mesaje, nu chitanțe sau solicitări de programare etc.

Dacă olkMsg.Class = olMail, atunci

„Adăugați un rând pentru fiecare câmp din mesajul pe care doriți să-l exportați

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

Final, dacă

Pagina Următoare →

Set olkMsg = Nimic

excWkb.SaveAs strFilename

excWkb.Închidere

Altfel

MsgBox „Dosarul „” & strFolderPath & „” nu există în Outlook.”, vbCritical + vbOKOnly, MACRO_NAME

Final, dacă

Altfel

MsgBox „Calea folderului era goală.”, vbCritical + vbOKOnly, MACRO_NAME

Final, dacă

Altfel

MsgBox „Numele fișierului era gol.”, vbCritical + vbOKOnly, MACRO_NAME

Final, dacă



Set olkMsg = Nimic

Set olkFld = Nimic

Set excWks = Nimic

Set excWkb = Nimic

Set excApp = Nimic

End Sub



Funcție publică OpenOutlookFolder(strFolderPath ca șir) ca Outlook.MAPIFolder

Dim arrFolders ca variantă

Dim varFolder ca variantă

Dim bolBeyondRoot ca boolean

La data de eroare CV următoare

Dacă strFolderPath = "" Atunci

Setați OpenOutlookFolder = Nimic

Altfel

Efectuați în stânga (strFolderPath, 1) = "\"

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

Buclă

arrFolders = Split(strFolderPath, "\")

Pentru fiecare varFolder din arrFolders

Selectați Case bolBeyondRoot

Cazul Fals

Setați OpenOutlookFolder = Outlook.Session.Folders(varFolder)

bolBeyondRoot = Adevărat

Cazul Adevărat

Setați OpenOutlookFolder = OpenOutlookFolder.Folders(varFolder)

Selectare sfârșit

Dacă Err.Number <> 0 Atunci

Setați OpenOutlookFolder = Nimic

Ieșiți pentru

Final, dacă

Pagina Următoare →

Final, dacă

La eroare GoTo 0

Sfârşit Funcţia



Funcția GetOutlookVersion() ca întreg

Dim arrVer ca variantă

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

GetOutlookVersion = arrVer(0)

Sfârşit Funcţia



Funcția SMTPEX(Entry As AddressEntry) As String

Dim olkPA ca Outlook.PropertyAccessor

La data de eroare CV următoare

Set olkPA = Entry.PropertyAccessor

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

La eroare GoTo 0

Set olkPA = Nimic

Sfârşit Funcţia



Funcția GetAddress(Entry As AddressEntry, intOutlookVersion As Integer) As String

Dim olkEnt ca obiect

La data de eroare CV următoare

Selectați Case inOutlookVersion

Cazul este < 14

Dacă Entry.Type = "EX" Atunci

GetAddress = SMTPEX(Intrare)

Altfel

GetAddress = Intrare.Adresă

Final, dacă

Alt caz

Dacă Entry.AddressEntryUserType = olExchangeUserAddressEntry, atunci

Set olkEnt = Entry.GetExchangeUser

GetAddress = olkEnt.PrimarySmtpAddress

Altfel

GetAddress = Intrare.Adresă

Final, dacă

Selectare sfârșit

La eroare GoTo 0

Set olkEnt = Nimic

Sfârşit Funcţia



Funcția GetRecipientsName(Element ca MailItem, rcpType Ca Integer, Ret Ca Integer, intOutlookVersion Ca Integer) Ca șir

Dim xRcp ca destinatar

Dim xNames ca șir

xNames = ""

Pentru fiecare xRcp din articol.Destinatari

Dacă xRcp.Type = rcpType Atunci

Dacă Ret = 1 Atunci

Dacă xNames = "" Atunci

xNames = xRcp.Name

Altfel

xNames = xNames & "; " & xRcp.Name

Final, dacă

ElseIf Ret = 2 Atunci

Dacă xNames = "" Atunci

xNames = GetAddress(xRcp.AddressEntry, intOutlookVersion)

Altfel

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

Final, dacă

ElseIf Ret = 3 Atunci

Dacă xNames = "" Atunci

xNames = xRcp.AddressEntry.Type

Altfel

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

Final, dacă

Final, dacă

ElseIf xRcp.Type = rcpType Atunci

Dacă Ret = 1 Atunci

Dacă xNames = "" Atunci

xNames = xRcp.Name

Altfel

xNames = xNames & "; " & xRcp.Name

Final, dacă

ElseIf Ret = 2 Atunci

Dacă xNames = "" Atunci

xNames = GetAddress(xRcp.AddressEntry, intOutlookVersion)

Altfel

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

Final, dacă

ElseIf Ret = 3 Atunci

Dacă xNames = "" Atunci

xNames = xRcp.AddressEntry.Type

Altfel

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

Final, dacă

Final, dacă

ElseIf xRcp.Type = rcpType Atunci

Dacă Ret = 1 Atunci

Dacă xNames = "" Atunci

xNames = xRcp.Name

Altfel

xNames = xNames & "; " & xRcp.Name

Final, dacă

ElseIf Ret = 2 Atunci

Dacă xNames = "" Atunci

xNames = GetAddress(xRcp.AddressEntry, intOutlookVersion)

Altfel

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

Final, dacă

ElseIf Ret = 3 Atunci

Dacă xNames = "" Atunci

xNames = xRcp.AddressEntry.Type

Altfel

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

Final, dacă

Final, dacă

Final, dacă

Pagina Următoare →

GetRecipientsName = xNames

Sfârşit Funcţia




Sper că acest lucru funcționează pentru dvs.
Amanda
Acest comentariu a fost redus la minimum de moderatorul de pe site
În sub ExporttoExcel puteți adăuga corpul

„Scrieți anteturile de coloane Excel
Cu excWks
.Cells(1, 1) = „Subiect”
.Cells(1, 2) = „Primit”
.Cells(1, 3) = „Expeditor”
.Cells(1, 4) = „Corps”
Se termina cu
intRow = 2
Pentru fiecare olkMsg în olkFld.Items
„Exportați doar mesaje, nu chitanțe sau solicitări de programare etc.
Dacă olkMsg.Class = olMail, atunci
„Adăugați un rând pentru fiecare câmp din mesajul pe care doriți să-l exportați
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
Acest comentariu a fost redus la minimum de moderatorul de pe site
Salut, sper că cineva mă poate ajuta aici, practic nu am cunoștințe despre VB, dar am reușit să fac acest script să funcționeze pentru mine până acum.

Cu toate acestea, am în total aproximativ 1500 de foldere și subfoldere sub căsuța de e-mail și mi-ar plăcea un script simplu pentru a exporta toate adresele de e-mail la care am trimis-o cu linia de subiect și data pe coloane separate în Excel.

Am căutat zile întregi și am încercat multe site-uri diferite, dar nu pot obține niciun cod să funcționeze în afară de acesta.


Este chiar posibil ceea ce cer? Dacă da, există cineva destul de amabil și de inteligent să mă ajute cu scenariul de care am nevoie?
Presupun că are ceva de-a face cu această parte:


Sub ExportMain()

ExportToExcel „destination_folder_path\A.xlsx”, „your_email_accounty\folder\subfolder_1”

ExportToExcel „destination_folder_path\B.xlsx”, „your_email_accounty\folder\subfolder_2”

MsgBox „Procesul finalizat”, vbInformation + vbOKOnly, MACRO_NAME

End Sub


Mulțumesc în avansat
Acest comentariu a fost redus la minimum de moderatorul de pe site
Bună,
Tocmai am rulat această macro care funcționează bine.
Înțeleg asta în expresii
excWks.Cells(intRow, 1) = olkMsg.Subject
excWks.Cells(intRow, 2) = olkMsg.ReceivedTime
excWks.Cells(intRow, 3) = GetSMTPAddress(olkMsg, intVersion)

olkMsg.* și GetSMTPAddress(olkMsg, intVersion) extrag lucruri din Outlook.

Care este argumentul de utilizat pentru a obține adresa la care a fost trimis e-mailul?

Când utilizați Expertul de export din Outlook, este posibil să exportați această adresă, așa că presupun că ar fi posibil să o faceți prin această macrocomandă (cu unele modificări).
Poate cineva ajuta?

În ceea ce priveşte
Acest comentariu a fost redus la minimum de moderatorul de pe site
Rulez această macrocomandă, dar continui să primesc eroare de compilare:

Utilizator=tip definit nu este definit

Pe linia 62 " Funcția publică OpenOutlookFolder(strFolderPath As String) As Outlook.MAPIFolder "

Am specificat deja calea după cum urmează:

ExportToExcel „C:\Utilizatori\kudus\Documents\MailExportTest\f1\A.xlsx”, „numele meu@domeniulmeu.com\Inbox\Black Hat Webcast”
ExportToExcel „C:\Utilizatori\\Documekudus\Documents\MailExportTest\f2\B.xlsx”, „numele meu@domeniulmeu.com\Inbox\CPD\Kaplan Training”

Folosesc Outlook 2016 în cazul în care este necesar
Acest comentariu a fost redus la minimum de moderatorul de pe site
L-am reparat. Din fereastra de bază vizuală, accesați Instrumente Referință - și caseta pentru „Microsoft Outlook 16.0 Object Library”

Nu există comentarii postate aici încă
Lăsa comentarii
Postare ca invitat
×
Evaluează această postare:
0   Caractere
Locații sugerate

Urmărește-ne

Copyright © 2009 - www.extendoffice.com. | Toate drepturile rezervate. Cu sprijinul ExtendOffice. | Harta site-ului
Microsoft și sigla Office sunt mărci comerciale sau mărci comerciale înregistrate ale Microsoft Corporation în Statele Unite și / sau în alte țări.
Protejat de Sectigo SSL