Suggerimento: le altre lingue sono tradotte da Google. Puoi visitare il English versione di questo link.
Log In
x
or
x
x
Registrati
x

or

Come importare i file msg dal file system alla cartella di Outlook?

Normalmente, puoi importare i file msg dal file system in una cartella di Outlook trascinandoli e rilasciandoli. In questo articolo, vi mostreremo un metodo semplice per importare tutti i file msg da un file system in una cartella di Outlook specificata nei dettagli.

Importa i file msg dal file system alla cartella di Outlook con codice VBA


Salva facilmente le email selezionate come file di formato diverso in Outlook:

Con l'utilità Salva come file di Kutools per Outlook, puoi facilmente salvare più e-mail selezionate come singoli file di formato HTML, file in formato TXT, documento Word, file CSV e file PDF in Outlook come mostrato nell'immagine sottostante.

Kutools for Outlook: con più di 40 utili componenti aggiuntivi di Outlook, liberi di provare senza limitazioni nei giorni 45. Scarica e prova gratis ora!


Importa i file msg dal file system alla cartella di Outlook con codice VBA

Si prega di fare quanto segue per importare i file msg dal file system in una cartella specificata in Outlook.

1. premi il altro + F11 chiavi per aprire il Microsoft Visual Basic, Applications Edition finestra.

2. Nel Microsoft Visual Basic, Applications Edition finestra, fare clic inserire > Modulo. Quindi copiare sotto il codice VBA nella finestra del modulo.

Codice VBA: importa i file msg dal file system alla cartella di Outlook

Sub ImportMessagesInFolder () Dim xFSO As Scripting.FileSystemObject Dim xSourceFld As Scripting.Folder Dim xSourceFldPath As String Dim xFileItem As Scripting.File Dim xMSG As Object Dim xMailItem As MailItem Dim xSaveFld As Outlook.Folder On Error Riprendi Next Set xFSO = New Scripting. FileSystemObject Set xSelFolder = CreateObject ("Shell.Application"). BrowseForFolder (0, "Seleziona una cartella:", 0, 0) Se non TypeName (xSelFolder) = "Nothing" Quindi xSourceFldPath = xSelFolder.self.Path + "\" Else xSourceFldPath = "" Esci da Sub End Se Set xSourceFld = xFSO.GetFolder (xSourceFldPath) Imposta xSaveFld = GetObject ("", "Outlook.Application"). GetNamespace ("MAPI"). PickFolder If TypeName (xSaveFld) = "Nothing" Quindi Esci da Sub End If For Each xFileItem In xSourceFld.Files Set xMSG = Session.OpenSharedItem (xFileItem.Path) Imposta xMailItem = xMSG.Copy xMailItem.Move xSaveFld Imposta xMailItem = Nothing xMSG.Delete Imposta xMSG = Nothing Avanti xFileItem Imposta xFileItem = Nothing Imposta xSourceFld = Nothing Set xFSO = N othing End Sub

3. premi il F5 chiave per eseguire il codice. In apertura Sfoglia per cartella finestra di dialogo, selezionare la cartella contiene i file msg che verranno importati nella cartella di Outlook, quindi fare clic su OK pulsante. Vedi screenshot:

4. Ora a Seleziona cartella la finestra di dialogo si apre, selezionare un Outlook cartella per salvare i file msg importati e fare clic su OK pulsante.

Quindi tutti i file msg in una determinata cartella del file system vengono importati immediatamente in una cartella di Outlook specificata.


Articoli correlati:



Strumenti di produttività consigliati

Office Tab

stella d'oro1 Porta pratiche schede ad Excel e ad altri software Office, proprio come Chrome, Firefox e il nuovo Internet Explorer.

Kutools for Excel

stella d'oro1 Stupefacente! Aumenta la tua produttività in 5 minuti. Non servono abilità speciali, risparmiate due ore al giorno!

stella d'oro1 300 Nuove funzionalità per Excel, rendono Excel molto semplice e potente:

  • Unisci cella / righe / colonne senza perdere dati.
  • Combina e consolida più fogli e cartelle di lavoro.
  • Confronta intervalli, copia intervalli multipli, conversione testo in data, unità e conversione valuta.
  • Contare in base a colori, totali parziali cercapersone, ordinamento avanzato e filtro super,
  • Altro Seleziona / Inserisci / Elimina / Testo / Formato / Link / Commento / Cartelle di lavoro / Fogli di lavoro Strumenti ...

Schermata di Kutools per Excel

Say something here...
symbols left.
You are guest ( Sign Up? )
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.
    Amey Thombre · 10 months ago
    This is amazing and just does what i was looking for. just make sure that you have Microsoft System Runtime library selected in the references of the VBA project as Scripting object is from that library.