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

Fantastisk! Använda effektiva flikar i Excel som Chrome, Firefox och Safari!

Spara 50% av din tid och minska tusentals musklick åt dig varje dag!

---

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 > Referenser 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 = "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

Anmärkningar: ange din e-postmottagare, ämne och kropp genom att ändra varianten i .Till = happy.xuebi@163.com, .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.

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?

---

De bästa Office-produktivitetsverktygen

Kutools för Excel löser de flesta av dina problem och ökar din produktivitet med 80%

• återanvändning: Sätt snabbt i komplexa formler, diagram och allt som du har använt tidigare; Kryptera celler med lösenord; Skapa e-postlista och skicka e-post ...
• Super Formula Bar (enkelt redigera flera rader med text och formel); Läslayout (enkelt läsa och redigera ett stort antal celler); Klistra in i filtrerat intervall...
• Sammanfoga celler / rader / kolumner utan att förlora data; Delat cellinnehåll; Kombinera duplicerade rader / kolumner... Förhindra duplicerade celler; Jämför intervall...
• Välj Duplicera eller Unikt Rader; Välj tomma rader (alla celler är tomma); Super Find och Fuzzy Find i många arbetsböcker; Slumpmässigt val ...
• Exakt kopia Flera celler utan att ändra formelreferens; Skapa referenser automatiskt till flera ark; Sätt in kulor, Kryssrutor och mer ...
• Extrahera text, Lägg till text, ta bort efter position, Ta bort mellanslag; Skapa och skriva ut personsökningstalsatser; Konvertera mellan celler innehåll och kommentarer...
• Superfilter (spara och tillämpa filterscheman på andra ark); Avancerad sortering efter månad / vecka / dag, frekvens och mer; Specialfilter av fet, kursiv ...
• Kombinera arbetsböcker och arbetsblad; Sammanfoga tabeller baserat på nyckelkolumner; Dela data i flera ark; Batchkonvertera xls, xlsx och PDF...
• Mer än 300 kraftfulla funktioner. Stöder Office / Excel 2007-2021 och 365. Stöder alla språk. Enkel implementering i ditt företag eller organisation. Fullständiga funktioner 30 dagars gratis provperiod. 60 dagars pengarna tillbaka-garanti.

Läs mer... Gratis nedladdning... Köp... 

---

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!

Läs mer... Gratis nedladdning... Köp...