Come inviare un'email con più allegati direttamente da Excel?
Questo articolo spiega come inviare un'email tramite Outlook con più allegati direttamente da Excel.
Invia un'email con più allegati da Excel utilizzando il codice VBA
Invia un'email con più allegati da Excel utilizzando il codice VBA
Segui questi semplici passaggi per inviare un'email con più allegati direttamente da Excel.
1. Inserisci un pulsante di comando facendo clic su Sviluppo > Inserisci > Pulsante comando (controllo ActiveX). Vedi screenshot:
2. Dopo aver inserito il pulsante di comando, fai clic con il tasto destro su di esso e seleziona Visualizza codice dal menu contestuale.
3. Nella finestra di Microsoft Visual Basic, Applications Edition che si apre, fai clic su Strumenti > Riferimenti, come mostrato nello screenshot seguente.
4. Nella finestra di dialogo Riferimenti – VBAProject, individua e seleziona l’opzione Microsoft Outlook Object Library, quindi fai clic sul pulsante OK.
5. Sostituisci quindi il codice originale nella finestra del codice con il seguente codice VBA.
Codice VBA: invia un'email con più allegati da 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 SubNota: 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» del codice.
6. Premi contemporaneamente i tasti Alt+Q per chiudere la finestra di Microsoft Visual Basic, Applications Edition.
7. Fai clic su Sviluppo > Modalità progettazione per disattivare la modalità progettazione. Vedi screenshot:
8. Fai clic sul pulsante di comando per eseguire il codice. Nella finestra Sfoglia che si apre, seleziona i file da allegare all’email, quindi fai clic sul pulsante OK. Vedi screenshot:
9. Viene quindi creata un’email con i campi specificati e gli allegati elencati. Fai clic sul pulsante Invia per inviarla. Vedi screenshot:
Nota: il codice VBA funziona esclusivamente se utilizzi Outlook come programma di posta elettronica.
Invia facilmente email tramite Outlook in base ai campi delle Elenco email create in Excel:
L’utility Invia email di Kutools per Excel consente agli utenti di inviare email tramite Outlook in base agli elenchi creati in Excel.
Scaricala e provala subito! (Prova gratuita di 30 giorni)
Articoli correlati:
- Come inviare un'email all'indirizzo indicato nelle celle di Excel?
- Come inviare un'email copiando e incollando un intervallo specifico nel corpo del messaggio da Excel?
- Come si inserisce la firma nell'email di Outlook quando si invia tramite VBA da Excel?
- Come inviare un'email quando la condizione relativa alla Data di scadenza in Excel è soddisfatta?
- Come inviare automaticamente un'email in base al valore contenuto in una cella di Excel?
Migliori Strumenti per la Produttività in Office
Potenzia le tue competenze in Excel con Kutools per Excel e sperimenta un’efficienza mai vista prima.Kutools per Excel offre oltre 300 funzionalità avanzate per aumentare la produttività e Risparmia tempo.Clicca qui per ottenere la funzionalità 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 all’interno della stessa finestra, invece che in finestre separate.
- Aumenta la tua produttività del 50 % e risparmia centinaia di clic del mouse ogni giorno!
Tutti i componenti aggiuntivi di Kutools in un unico programma di installazione.
Kutools for Office è la suite che include componenti aggiuntivi per Excel, Word, Outlook e PowerPoint, oltre a Office Tab Pro: la soluzione ideale per i team che lavorano su diverse app di Office.
- Suite completa— componenti aggiuntivi per Excel, Word, Outlook e PowerPoint + Office Tab Pro
- Un unico programma di installazione, una sola licenza— configurazione in pochi minuti (pronto per MSI)
- Funziona meglio insieme— produttività ottimizzata tra le app di Office
- Prova gratuita di 30 giorni con tutte le funzionalità— nessuna registrazione, nessuna carta di credito
- Miglior rapporto qualità-prezzo— risparmia rispetto all’acquisto dei singoli componenti aggiuntivi