Come inviare un'email con più allegati in Excel?
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:
2. Dopo aver inserito il Pulsante di Comando, fai clic destro su di esso e seleziona Visualizza Codice dal menu contestuale.
3. Nella finestra di Microsoft Visual Basic for Applications che si apre, fai clic su Strumenti > Riferimenti come mostrato nello screenshot sottostante.
4. Nella finestra di dialogo Riferimenti – VBAProject, trova e seleziona l'opzione Microsoft Outlook Object Library , quindi fai clic sul pulsante OK.
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:
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:
9. Verrà 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 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)
Articoli correlati:
- Come inviare email agli indirizzi email specificati nelle celle in Excel?
- Come inviare un'email copiando e incollando un intervallo specificato nel corpo dell'email in Excel?
- Come inserire la firma in un'email di Outlook quando si invia tramite VBA in Excel?
- Come inviare un'email se la data di scadenza è stata raggiunta in Excel?
- Come inviare automaticamente un'email basandosi sul valore di una cella in Excel?
I 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 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!