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

Come esportare le e-mail da più cartelle / sottocartelle per eccellere in Outlook?

Quando si esporta una cartella con la procedura guidata di importazione ed esportazione in Outlook, non supporta l'estensione Includere sottocartelle opzione se esporti la cartella in un file CSV. Tuttavia, sarà piuttosto dispendioso in termini di tempo e noioso esportare ciascuna cartella in un file CSV e quindi convertirla manualmente nella cartella di lavoro di Excel. Qui, questo articolo introdurrà un VBA per esportare rapidamente più cartelle e sottocartelle in cartelle di lavoro di Excel a proprio agio.

Esporta più email da più cartelle / sottocartelle in Excel con VBA

Scheda Office: abilita la modifica a schede e la navigazione in Office e semplifica notevolmente il lavoro ...
Kutools for Outlook: porta 100 potenti funzionalità avanzate a Microsoft Outlook
  • Auto CC / BCC dalle regole durante l'invio di e-mail; Avanzamento automatico Email multiple per regole; Risposta automatica senza server di scambio e più funzioni automatiche ...
  • Avviso BCC - mostra il messaggio quando provi a rispondere a tutti se il tuo indirizzo di posta è nella lista BCC; Ricorda quando mancano allegatie altre funzioni di promemoria ...
  • Rispondi (tutti) con tutti gli allegati nella conversazione di posta; Rispondi a molte email contemporaneamente; Aggiunta automatica di saluto quando rispondi; Aggiungi automaticamente data e ora all'oggetto ...
  • Strumenti per gli allegati: Scollegamento automatico, Comprimi tutto, Rinomina tutto, Salva tutto automaticamente ... Rapporto rapido, Conta le email selezionate, Rimuovi messaggi e contatti duplicati ...
  • Più di 100 funzioni avanzate lo faranno risolvi la maggior parte dei tuoi problemi in Outlook 2010-2019 e 365. Funzionalità complete Prova gratuita di 60 giorni.

freccia blu freccia destra Esporta più email da più cartelle / sottocartelle in Excel con VBA

Seguire i passaggi seguenti per esportare e-mail da più cartelle o sottocartelle in cartelle di lavoro Excel con VBA in Outlook.

1. Stampa altro + F11 tasti per aprire la finestra di Microsoft Visual Basic, Applications Edition.

2. Clic inserire > Modulo, quindi incolla sotto il codice VBA nella nuova finestra del modulo.

VBA: esporta e-mail da più cartelle e sottocartelle in 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. Regola il codice VBA sopra di cui hai bisogno.

(1) Sostituisci percorso_cartella_destinazione nel codice sopra con il percorso della cartella della cartella di destinazione in cui salverai le cartelle di lavoro esportate, ad esempio C: \ Users \ DT168 \ Documents \ TEST.
(2) Sostituisci your_email_accouny \ folder \ subfolder_1 e your_email_accouny \ folder \ subfolder_2 nel codice sopra con i percorsi delle cartelle delle sottocartelle in Outlook, come Kelly @extendoffice.com \ Inbox \ A e Kelly @extendoffice.com \ Inbox \ B

4. premi il F5 o fare clic su Correre pulsante per eseguire questo VBA. Quindi fare clic su OK pulsante nella finestra di dialogo Esporta cartelle di Outlook in Excel. Vedi screenshot:

E ora le e-mail da tutte le sottocartelle o cartelle specificate nel codice VBA sopra vengono esportate e salvate nelle cartelle di lavoro di Excel.


freccia blu freccia destraArticoli Correlati


Kutools for Outlook: porta 100 funzionalità avanzate in Outlook e semplifica notevolmente il lavoro!

  • Auto CC / BCC dalle regole durante l'invio di e-mail; Avanzamento automatico Email multiple personalizzate; Risposta automatica senza server di scambio e più funzioni automatiche ...
  • Avviso BCC - mostra il messaggio quando provi a rispondere a tutti se il tuo indirizzo e-mail è nell'elenco BCC; Ricorda quando mancano allegatie altre funzioni di promemoria ...
  • Rispondi (tutti) con tutti gli allegati nella conversazione di posta; Rispondi a molte email in secondi; Aggiunta automatica di saluto quando rispondi; Aggiungi la data all'oggetto ...
  • Strumenti per gli allegati: gestisci tutti gli allegati in tutti i messaggi, Scollegamento automatico, Comprimi tutto, Rinomina tutto, Salva tutto... Rapporto rapido, Conta le email selezionate...
  • E-mail spazzatura potenti per abitudine; Rimuovi messaggi e contatti duplicati... Consentono di fare in modo più intelligente, veloce e migliore in Outlook.
