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

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


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 prosta pot)



Sorodni članki:


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

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!
dno pisarniške mize
Komentarji (14)
Ocenjeno 5 iz 5 · 1 ocene
Ta komentar je moderator na spletnem mestu minimiziral
Z vašimi zgornjimi koraki lahko "hitro pošljem e-pošto z več prilogami, priloženimi v Excelu s Kutools for Excel", vendar bi rad naredil še en korak naprej in prilagodil vsako e-pošto tako, da vstavim njihova imena (iz stolpca na Excelovem listu) v telo e-pošte. Medtem ko sem v telesu e-poštnega sporočila, poskušam izbrati polje in klikniti "Vstavi nadomestni znak", vendar se nič ne zgodi. Imate kakšno idejo zakaj ali kako lahko to popravim? Hvala vam!
Ta komentar je moderator na spletnem mestu minimiziral
Kaj pa, če se zgornje datoteke nahajajo v podmapah? Kako iskati datoteko v mapi in podmapah?
Ta komentar je moderator na spletnem mestu minimiziral
Kaj pa, če je treba poslati več različnih uporabnikov in različne priloge z različnimi zadevo.
Ta komentar je moderator na spletnem mestu minimiziral
zgornja koda deluje odlično, hvala!! vendar se zdi, da moj e-poštni samodejni podpis izgine s to kodo. kakšna ideja zakaj?
Ta komentar je moderator na spletnem mestu minimiziral
HI ekipa .... ne vidim priloge v pošti, tako da če sledim vašim korakom ... ali lahko pomagate
Ta komentar je moderator na spletnem mestu minimiziral
Super...... Deluje odlično.
Ta komentar je moderator na spletnem mestu minimiziral
Užival sem pri delu s to rešitvijo za dodajanje več prilog e-poštnemu sporočilu iz programa Excel VBA. Hvala vam. Vem, da mnogi od nas imajo koristi in potem želijo, da bi bil nek vidik prilagojen točno temu, kar poskušamo narediti. Jaz se ne razlikujem, ampak za korak 8. Ali lahko nastavimo pot, ki bo Brskanje se bo okno odprlo z? Lahko prebrskam do druge mape na drugi lokaciji, vendar če bi lahko nastavil pot, bi to prihranilo čas.
Ta komentar je moderator na spletnem mestu minimiziral
Pozdravljeni,
Me gustaría saber 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.
Hvala lepa.
Ta komentar je moderator na spletnem mestu minimiziral
Is het ook mogelijk om een ​​filter te zetten op de selectie van de bijlagen, zodat er alleen pdf-bestanden aan de mail kunnen worden toegevoegd?
Ta komentar je moderator na spletnem mestu minimiziral
Pozdravljeni Alex de Graaf,
Koda neposredno pokliče Microsoftovo okno za izbiro datotek. To uporabnikom VBA olajša izbiro potrebnih datotek.
Ta komentar je moderator na spletnem mestu minimiziral
Živjo Crystal,

Ja, to razumem. Vendar želim, da lahko uporabniki izbirajo samo datoteke pdf.
Je to mogoče?
Ta komentar je moderator na spletnem mestu minimiziral
Pozdravljeni Alex de Graaf,
Naslednja koda VBA navaja samo datoteke PDF v oknu za brskanje. Prosim poskusite.

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
Ta komentar je moderator na spletnem mestu minimiziral
Živjo Crystal,
Ja, to razumem. Vendar, ali je mogoče omejiti uporabnike, da izberejo samo datoteke pdf?
Ta komentar je moderator na spletnem mestu minimiziral
أريد إرسال بريد إلكتروني مع البريد أو hotmail مع CDO ولكن كل ما لدي فقط مع مرفق واحد ولكن أريد أن أرسل مع العديد من المرفقات يرجى إرسال لي عن طريق بريدي الإلكتروني الرمز أو ملف Excel naims62@hotmail.com
Ocenjeno 5 iz 5
Tu še ni objavljenih komentarjev

Sledi nam

Copyright © 2009 - www.extendoffice.com. | Vse pravice pridržane. Poganja ga ExtendOffice. | Kazalo
Microsoft in logotip Office sta blagovni znamki ali registrirani blagovni znamki družbe Microsoft Corporation v ZDA in / ali drugih državah.
Zaščiteno s Sectigo SSL