Hur skickar jag e-post med flera bilagor bifogade i Excel?
Den här artikeln talar om att skicka ett e-postmeddelande via Outlook med flera bilagor bifogade i Excel.
Skicka e-post med flera bilagor bifogade i Excel med VBA-kod
Skicka e-post med flera bilagor bifogade i Excel med VBA-kod
Gör så här för att skicka ett e-postmeddelande med flera bilagor bifogade i Excel.
1. Sätt in en kommandoknapp genom att klicka Utvecklare > Insert > Kommandoknapp (ActiveX-kontroll). Se skärmdump:
2. När du har satt in kommandoknappen, högerklicka på den och välj Visa kod från snabbmenyn.
3. I öppningen Microsoft Visual Basic för applikationer klicka på fönstret verktyg > Referensprojekt som nedan visas skärmdump.
4. I Referenser - VBAProject dialogrutan, vänligen hitta och kontrollera Microsoft Outlook-objektbibliotek och klicka sedan på OK knapp.
5. Byt sedan ut den ursprungliga koden i kodfönstret med nedanstående VBA-kod.
VBA-kod: Skicka e-post bifogad med flera bilagor i 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 Sub
Anmärkningar: ange din e-postmottagare, ämne och kropp genom att ändra varianten i .Till = , .Subject = "test" och .HTMLBody = "test" rader i koden.
6. tryck på andra + Q knapparna tillsammans för att lämna Microsoft Visual Basic för applikationer fönster.
7. klick Utvecklare > Designläge för att stänga av designläget. Se skärmdump:
8. Klicka på kommandoknappen för att köra koden. I pop-up Bläddra markera de filer du behöver bifoga i e-postmeddelandet och klicka sedan på OK knapp. Se skärmdump:
9. Sedan skapas ett e-postmeddelande med angivna fält och bilagor listade. Klicka på Skicka för att skicka den. Se skärmdump:
Anmärkningar: VBA-koden fungerar bara när du använder Outlook som ditt e-postprogram.
Skicka enkelt e-post via Outlook baserat på fält i den skapade e-postlistan i Excel:
Smakämnen Skicka e-mail nytta av Kutools för Excel hjälper användare att skicka e-post via Outlook baserat på skapad e-postlista i Excel.
Ladda ner och prova nu! (30 dagars gratis spår)
Relaterade artiklar:
- Hur skickar jag e-post till e-postadresser som anges i celler i Excel?
- Hur skickar jag e-post med kopiering och klistrar in ett angivet intervall i e-postkroppen i Excel?
- Hur infogar jag signatur i Outlook-e-post när du skickar med vba i Excel?
- Hur skickar jag e-post om förfallodatum har uppfyllts i Excel?
- Hur skickar man automatiskt e-post baserat på cellvärde i Excel?
Bästa kontorsproduktivitetsverktyg
Uppgradera dina Excel-färdigheter med Kutools för Excel och upplev effektivitet som aldrig förr. Kutools för Excel erbjuder över 300 avancerade funktioner för att öka produktiviteten och spara tid. Klicka här för att få den funktion du behöver mest...
Fliken Office ger ett flikgränssnitt till Office och gör ditt arbete mycket enklare
- Aktivera flikredigering och läsning i Word, Excel, PowerPoint, Publisher, Access, Visio och Project.
- Öppna och skapa flera dokument i nya flikar i samma fönster, snarare än i nya fönster.
- Ökar din produktivitet med 50 % och minskar hundratals musklick för dig varje dag!