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

or

Come salvare più e-mail selezionate come file MSG in blocco in Outlook?

È facile salvare un'e-mail come file MSG in Outlook. Come puoi salvare più email selezionate come singoli file MSG in blocco in Outlook? Questo articolo ti mostrerà un metodo per ottenerlo.

Salva più email selezionate come file MSG con codice VBA


Salva più email selezionate come file MSG con codice VBA

Il seguente codice VBA può aiutarti a salvare più email selezionate come singoli file MSG in blocco in Outlook. Si prega di fare quanto segue.

1. Selezionare le e-mail che si desidera salvare come file MSG. Quindi premere contemporaneamente i tasti Alt + F11 per aprire la finestra di Microsoft Visual Basic, Applications Edition.

2. Nella finestra di Microsoft Visual Basic, Applications Edition, fare clic su Inserisci> Modulo, quindi copiare sotto il codice VBA nella finestra del modulo.

Codice VBA: salva più e-mail selezionate come singoli file MSG in Outlook

Public Sub SaveMessageAsMsg()
'Update by Extendoffice 2018/3/5
Dim xMail As Outlook.MailItem
Dim xObjItem As Object
Dim xPath As String
Dim xDtDate As Date
Dim xName, xFileName As String
On Error Resume Next
Set xShell = CreateObject("Shell.Application")
Set xFolder = xShell.BrowseForFolder(0, "Select a folder:", 0, strStartingFolder)
If Not TypeName(xFolder) = "Nothing" Then
    Set xFolderItem = xFolder.self
    xFileName = xFolderItem.Path & "\"
Else
    xFileName = ""
    Exit Sub
End If
For Each xObjItem In Outlook.ActiveExplorer.Selection
    If xObjItem.Class = olMail Then
        Set xMail = xObjItem
        xName = xMail.Subject
        xDtDate = xMail.ReceivedTime
        xName = Format(xDtDate, "yyyymmdd", vbUseSystemDayOfWeek, _
          vbUseSystem) & Format(xDtDate, "-hhnnss", _
          vbUseSystemDayOfWeek, vbUseSystem) & "-" & xName & ".msg"
        xPath = xFileName + xName
        xMail.SaveAs xPath, olMSG
    End If
Next
End Sub

3. Premere il F5 per eseguire il codice.

4. Nella finestra di dialogo Sfoglia per cartelle, specificare una cartella in cui salvare i file MSG e quindi fare clic sul pulsante OK. Vedi screenshot:

Ora tutte le e-mail selezionate vengono salvate come singoli file MSG come mostrato nell'immagine sottostante.


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

Con la Risparmio collettivo utilità di Kutools per Outlook, puoi facilmente salvare più email selezionate come singoli file in formato HTML, file in formato TXT, documento Word, file CSV e file PDF in Outlook come mostrato nell'immagine sottostante. Scaricalo e provalo subito! (60 giorni di percorso gratuito)


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.
    David · 1 years ago
    It doesn't seem to work when emails are displayed in conversation mode or from a Group folder.
  • To post as a guest, your comment is unpublished.
    Yuki · 2 years ago
    Hi, i am new to macro. i am looking for a macro that allows me to save the filename, not by subject or time. But by the reference # found inside the email body. This macro works well when i save multiple emails into my folder. But as i want each email to be saved using the reference #, would you have a macro for it? The reference # is found on the 6th row of the emails body (REF : WL344ET2), that i received everyday. Appreciate if anyone can help on this and thank you in advance.
  • To post as a guest, your comment is unpublished.
    climbp19981 · 2 years ago
    When there is a ":" in the subject, this code cannot copy the whole subject to be the name of the saved message, is there any way to solve this problem?
    • To post as a guest, your comment is unpublished.
      Daniel · 2 years ago
      change line 21 to xName="". The saved message filname will not include the subject anymore.
      • To post as a guest, your comment is unpublished.
        Mathias · 2 years ago
        A better way is to always replace ":" with blanks adding this line under xName = xMail.Subject

        xName = Replace(xName, ":", "")