Kako poslati e-pošto z več prilogami, priloženimi v Excelu?
Ta članek govori o pošiljanju e-pošte prek Outlooka z več prilogami, priloženimi v Excelu.
Pošljite e-pošto z več prilogami, priloženimi v Excelu s kodo VBA
Pošljite e-pošto z več prilogami, priloženimi v Excelu s kodo VBA
Naredite naslednje, če želite poslati e-poštno sporočilo z več prilogami, priloženimi v Excelu.
1. S klikom vstavite ukazni gumb Razvojni > Vstavi > Ukazni gumb (nadzor ActiveX). Oglejte si posnetek zaslona:
2. Ko vstavite ukazni gumb, ga kliknite z desno miškino tipko in izberite Ogled kode iz kontekstnega menija.
3. Na odprtju Microsoft Visual Basic za aplikacije okno, kliknite Orodja > Reference kot je prikazano spodaj.
4. V Ljubljani Reference - VBAProject pogovorno okno, poiščite in preverite Knjižnica predmetov Microsoft Outlook in nato kliknite OK gumb.
5. Nato zamenjajte izvirno kodo v oknu Code s spodnjo kodo VBA.
Koda VBA: Pošljite e-poštno sporočilo, priloženo z več prilogami v Excelu
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
Opombe: določite prejemnika, zadevo in telo, tako da spremenite spremenljivko v .Za = , .Subject = "test" in .HTMLBody = "test" vrstice v kodi.
6. Pritisnite druga + Q za izhod iz Microsoft Visual Basic za aplikacije okno.
7. klik Razvojni > Način oblikovanja da izklopite način oblikovanja. Oglejte si posnetek zaslona:
8. Kliknite ukazni gumb, da zaženete kodo. V pojavnem oknu Brskanje izberite datoteke, ki jih želite priložiti e-poštnemu sporočilu, in nato kliknite OK . Oglejte si posnetek zaslona:
9. Nato se ustvari e-poštno sporočilo z navedenimi navedenimi polji in prilogami. Kliknite Pošlji gumb, da ga pošljete. Oglejte si posnetek zaslona:
Opombe: Koda VBA deluje samo, če Outlook uporabljate kot svoj e-poštni program.
Preprosto pošiljanje e-pošte prek Outlooka na podlagi polj ustvarjenega poštnega seznama v Excelu:
O Pošlji e-pošto uporabnost Kutools za Excel pomaga uporabnikom, ki pošiljajo e-pošto prek Outlooka na podlagi ustvarjenega poštnega seznama v Excelu.
Prenesite in preizkusite zdaj! (30-dnevna brezplačna pot)
Sorodni članki:
- Kako poslati e-pošto na e-poštne naslove, določene v celicah v Excelu?
- Kako poslati e-pošto s kopiranjem in lepljenjem določenega obsega v telo e-pošte v Excelu?
- Kako vstaviti podpis v e-poštno sporočilo Outlooka pri pošiljanju prek vba v Excelu?
- Kako poslati e-pošto, če je bil datum izpolnjen v Excelu?
- Kako samodejno poslati e-pošto na podlagi vrednosti celice v Excelu?
Najboljša pisarniška orodja za produktivnost
Napolnite svoje Excelove spretnosti s Kutools za Excel in izkusite učinkovitost kot še nikoli prej. Kutools za Excel ponuja več kot 300 naprednih funkcij za povečanje produktivnosti in prihranek časa. Kliknite tukaj, če želite pridobiti funkcijo, ki jo najbolj potrebujete...
Kartica Office prinaša vmesnik z zavihki v Office in poenostavi vaše delo
- Omogočite urejanje in branje z zavihki v Wordu, Excelu, PowerPointu, Publisher, Access, Visio in Project.
- Odprite in ustvarite več dokumentov v novih zavihkih istega okna in ne v novih oknih.
- Poveča vašo produktivnost za 50%in vsak dan zmanjša na stotine klikov miške za vas!