girato kutools outlook scheda kutools 1180x121
girato kutools outlook kutools plus tab 1180x121
 
Commenti (10)
Ancora nessuna valutazione. Puoi essere il primo a votare!
Questo commento è stato fatto dal moderatore sul sito
Come posso fare in modo che questo si ricorra automaticamente nelle sottocartelle?
Questo commento è stato fatto dal moderatore sul sito
ciao caro, tutto funziona bene molte grazie ma il corpo non viene esportato, come posso esportare anche il corpo dell'email, il file excel ha solo (oggetto, ricevuto e mittente), se puoi aggiornarmi con esso risolverà un problema enorme nel mio lavoro molte grazie ancora
Questo commento è stato fatto dal moderatore sul sito
Ciao Montaser,
Lo script VBA viene eseguito in base alla funzione Esporta di Outlook che non supporta l'esportazione del contenuto del messaggio durante l'esportazione in blocco di e-mail da una cartella di posta. Pertanto, questo script VBA non può esportare anche il contenuto del messaggio.
Questo commento è stato fatto dal moderatore sul sito
funziona benissimo, ma c'è un modo per aggiungere le informazioni non solo per i 4 campi sopra, ma per tutto ciò che Outlook esporta in PST fornisce? Soggetto Corpo Da: (Nome) Da: (Indirizzo) Da: (Tipo) A: (Nome) A: (Indirizzo) A: (Tipo) CC: (Nome) CC: (Indirizzo) CC: (Tipo) BCC: ( Nome) BCC: (Indirizzo) BCC: (Tipo) Categorie di informazioni di fatturazione Importanza Chilometraggio Sensibilità

Ho provato ad aggiungere "Importanza" e funziona, ma apprezzerei se qualcuno potesse fornire il codice per gli altri campi. grazie!!
Con excWks
.Cells(1, 1) = "Oggetto"
.Cells(1, 2) = "Ricevuto"
.Cells(1, 3) = "Mittente"
.Cells(1, 4) = "Corpo"
.Cells(1, 5) = "Importanza"
Fine Con
riga interna = 2
Per ogni olkMsg in olkFld.Items
'Esportare solo messaggi, non ricevute o richieste di appuntamento, ecc.
Se olkMsg.Class = olMail Allora
'Aggiungi una riga per ogni campo nel messaggio che desideri esportare
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
Questo commento è stato fatto dal moderatore sul sito
Ciao, controlla il codice qui sotto per le tue esigenze:
Const MACRO_NAME = "Esporta cartelle di Outlook in Excel"

Sub ExportMain()

ExportToExcel "percorso_cartella_destinazione\A.xlsx", "account_email_proprio\cartella\sottocartella_1"

ExportToExcel "percorso_cartella_destinazione\B.xlsx", "account_email_proprio\cartella\sottocartella_2"

MsgBox "Processo completato.", vbInformation + vbOKOnly, MACRO_NAME

End Sub

Sub ExportToExcel(strFilename As String, strFolderPath As String)

Dim olkMsg come oggetto

Dim olkFld come oggetto

Dim excApp come oggetto

Dim excWkb come oggetto

Dim excWks come oggetto

Dim intRow As Integer

Dim intVersion As Integer

Se strFilename <> "" Allora

Se strFolderPath <> "" Allora

Imposta olkFld = OpenOutlookFolder(strFolderPath)

If TypeName(olkFld) <> "Nothing" Allora

intVersion = GetOutlookVersion()

Imposta excApp = CreateObject ("Excel.Application")

Imposta excWkb = excApp.Workbooks.Add()

Imposta excWks = excWkb.ActiveSheet

'Scrivi le intestazioni delle colonne di Excel

Con excWks

.Cells(1, 1) = "Oggetto"

.Cells(1, 2) = "Corpo"

.Cells(1, 3) = "Ricevuto"

.Cells(1, 4) = "Da: (Nome)"

.Cells(1, 5) = "Da: (Indirizzo)"

.Cells(1, 6) = "Da: (Tipo)"

.Cells(1, 7) = "A: (Nome)"

.Cells(1, 8) = "A: (Indirizzo)"

