Come esportare automaticamente le e-mail da Outlook a Excel?
Normalmente, puoi esportare le e-mail da Outlook a Excel con la funzione Importa / Esporta. Ma hai mai provato a esportare automaticamente le e-mail in un file Excel quando arrivano nuovi messaggi? In questo articolo, parlerò di come esportare automaticamente le informazioni dei nuovi messaggi in arrivo in Excel.
Esportare automaticamente le informazioni e-mail da Outlook a Excel con codice VBA
Esporta le informazioni e-mail da Outlook a Excel con una funzionalità straordinaria
Esportare automaticamente le informazioni e-mail da Outlook a Excel con codice VBA
Per esportare automaticamente le nuove e-mail in arrivo in una cartella di lavoro di Excel, applicare il seguente codice VBA:
1. Innanzitutto, dovresti creare una cartella di lavoro con le informazioni di intestazione di seguito come mostrato nella seguente schermata, quindi queste informazioni dei messaggi verranno esportate in questo file Excel.
2. Quindi vai su Outlook e tieni premuto il ALT + F11 chiavi per aprire il Microsoft Visual Basic, Applications Edition finestra.
3. Nel Microsoft Visual Basic, Applications Edition finestra, fare doppio clic Questa sessione di Outlook dal Progetto1 (VbaProject.OTM) riquadro per aprire la modalità, quindi copia e incolla il codice seguente nel modulo vuoto.
Codice VBA: esportazione automatica delle informazioni e-mail da Outlook a file Excel:
Public WithEvents GMailItems As Outlook.Items
Private Sub Application_Startup()
Set GMailItems = Outlook.Application.Session.GetDefaultFolder(olFolderInbox).Items
End Sub
Private Sub GMailItems_ItemAdd(ByVal Item As Object)
Dim xMailItem As Outlook.MailItem
Dim xExcelFile As String
Dim xExcelApp As Excel.Application
Dim xWb As Excel.Workbook
Dim xWs As Excel.Worksheet
Dim xNextEmptyRow As Integer
On Error Resume Next
If Item.Class <> olMail Then Exit Sub
Set xMailItem = Item
xExcelFile = "C:\Users\DT168\Desktop\split document\kto-data.xlsx"
If IsWorkBookOpen(xExcelFile) = True Then
Set xExcelApp = GetObject(, "Excel.Application")
Set xWb = GetObject(xExcelFile)
If Not xWb Is Nothing Then xWb.Close True
Else
Set xExcelApp = New Excel.Application
End If
Set xWb = xExcelApp.Workbooks.Open(xExcelFile)
Set xWs = xWb.Sheets(1)
xNextEmptyRow = xWs.Range("B" & xWs.Rows.Count).End(xlUp).Row + 1
With xWs
.Cells(xNextEmptyRow, 1) = xNextEmptyRow - 1
.Cells(xNextEmptyRow, 2) = xMailItem.SenderName
.Cells(xNextEmptyRow, 3) = xMailItem.SenderEmailAddress
.Cells(xNextEmptyRow, 4) = xMailItem.Subject
.Cells(xNextEmptyRow, 5) = xMailItem.ReceivedTime
End With
xWs.Columns("A:E").AutoFit
xWb.Save
End Sub
Function IsWorkBookOpen(FileName As String)
Dim xFreeFile As Long, xErrNo As Long
On Error Resume Next
xFreeFile = FreeFile()
Open FileName For Input Lock Read As #xFreeFile
Close xFreeFile
xErrNo = Err
On Error GoTo 0
Select Case xErrNo
Case 0: IsWorkBookOpen = False
Case 70: IsWorkBookOpen = True
Case Else: Error xErrNo
End Select
End Function
Note:: Nel codice sopra, C: \ Users \ DT168 \ Desktop \ split document \ kto-data.xlsx è il percorso del file Excel e il nome Excel in cui si desidera individuare le informazioni esportate, modificarlo in base alle proprie esigenze.
4. Ancora in Microsoft Visual Basic, Applications Edition finestra, fare clic Strumenti > Riferimenti per andare al Riferimenti-Progetto1 finestra di dialogo e selezionare Libreria di oggetti di Microsoft Excel opzione dal Riferimenti disponibili casella di riepilogo, vedi screenshot:
5. Quindi fare clic OK pulsante per chiudere la finestra di dialogo, quindi salvare e chiudere la finestra del codice.
6. Ora dovresti riavviare Outlook per rendere effettivo questo codice. D'ora in poi, se ci sono nuove e-mail in arrivo, verranno esportate automaticamente nella cartella di lavoro specifica, vedi screenshot:
Esporta le informazioni e-mail da Outlook a Excel con una funzionalità straordinaria
Se desideri esportare le e-mail da Posta in arrivo, Posta in uscita o altre cartelle in un file Excel, Kutools for Outlook's Rapporto rapido può aiutarti a generare facilmente un file XML per riportare le informazioni di tutti gli elementi nella cartella e-mail corrente o nella cartella delle attività di cui hai bisogno.
Dopo l'installazione Kutools for Outlook, per favore fai come questo:
1. Selezionare una cartella in cui si desidera esportare tutte le informazioni sui messaggi, quindi fare clic su Kutools Plus > Rapporto rapido, vedi screenshot:
2. Quindi, nel saltò fuori Salva report finestra, scegli una posizione e specifica un nome per questo file esportato, vedi screenshot:
3. Quindi fare clic su Risparmi per salvare questo file e, nella casella spuntata, fare clic su Sì pulsante per aprire il file, vedi screenshot:
4. Ora puoi vedere tutte le informazioni delle e-mail nella cartella selezionata che sono state esportate nel file Excel, vedi screenshot:
Articoli più relativi:
- Esporta la tabella del corpo dell'email in Excel in Outlook
- Quando si riceve un'e-mail che contiene alcune tabelle nel corpo, a volte potrebbe essere necessario esportare tutte le tabelle dal corpo del messaggio a un foglio di lavoro Excel. Normalmente, puoi copiare e incollare le tabelle nel foglio di lavoro, ma, qui, parlerò di un metodo utile per risolvere questo lavoro quando ci sono più tabelle da esportare.
- Estrai o esporta l'elenco delle attività in Excel in Outlook
- Durante l'utilizzo di Outlook, è possibile estrarre l'elenco delle attività in Excel per altri utilizzi. Con la potente funzionalità di esportazione in Outlook, puoi esportare facilmente l'elenco delle attività in Excel. Si prega di fare come illustrato di seguito.
- Esporta le informazioni dei contatti con le foto in Outlook
- Quando si esportano i contatti da Outlook in un file, è possibile esportare solo le informazioni di testo dei contatti. Ma, a volte, hai bisogno di esportare le foto e le informazioni di testo dei contatti, come potresti gestire questa attività in Outlook?
- Esporta la struttura delle cartelle da Outlook a Excel
- In questo articolo, introdurrò come esportare la struttura delle cartelle di un account da Outlook a un file Excel. Per favore, raggiungilo con i dettagli di questo articolo.
I migliori strumenti per la produttività in ufficio
Kutools for Outlook - Oltre 100 potenti funzionalità per potenziare il tuo Outlook
🤖 Assistente di posta AI: E-mail istantanee professionali con la magia dell'intelligenza artificiale: risposte geniali con un solo clic, tono perfetto, padronanza multilingue. Trasforma l'e-mail senza sforzo! ...
???? Automazione di posta elettronica: Fuori sede (disponibile per POP e IMAP) / Pianifica l'invio di e-mail / CC/BCC automatico in base alle regole durante l'invio di e-mail / Inoltro automatico (regole avanzate) / Aggiunta automatica di saluto / Suddividi automaticamente le email con più destinatari in singoli messaggi ...
📨 gestione e-mail: Richiama facilmente le email / Blocca le email truffe per soggetto e altri / Elimina email duplicate / Ricerca avanzata / Consolidare cartelle ...
📁 Allegati Pro: Salvataggio in batch / Stacca batch / Comprimi in lotti / Salvataggio automatico / Scollegamento automatico / Comprimi automaticamente ...
🌟 Magia dell'interfaccia: 😊Più emoji carini e fantastici / Aumenta la tua produttività in Outlook con le visualizzazioni a schede / Riduci a icona Outlook invece di chiuderlo ...
👍 Meraviglie con un clic: Rispondi a tutti con gli allegati in arrivo / E-mail anti-phishing / 🕘Mostra il fuso orario del mittente ...
👩🏼🤝👩🏻 Contatti e calendario: Aggiungi in batch contatti dalle email selezionate / Dividere un gruppo di contatti in singoli gruppi / Rimuovi promemoria compleanno ...
Al di sopra Caratteristiche 100 Attendi la tua esplorazione! Clicca qui per scoprire di più.
