Note: The other languages of the website are Google-translated. Back to English

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

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.


Send nemt e-mail via Outlook baseret på felter i den oprettede postliste i Excel:

Send emails nytte af Kutools til Excel hjælper brugere med at sende e-mail via Outlook baseret på oprettet mailingliste i Excel.
Download og prøv det nu! (30-dages gratis sti)



Relaterede artikler:


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.
kte-fane 201905

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!
officetab bund
Sorter kommentarer efter
Kommentarer (14)
Bedømt 5 ud af 5 · 1 vurderinger
Denne kommentar blev minimeret af moderatoren på webstedet
Jeg er i stand til at "hurtigt sende e-mail med flere vedhæftede filer i Excel med Kutools for Excel" ved at bruge dine trin ovenfor, men vil gerne tage det et skridt videre og personliggøre hver e-mail ved at indsætte deres navne (fra en kolonne i Excel-arket) ind i e-mailens brødtekst. Mens jeg er i e-mailens brødtekst, prøver jeg at vælge feltet og klikke på "Indsæt pladsholder", men der sker ikke noget. Har du nogen idé om hvorfor eller hvordan jeg kan løse dette? Tak skal du have!
Denne kommentar blev minimeret af moderatoren på webstedet
Hvad hvis ovenstående filer er placeret i undermapper? Hvordan leder man efter en fil i mapper og undermapper?
Denne kommentar blev minimeret af moderatoren på webstedet
Hvad hvis flere forskellige brugere og forskellige vedhæftede filer skal sendes med forskellig emnelinje.
Denne kommentar blev minimeret af moderatoren på webstedet
ovenstående kode fungerer perfekt tak!! men min automatiske e-mailsignatur ser ud til at forsvinde med denne kode. nogen idé hvorfor?
Denne kommentar blev minimeret af moderatoren på webstedet
HI Team ....jeg kan ikke se den vedhæftede fil i mailen, så hvis jeg følger dit trin...kan du venligst hjælpe
Denne kommentar blev minimeret af moderatoren på webstedet
Fantastisk...... Virker perfekt.
Denne kommentar blev minimeret af moderatoren på webstedet
Jeg har nydt at arbejde gennem denne løsning for at tilføje flere vedhæftede filer til en e-mail fra Excel VBA. Tak skal du have. Jeg ved, at mange af os har gavn af det og så vil have et aspekt tilpasset til præcis det, vi forsøger at gøre. Jeg er ikke anderledes, men for trin 8. Kan vi sætte den vej, som Gennemse vindue åbnes med? Jeg kan bladre over til en anden mappe på en anden placering, men hvis jeg kunne indstille stien, ville det være en tidsbesparelse.
Denne kommentar blev minimeret af moderatoren på webstedet
Hej,
Me gustaría sabre como quedaría la macro si quisiera enviar en un mismo correo a varias personas o más y con varios ficheros o más.
Mange tak.
Denne kommentar blev minimeret af moderatoren på webstedet
Er det også muligt at bruge et filter til at sætte ind i udvalget af bilagene, så du kun kan tilføje pdf-filer til en mail?
Denne kommentar blev minimeret af moderatoren på webstedet
Hej Alex de Graaf,
Koden kalder direkte Microsofts filvalgsvindue. Dette gør det nemt for VBA-brugere at vælge nødvendige filer.
Denne kommentar blev minimeret af moderatoren på webstedet
Hej Crystal,

Ja det kan jeg godt forstå. Jeg ønsker dog, at brugerne kun skal kunne vælge pdf-filer.
Er det muligt?
Denne kommentar blev minimeret af moderatoren på webstedet
Hej Alex de Graaf,
Den følgende VBA-kode viser kun PDF-filerne i vinduet Gennemse. Prøv det.

Private Sub CommandButton1_Click()
'Updated by Extendoffice 20220714
    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)
    xFileDlg.Filters.Add "PDF", "*.pdf", 1
xFileDlg.FilterIndex = 1
    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
Denne kommentar blev minimeret af moderatoren på webstedet
Hej Crystal,
Ja, det forstår jeg godt. Men er det muligt at begrænse brugere til kun at vælge pdf-filer?
Denne kommentar blev minimeret af moderatoren på webstedet
أريد إرسال بريد إلكتروني مع البريد أو hotmail مع CDO ولكن كل ما لدي فقط مع مرفق واحد ولكن أريد أن أرسل مع العديد من المرفقات يرجى إرسال لي عن طريق بريدي الإلكتروني الرمز أو ملف Excel naims62@hotmail.com
Bedømt 5 ud af 5
Der er endnu ingen kommentarer her
Efterlad dine kommentarer
Sender som gæst
×
Bedøm dette indlæg:
0   Tegn
Foreslåede steder

Følg os

Copyright © 2009 - www.extendoffice.com. | Alle rettigheder forbeholdes. Drevet af ExtendOffice. | | Sitemap
Microsoft og Office-logoet er varemærker eller registrerede varemærker tilhørende Microsoft Corporation i USA og / eller andre lande.
Beskyttet af Sectigo SSL