.Cells(1, 9) = "A: (Tipo)"

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

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

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

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

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

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

.Cells(1, 16) = "Dati di fatturazione"

.Cells(1, 17) = "Categorie"

.Cells(1, 18) = "Importanza"

.Cells(1, 19) = "Chilometraggio"

.Cells(1, 20) = "Sensibilità"

Fine Con

riga interna = 2

Per ogni olkMsg in olkFld.Items

'Esportare solo messaggi, non ricevute o richieste di appuntamento, ecc.

Se olkMsg.Class = olMail Allora

'Aggiungi una riga per ogni campo nel messaggio che desideri esportare

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

Successiva

Imposta olkMsg = Niente

excWkb.SaveAs strFilename

excWkb.Chiudi

Altro

MsgBox "La cartella '" & strFolderPath & "' non esiste in Outlook.", vbCritical + vbOKOnly, MACRO_NAME

End If

Altro

MsgBox "Il percorso della cartella era vuoto.", vbCritical + vbOKOnly, MACRO_NAME

End If

Altro

MsgBox "Il nome del file era vuoto.", vbCritical + vbOKOnly, MACRO_NAME

End If



Imposta olkMsg = Niente

Imposta olkFld = Niente

Imposta excWks = Niente

Imposta excWkb = Niente

Imposta excApp = Niente

End Sub



Funzione pubblica OpenOutlookFolder(strFolderPath As String) As Outlook.MAPIFolder

Dim arrFolders come variante

Dim varFolder come variante

Dim bolBeyondRoot As Boolean

On Error Resume Next

Se strFolderPath = "" Allora

Imposta OpenOutlookFolder = Niente

Altro

Fai mentre sei a sinistra(strFolderPath, 1) = "\"

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

Ciclo continuo

