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

Neverjetno! Uporaba učinkovitih zavihkov v Excelu Tako kot Chrome, Firefox in Safari!

Prihranite 50% svojega časa in vsak dan zmanjšajte na tisoče klikov z miško!

---

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

Opombe: določite prejemnika, zadevo in telo, tako da spremenite spremenljivko v .To = srečen.xuebi@163.com, .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.

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 orodja za pisarniško produktivnost

Kutools za Excel rešuje večino vaših težav in poveča vašo produktivnost za 80%

• Ponovna uporaba: Hitro vstavite zapletene formule, grafikoni in vse, kar ste že uporabljali; Šifriraj celice z geslom; Ustvari poštni seznam in pošiljanje e-pošte ...
• Vrstica Super Formula (enostavno urejanje več vrstic besedila in formule); Bralna postavitev (enostavno branje in urejanje velikega števila celic); Prilepite v filtrirani obseg...
• Združi celice / vrstice / stolpce brez izgube podatkov; Vsebina razdeljenih celic; Združi podvojene vrstice / stolpce... prepreči podvojene celice; Primerjaj obsege...
• Izberite Duplicate ali Unique Vrstice; Izberite prazne vrstice (vse celice so prazne); Super Find in Fuzzy Find v mnogih delovnih zvezkih; Naključna izbira ...
• Natančna kopija Več celic brez spreminjanja sklica formule; Samodejno ustvarjanje referenc na več listov; Vstavi oznake, Potrditvena polja in še več ...
• Izvleček besedila, Dodaj besedilo, Odstrani po položaju, Odstrani presledek; Ustvari in natisni vmesne seštevke strani Pretvarjanje med vsebino celic in komentarji...
• Super filter (shranite in uporabite sheme filtrov za druge liste); Napredno razvrščanje glede na mesec / teden / dan, pogostost in drugo; Poseben filter s krepko, ležeče ...
• Združite delovne zvezke in delovne liste; Spoji tabele na podlagi ključnih stolpcev; Razdelite podatke na več listov; Paketna pretvorba xls, xlsx in PDF...
• Več kot 300 zmogljivih funkcij. Podpira Office / Excel 2007-2021 in 365. Podpira vse jezike. Enostavna uvedba v vašem podjetju ali organizaciji. 30-dnevna brezplačna preizkusna različica vseh funkcij. 60-dnevna garancija vračila denarja.

Preberite več ... Brezplačen prenos... Nakup ... 

---

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!

Preberite več ... Brezplačen prenos... Nakup ...