Hvordan sendes e-mail med flere vedhæftede filer vedhæftet i Excel?

Denne artikel taler om at sende en e-mail via Outlook med flere vedhæftede filer vedhæftet i Excel.

Send e-mail med flere vedhæftede filer vedhæftet i Excel med VBA-kode

Send e-mail med flere vedhæftede filer vedhæftet i Excel med VBA-kode

Fantastiske! Brug af effektive faner i Excel Ligesom Chrome, Firefox og Safari!

Spar 50% af din tid, og reducer tusindvis af museklik for dig hver dag!

---

Gør som følger for at sende en e-mail med flere vedhæftede filer vedhæftet i Excel.

1. Indsæt en kommandoknap ved at klikke på Udvikler > indsatte > Kommando-knap (ActiveX-kontrol). Se skærmbillede:

2. Når du har indsat kommandoknappen, skal du højreklikke på den og vælge den Vis kode fra kontekstmenuen.

3. I åbningen Microsoft Visual Basic til applikationer vindue, klik venligst Værktøj > Referencer som vist nedenstående skærmbillede.

4. i Referencer - VBAProject dialogboksen, find og kontroller venligst Microsoft Outlook-objektbibliotek og klik derefter på OK .

5. Udskift derefter den originale kode i vinduet Kode med nedenstående VBA-kode.

VBA-kode: Send e-mail vedhæftet med flere vedhæftede filer 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

Bemærk: angiv din e-mail-modtager, emne og brødtekst ved at ændre varianten i .Til = happy.xuebi@163.com, .Subject = "test" og .HTMLBody = "test" linjer i koden.

6. Tryk på andre + Q tasterne sammen for at afslutte Microsoft Visual Basic til applikationer vindue.

7. klik Udvikler > Design Mode for at deaktivere designtilstand. Se skærmbillede:

8. Klik på kommandoknappen for at køre koden. I pop op Gennemse vindue, skal du vælge de filer, du skal vedhæfte i e-mailen, og derefter klikke på OK knap. Se skærmbillede:

9. Derefter oprettes en e-mail med angivne felter og vedhæftede filer. Klik på Send knappen for at sende den. Se skærmbillede:

Bemærk: VBA-koden fungerer kun, når du bruger Outlook som dit e-mail-program.

Relaterede artikler:

• Hvordan sendes e-mail til e-mail-adresser, der er angivet i celler i Excel?
• Hvordan sendes e-mail med kopiering og indsættelse af et bestemt interval i e-mail-organ i Excel?
• Hvordan indsættes signatur i Outlook-e-mail, når der sendes med vba i Excel?
• Hvordan sendes e-mail, hvis forfaldsdato er opfyldt i Excel?
• Hvordan sendes automatisk e-mail baseret på celleværdi i Excel?

---

De bedste Office-produktivitetsværktøjer

Kutools til Excel løser de fleste af dine problemer og øger din produktivitet med 80%

• Genbruge: Indsæt hurtigt komplekse formler, diagrammer og alt, hvad du har brugt før; Krypter celler med adgangskode Opret postliste og send e-mails ...
• Super formel bar (let redigere flere linjer med tekst og formel); Læsning Layout (let at læse og redigere et stort antal celler); Indsæt til filtreret rækkevidde...
• Flet celler / rækker / kolonner uden at miste data; Split celler indhold; Kombiner duplikerede rækker / kolonner... Forhindre duplikerede celler; Sammenlign områder...
• Vælg Duplicate eller Unique Rækker; Vælg tomme rækker (alle celler er tomme); Super Find og Fuzzy Find i mange arbejdsbøger; Tilfældig valg ...
• Præcis kopi Flere celler uden at ændre formelreference; Auto Opret referencer til flere ark; Indsæt kugler, Afkrydsningsfelter og mere ...
• Uddrag tekst, Tilføj tekst, Fjern efter position, Fjern mellemrum; Opret og udskriv personsøgningssubtotaler; Konverter mellem celler indhold og kommentarer...
• Superfilter (gem og anvend filterskemaer på andre ark); Avanceret sortering efter måned / uge / dag, hyppighed og mere; Specielt filter af fed, kursiv ...
• Kombiner arbejdsbøger og arbejdsark; Fletabeller baseret på nøglekolonner; Opdel data i flere ark; Batch Konverter xls, xlsx og PDF...
• Mere end 300 kraftfulde funktioner. Understøtter Office / Excel 2007-2021 og 365. Understøtter alle sprog. Nem implementering i din virksomhed eller organisation. Fuld funktioner 30-dages gratis prøveperiode. 60 dages pengene tilbage garanti.

Læs mere ... Gratis download... Køb... 

---

Fanen Office bringer en grænseflade til et kontor med Office, og gør dit arbejde meget lettere

• Aktiver redigering og læsning af faner i Word, Excel, PowerPoint, Publisher, Access, Visio og Project.
• Åbn og opret flere dokumenter i nye faner i det samme vindue snarere end i nye vinduer.
• Øger din produktivitet med 50 % og reducerer hundredvis af museklik for dig hver dag!

Læs mere ... Gratis download... Køb...