arrFolders = Dividi(strFolderPath, "\")

Per ogni varFolder in arrFolders

Seleziona Case bolBeyondRoot

Caso falso

Imposta OpenOutlookFolder = Outlook.Session.Folders(varFolder)

bolBeyondRoot = Vero

Caso Vero

Imposta OpenOutlookFolder = OpenOutlookFolder.Folders(varFolder)

End Select

Se Err.Number <> 0 Allora

Imposta OpenOutlookFolder = Niente

Esci per

End If

Successiva

End If

On Error GoTo 0

End Function



Funzione GetOutlookVersion() come intero

Dim arrVer come variante

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

GetOutlookVersion = arrVer(0)

End Function



Funzione SMTPEX(Entry As AddressEntry) As String

Dim olkPA come Outlook.PropertyAccessor

On Error Resume Next

Imposta olkPA = Entry.PropertyAccessor

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

On Error GoTo 0

Imposta olkPA = Niente

End Function



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

Dim olkEnt come oggetto

On Error Resume Next

Selezionare Caso intOutlookVersion

Il caso è < 14

Se Entry.Type = "EX" Allora

OttieniIndirizzo = SMTPEX(Voce)

Altro

GetAddress = Voce.Indirizzo

End If

Case Else

Se Entry.AddressEntryUserType = olExchangeUserAddressEntry allora

Imposta olkEnt = Entry.GetExchangeUser

GetAddress = olkEnt.PrimarySmtpAddress

Altro

GetAddress = Voce.Indirizzo

End If

End Select

On Error GoTo 0

Imposta olkEnt = Niente

End Function



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

Dim xRcp come destinatario

Dim xNames come stringa

xNomi = ""

Per ogni xRcp in Item.Recipients

Se xRcp.Type = rcpType Allora

Se Ret = 1 Allora

Se xNames = "" Allora

xNomi = xRcp.Nome

Altro

xNomi = xNomi & "; " & xRcp.Nome

End If

ElseIf Ret = 2 Allora

Se xNames = "" Allora

xNames = GetAddress(xRcp.AddressEntry, intOutlookVersion)

Altro

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

End If

ElseIf Ret = 3 Allora

Se xNames = "" Allora

xNomi = xRcp.AddressEntry.Type

Altro

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

End If

End If

ElseIf xRcp.Type = rcpType Allora

Se Ret = 1 Allora

Se xNames = "" Allora

xNomi = xRcp.Nome

Altro

xNomi = xNomi & "; " & xRcp.Nome

End If

ElseIf Ret = 2 Allora

Se xNames = "" Allora

xNames = GetAddress(xRcp.AddressEntry, intOutlookVersion)

Altro

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

End If

ElseIf Ret = 3 Allora

Se xNames = "" Allora

xNomi = xRcp.AddressEntry.Type

Altro

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

End If

End If

ElseIf xRcp.Type = rcpType Allora

Se Ret = 1 Allora

Se xNames = "" Allora

xNomi = xRcp.Nome

Altro

xNomi = xNomi & "; " & xRcp.Nome

End If

ElseIf Ret = 2 Allora

Se xNames = "" Allora

xNames = GetAddress(xRcp.AddressEntry, intOutlookVersion)

Altro

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

End If

ElseIf Ret = 3 Allora

Se xNames = "" Allora

xNomi = xRcp.AddressEntry.Type

Altro

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

End If

End If

End If

Successiva

GetRecipientsName = xNomi

End Function




Spero che questo funzioni per te.
Amanda
Questo commento è stato fatto dal moderatore sul sito
Nel sub ExporttoExcel puoi aggiungere il corpo

'Scrivi le intestazioni delle colonne di Excel
Con excWks
.Cells(1, 1) = "Oggetto"
.Cells(1, 2) = "Ricevuto"
.Cells(1, 3) = "Mittente"
.Cells(1, 4) = "Corpo"
Fine Con
riga interna = 2
Per ogni olkMsg in olkFld.Items
'Esportare solo messaggi, non ricevute o richieste di appuntamento, ecc.
Se olkMsg.Class = olMail Allora
'Aggiungi una riga per ogni campo nel messaggio che desideri esportare
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
Questo commento è stato fatto dal moderatore sul sito
Ciao, spero che qualcuno possa aiutarmi qui, non ho praticamente alcuna conoscenza di VB ma finora sono riuscito a far funzionare questo script per me.

Tuttavia ho circa 1500 cartelle e sottocartelle in totale nella mia casella di posta e vorrei davvero un semplice script per esportare tutto l'indirizzo e-mail che ho inviato con la riga dell'oggetto e la data su colonne separate in Excel.

Ho cercato per giorni e provato molti siti diversi ma non riesco a far funzionare alcun codice diverso da questo.


Quello che chiedo è possibile? Se è così, c'è qualcuno là fuori abbastanza gentile e intelligente da aiutarmi con la sceneggiatura di cui ho bisogno?
Presumo che abbia qualcosa a che fare con questa parte:


Sub ExportMain()

ExportToExcel "percorso_cartella_destinazione\A.xlsx", "account_email_proprio\cartella\sottocartella_1"

ExportToExcel "percorso_cartella_destinazione\B.xlsx", "account_email_proprio\cartella\sottocartella_2"

MsgBox "Processo completato.", vbInformation + vbOKOnly, MACRO_NAME

End Sub


Grazie in anticipo
Questo commento è stato fatto dal moderatore sul sito
Ciao,
Ho appena eseguito questa Macro che funziona bene.
Lo capisco nelle espressioni
excWks.Cells(intRow, 1) = olkMsg.Subject
excWks.Cells(intRow, 2) = olkMsg.ReceivedTime
excWks.Cells(intRow, 3) = GetSMTPAddress(olkMsg, intVersion)

olkMsg.* e GetSMTPAddress(olkMsg, intVersion) estraggono materiale da Outlook.

Qual è l'argomento da utilizzare per ottenere l'indirizzo a cui è stata inviata la posta?

Quando si utilizza l'esportazione guidata di Outlook, è possibile esportare questo indirizzo, quindi presumo che sarebbe possibile farlo tramite questa macro (con alcune modifiche).
Può aiutare qualcuno?

Saluti
Questo commento è stato fatto dal moderatore sul sito
Eseguo questa macro ma continuo a ricevere un errore di compilazione:

Utente=tipo definito non definito

Nella riga 62 "Funzione pubblica OpenOutlookFolder(strFolderPath As String) As Outlook.MAPIFolder"

Ho già specificato il percorso come segue:

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

Sto usando Outlook 2016 nel caso sia necessario
Questo commento è stato fatto dal moderatore sul sito
L'ho riparato. Dalla finestra di Visual Basic, vai su Strumenti Riferimento - e la casella per " Libreria oggetti di Microsoft Outlook 16.0"

Non ci sono ancora commenti pubblicati qui
Lasciate i vostri commenti
Pubblicazione come ospite
×
Valuta questo post:
0   Personaggi
Posizioni suggerite