Come inviare e-mail con più allegati allegati in Excel?
Questo articolo parla dell'invio di un'e-mail tramite Outlook con più allegati allegati in Excel.
Invia e-mail con più allegati allegati in Excel con codice VBA
Invia e-mail con più allegati allegati in Excel con codice VBA
Si prega di fare quanto segue per inviare un'e-mail con più allegati allegati in Excel.
1. Inserire un pulsante di comando facendo clic Costruttori > inserire > Pulsante di comando (controllo ActiveX). Vedi screenshot:
2. Dopo aver inserito il pulsante di comando, fare clic con il pulsante destro del mouse e selezionare Visualizza codice dal menu di scelta rapida.
3. In apertura Microsoft Visual Basic, Applications Edition finestra, fare clic Strumenti > Riferimenti come mostrato nell'immagine sottostante.
4. Nel Riferimenti - VBAProject finestra di dialogo, trova e controlla il file Libreria di oggetti di Microsoft Outlook opzione, quindi fare clic su OK pulsante.
5. Quindi sostituire il codice originale nella finestra del codice con il codice VBA sottostante.
Codice VBA: invia e-mail allegata 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 = ""
.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 SubNote:: specifica il destinatario, l'oggetto e il corpo dell'e-mail modificando la variazione in .A = , .Subject = "test" ed .HTMLBody = "test" righe nel codice.
6. premi il altro + Q tasti insieme per uscire da Microsoft Visual Basic, Applications Edition finestra.
7. Clic Costruttori > Modalità di progettazione per disattivare la modalità di progettazione. Vedi screenshot:
8. Fare clic sul pulsante di comando per eseguire il codice. Nel spuntare Scopri la nostra gamma di prodotti finestra, seleziona i file che devi allegare all'e-mail, quindi fai clic su OK pulsante. Vedi screenshot:
9. Quindi viene creata un'e-mail con i campi specificati e gli allegati elencati. Fare clic su Invia pulsante per inviarlo. Vedi screenshot:
Note:: Il codice VBA funziona solo quando utilizzi Outlook come programma di posta elettronica.
Invia facilmente e-mail tramite Outlook in base ai campi della mailing list creata in Excel:
I Inviare emails utilità di Kutools for Excel aiuta gli utenti a inviare e-mail tramite Outlook in base alla mailing list creata in Excel.
Scaricalo e provalo subito! (Percorso gratuito di 30 giorni)
Articoli correlati:
- Come inviare e-mail agli indirizzi e-mail specificati nelle celle in Excel?
- Come inviare e-mail copiando e incollando un intervallo specificato nel corpo dell'e-mail in Excel?
- Come inserire la firma nell'e-mail di Outlook quando si invia tramite vba in Excel?
- Come inviare e-mail se la data di scadenza è stata rispettata in Excel?
- Come inviare automaticamente e-mail in base al valore della cella in Excel?
I migliori strumenti per la produttività in ufficio
Potenzia le tue competenze di Excel con Kutools per Excel e sperimenta l'efficienza come mai prima d'ora. Kutools per Excel offre oltre 300 funzionalità avanzate per aumentare la produttività e risparmiare tempo. Fai clic qui per ottenere la funzionalità di cui hai più bisogno...
Office Tab porta l'interfaccia a schede in Office e semplifica notevolmente il tuo lavoro
- 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, piuttosto che in nuove finestre.
- Aumenta la produttività del 50% e riduce ogni giorno centinaia di clic del mouse!
