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øjer > 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 = ""
.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 SubBemærk: angiv din e-mail-modtager, emne og brødtekst ved at ændre varianten i .Til = , .Subject = "test" , .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 spor)
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?
Bedste kontorproduktivitetsværktøjer
Overlad dine Excel-færdigheder med Kutools til Excel, og oplev effektivitet som aldrig før. Kutools til Excel tilbyder over 300 avancerede funktioner for at øge produktiviteten og spare tid. Klik her for at få den funktion, du har mest brug for...
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!
