Come copiare in batch tutti gli allegati da più e-mail a una nuova e-mail in Outlook

Se desideri creare una nuova e-mail e aggiungere tutti gli allegati in diverse altre e-mail alla nuova posta, puoi utilizzare il metodo introdotto in questo articolo. Ti insegnerà a usare VBA per ottenerlo come un gioco da ragazzi.

A volte, potrebbe essere necessario copiare in batch tutti gli allegati da più e-mail a una nuova e-mail. Naturalmente, puoi scegliere di farlo manualmente, semplicemente salvandoli prima sull'unità locale e quindi allegandoli uno per uno a un'e-mail appena creata. Tuttavia, a quanto pare, in questo modo sarà un compito piuttosto noioso. Pertanto, perché non utilizzi VBA per realizzarlo rapidamente? Di seguito, ti esporremo le operazioni elaborate e i corrispondenti codici VBA.

Copia in batch tutti gli allegati da più e-mail a una nuova e-mail

1. Innanzitutto, avvia il programma Outlook come di consueto.
2. Quindi nella finestra principale di Outlook, premi i pulsanti "Alt + F11".
3. Nella successiva finestra “Microsoft Visual Basic for Applications”, inserire un nuovo modulo o aprire un modulo che non è in uso.
4. Quindi copia e incolla i seguenti codici VBA in tale modulo.

Sub NewEmailwithAttachmentsinSeveralEmails()
    Dim objSelection As Outlook.Selection
    Dim objMail As Outlook.MailItem
    Dim objAttachment As Outlook.Attachment
    Dim objFileSystem As Object
    Dim strFilePath As String
    Dim objNewMail As Outlook.MailItem
 
    Set objSelection = Outlook.Application.ActiveExplorer.Selection
    Set objNewMail = Outlook.Application.CreateItem(olMailItem)
 
    On Error Resume Next
    For Each objMail In objSelection
        For Each objAttachment In objMail.attachments
 
            'Save all the attachments to temporary folder
            Set objFileSystem = CreateObject("Scripting.FileSystemObject")
            strFilePath = objFileSystem.GetSpecialFolder(2).Path & "\" & objAttachment.filename
            objAttachment.SaveAsFile (strFilePath)
 
            'Add the attachments to the new email
             objNewMail.attachments.Add (strFilePath)
 
            'Delete the temporary files
            objFileSystem.DeleteFile (strFilePath)
        Next
    Next
 
    'Show the new email
    objNewMail.Display
End Sub

5. Successivamente, dovresti procedere ad aggiungere il nuovo progetto VBA alla barra degli strumenti di accesso rapido. Puoi completarlo in "Opzioni di Outlook".
6. Successivamente dovresti modificare il livello di sicurezza delle macro di Outlook a basso.
7. Finalmente puoi provare.

• Innanzitutto, premi il tasto "Ctrl" e seleziona diverse e-mail di cui desideri copiare gli allegati.
• Quindi premi il nuovo pulsante macro nella barra di accesso rapido.
• Immediatamente, verrà visualizzata una nuova e-mail con tutti gli allegati allegati.

Sfida i frequenti problemi PST di Outlook

Poiché i problemi PST di Outlook possono verificarsi di tanto in tanto, dovresti dedicare molti sforzi per salvaguardare i tuoi dati PST. Ad esempio, è meglio eseguire regolarmente il backup dei dati PST, in modo da poterli recuperare Outlook corrotto dati dai backup senza sudare. Inoltre, devi tenere uno strumento affidabile nelle vicinanze, come DataNumen Outlook Repair.

Introduzione dell'autore:

Shirley Zhang è un'esperta di recupero dati in DataNumen, Inc., che è il leader mondiale nelle tecnologie di recupero dati, tra cui riparazione mdf e prodotti software di riparazione di Outlook. Per maggiori informazioni visita www.datanumen.com