Note: The other languages of the website are Google-translated. Back to English
Accedi  \/ 
x
or
x
Registrati  \/ 
x

or

Come salvare automaticamente le e-mail di Outlook su disco rigido / disco?

Per backup, prove di lavoro o altri scopi, potresti voler salvare le email di Outlook sul disco rigido. È facile salvare diversi messaggi di posta elettronica su disco trascinando manualmente da Outlook al disco. Tuttavia, sai come salvare automaticamente su disco ogni email in arrivo? Questo articolo introdurrà un VBA per gestirlo in Outlook.

Salva automaticamente le e-mail di Outlook su disco rigido / disco


Salva automaticamente le e-mail di Outlook su disco rigido / disco

Questo metodo introdurrà un VBA per salvare automaticamente ogni e-mail in arrivo in Outlook come singolo file HTML sul disco specifico. Si prega di fare quanto segue:

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

2. Espandere il Project1 e fare doppio clic Questa sessione di Outlook per aprirlo, quindi incollare sotto il codice VBA nella finestra ThisOutlookSession. Vedi screenshot:

VBA: salva automaticamente le e-mail di Outlook come file HTML su disco

Private WithEvents InboxItems As Outlook.Items
Sub Application_Startup()
Dim xNameSpace As Outlook.NameSpace
Set xNameSpace = Outlook.Application.Session
Set InboxItems = xNameSpace.GetDefaultFolder(olFolderInbox).Items
End Sub

Private Sub InboxItems_ItemAdd(ByVal objItem As Object)
Dim FSO
Dim xMailItem As Outlook.MailItem
Dim xFilePath As String
Dim xRegEx
Dim xFileName As String
On Error Resume Next
xFilePath = CreateObject("WScript.Shell").SpecialFolders(16)
xFilePath = xFilePath & "\MyEmails"
Set FSO = CreateObject("Scripting.FileSystemObject")
If FSO.FolderExists(xFilePath) = False Then
FSO.CreateFolder (xFilePath)
End If
Set xRegEx = CreateObject("vbscript.regexp")
xRegEx.Global = True
xRegEx.IgnoreCase = False
xRegEx.Pattern = "\||\/|\<|\>|""|:|\*|\\|\?"
If objItem.Class = olMail Then
Set xMailItem = objItem
xFileName = xRegEx.Replace(xMailItem.Subject, "")
xMailItem.SaveAs xFilePath & "\" & xFileName & ".html", olHTML
End If
Exit Sub
End Sub

3. Salva il codice VBA e riavvia Microsoft Outlook.

D'ora in poi, ogni email in arrivo verrà salvata come file HTML individuale nella cartella "MyEmails".

Note:
(1) Questo VBA creerà una cartella denominata "MyEmails" nella cartella Documents. Puoi trovare le e-mail salvate automaticamente con questo percorso di cartella: C: \ Users \ your_user_name \ Documents \ MyEmails
(2) Questo VBA funziona con le e-mail ricevute nella cartella Posta in arrivo dell'account e-mail predefinito.


Articoli 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
 
Say something here...
symbols left.
You are guest
or post as a guest, but your post won't be published automatically.
Loading comment... The comment will be refreshed after 00:00.
  • To post as a guest, your comment is unpublished.
    lio · 8 months ago
    I need to change the folder for one i created (no need folder inbox), and i need to change the folder to store the msg files, in my case in drive e:., thank!!!

  • To post as a guest, your comment is unpublished.
    WRT · 1 years ago
    Can i have a certain report that is emailed to me each week save to a place on my hard drive? Just this one email. Comes from same email address and has the same title each week.
  • To post as a guest, your comment is unpublished.
    Leslie · 2 years ago
    Could you advise how to change this to another folder, not the Inbox?
  • To post as a guest, your comment is unpublished.
    Olka · 2 years ago
    Dzień doby, robię wszystko tak jak opisane powyżej, mimo to makro nie chce działać. Czy muszę włączyć jakieś opcję albo zmienić coś w kodzie?
    Nie wywala błędu jednak nie tworzy się folder a plik się nie zapisuje.

    Będę bardzo wdzięczna za odpowiedź

    Pozdrawiam serdecznie
  • To post as a guest, your comment is unpublished.
    Matthias · 2 years ago
    How can I add the sender's email address to the file name?
  • To post as a guest, your comment is unpublished.
    DW · 2 years ago
    Buonasera, è possibile modificare questo script con una versione che prevede di spostare i messaggi che arrivano in altra cartella anzichè quella classica della posta in arrivo? In altri termini, vorrei salvare automaticamente le mail che arrivano per esempio in Posta in Arrivo\Cliente1
    grazie per la collaborazione
    max