Skip to main content

Come inviare un'email con più allegati in Excel?

Author: Siluvia Last Modified: 2025-05-29

Questo articolo parla dell'invio di un'email tramite Outlook con più allegati inseriti in Excel.

Invia email con più allegati in Excel utilizzando il codice VBA


Invia email con più allegati in Excel utilizzando il codice VBA

Ecco come inviare un'email con più allegati in Excel.

1. Inserisci un pulsante di comando facendo clic su Sviluppatore > Inserisci > Pulsante di Comando (Controllo ActiveX). Vedi screenshot:

click Command Button from Developer tab

2. Dopo aver inserito il Pulsante di Comando, fai clic destro su di esso e seleziona Visualizza Codice dal menu contestuale.

select View Code from the context menu

3. Nella finestra di Microsoft Visual Basic for Applications che si apre, fai clic su Strumenti > Riferimenti come mostrato nello screenshot sottostante.

click Tools > References

4. Nella finestra di dialogo Riferimenti – VBAProject, trova e seleziona l'opzione Microsoft Outlook Object Library , quindi fai clic sul pulsante OK.

check the Microsoft Outlook Object Library option in the dialog box

5. Quindi sostituisci il codice originale nella finestra del Codice con il seguente codice VBA.

Codice VBA: Invia email con più allegati in Excel

Private Sub CommandButton1_Click()
    Dim xStrFile As String
    Dim xFilePath As String
    Dim xFileDlg As FileDialog
    Dim xFileDlgItem As Variant
    Dim xOutApp As Outlook.Application
    Dim xMailOut As Outlook.MailItem
    Application.ScreenUpdating = False
    Set xOutApp = CreateObject("Outlook.Application")
    Set xMailOut = xOutApp.CreateItem(olMailItem)
    Set xFileDlg = Application.FileDialog(msoFileDialogFilePicker)
    If xFileDlg.Show = -1 Then
        With xMailOut
            .BodyFormat = olFormatRichText
            .To = "happy.xuebi@163.com"
            .Subject = "test"
            .HTMLBody = "test"
            For Each xFileDlgItem In xFileDlg.SelectedItems
                .Attachments.Add xFileDlgItem
            Next xFileDlgItem
            .Display
        End With
    End If
    Set xMailOut = Nothing
    Set xOutApp = Nothing
    Application.ScreenUpdating = True
End Sub

Nota: specifica il destinatario, l'oggetto e il corpo dell'email modificando le variabili nelle righe .To = happy.xuebi@163.com, .Subject = "test" e .HTMLBody = "test" nel codice.

6. Premi contemporaneamente i tasti Alt + Q per uscire dalla finestra Microsoft Visual Basic for Applications.

7. Fai clic su Sviluppatore > Modalità Progettazione per disattivare la Modalità Progettazione. Vedi screenshot:

Click Design Mode to turn off the Design Mode

8. Fai clic sul Pulsante di Comando per eseguire il codice. Nella finestra Sfoglia che appare, seleziona i file che desideri allegare all'email, quindi fai clic sul pulsante OK. Vedi screenshot:

run code to select the files you need to attach in the email

9. Verrà creata un'email con i campi specificati e gli allegati elencati. Fai clic sul pulsante Invia per inviarla. Vedi screenshot:

an email is created with specified fields and attachments listed out

Nota: Il codice VBA funziona solo quando utilizzi Outlook come programma di posta elettronica.


Invia facilmente email tramite Outlook basandoti sui campi della mailing list creata in Excel:

Il Invia Email strumento di Kutools per Excel aiuta gli utenti a inviare email tramite Outlook basandosi sulla mailing list creata in Excel.
Scarica e prova subito! (30-giorni di prova gratuita)

send email with attachments by kutools


Articoli correlati:

I migliori strumenti per la produttività in Office

🤖 Kutools AI Aide: Rivoluziona l'analisi dei dati grazie a: Esecuzione Intelligente | Genera Codice | Crea Formule Personalizzate | Analizza Dati e Genera Grafici | Richiama Funzioni avanzate di Kutools
Funzionalità popolari: Trova, evidenzia o contrassegna duplicati | Elimina righe vuote | Unisci colonne o celle senza perdere dati | Arrotonda...
Super RICERCA.VERT: Ricerca VERT con criteri multipli | Ricerca VERT con valori multipli | Ricerca su più fogli | Corrispondenza approssimativa...
Elenco a discesa avanzato: Crea rapidamente un elenco a discesa | Elenco a discesa dipendente | Elenco a discesa multi-selezione...
Gestione Colonne: Aggiungi un numero specifico di colonne | Sposta colonne | Attiva/disattiva la visibilità delle colonne nascoste | Confronta intervalli e colonne...
Funzionalità in evidenza: Attenzione della griglia | Visualizzazione di progettazione | Barra delle formule avanzata | Gestione Cartella di lavoro e Foglio di lavoro | Libreria AutoText | Selettore di data | Unisci dati | Crittografa/Decrittografa celle | Invia Email tramite elenco | Super Filtri | Filtro speciale (filtra grassetto/corsivo/barrato...) ...
Top15 set di strumenti:12 strumenti di testo (Aggiungi testo, Elimina Caratteri Specifici, ...) | Oltre50 tipi di grafici (Diagramma di Gantt, ...) | Oltre40 formule pratiche (Calcola l'età in base alla data di nascita, ...) |19 strumenti di inserimento (Inserisci codice QR, Inserisci Immagine da percorso, ...) |12 strumenti di conversione (Converti in parole, Conversione valuta, ...) |7 strumenti di unione e divisione (Unione avanzata righe, Dividi celle, ...) | ... e molto altro

Potenzia le tue competenze in Excel con Kutools per Excel e sperimenta un'efficienza mai vista prima. Kutools per Excel offre oltre300 funzionalità avanzate per aumentare la produttività e risparmiare tempo. Clicca qui per ottenere la funzione di cui hai più bisogno...


Office Tab porta l'interfaccia a schede in Office e rende il tuo lavoro molto più semplice

  • Abilita la modifica e la lettura a schede in Word, Excel, PowerPoint, Publisher, Access, Visio e Project.
  • Apri e crea più documenti in nuove schede della stessa finestra, invece che in nuove finestre.
  • Aumenta la tua produttività del50% e riduce centinaia di clic del mouse ogni giorno!