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

Hogyan küldjön e-mailt az Excelhez csatolt több melléklettel?

Ez a cikk arról szól, hogy e-mailt küldjön az Outlook alkalmazáson keresztül az Excelhez csatolt több melléklettel.

Küldjön e-mailt az Excelhez csatolt több melléklettel, VBA kóddal


Küldjön e-mailt az Excelhez csatolt több melléklettel, VBA kóddal

Kérjük, tegye a következőket, ha e-mailt szeretne küldeni az Excel számos mellékletével.

1. Kattintson a gombra kattintva Fejlesztő > betétlap > Parancs gomb (ActiveX vezérlő). Lásd a képernyőképet:

2. A Parancs gomb behelyezése után kattintson rá a jobb gombbal, és válassza a lehetőséget Kód megtekintése a helyi menüből.

3. A nyílásban Microsoft Visual Basic for Applications ablakot, kérjük kattintson Eszközök > Referenciák az alábbi képernyőképen látható.

4. Ban,-ben Referenciák - VBAProject párbeszédpanelt, kérjük, keresse meg és ellenőrizze a Microsoft Outlook objektumkönyvtár lehetőséget, majd kattintson a gombra OK gombot.

5. Ezután cserélje ki az eredeti kódot a Kód ablakban az alábbi VBA kódra.

VBA kód: E-mail küldése több melléklettel csatolva az Excelben

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

Megjegyzések: kérjük, adja meg az e-mail címzettjét, tárgyát és törzsét a variáns megváltoztatásával .Ho = happy.xuebi@163.com, .Subject = "teszt" és a .HTMLBody = "teszt" sorok a kódban.

6. megnyomni a más + Q gombokkal együtt kiléphet a Microsoft Visual Basic for Applications ablak.

7. kettyenés Fejlesztő > Tervezési mód a Tervezési mód kikapcsolásához. Lásd a képernyőképet:

8. Kattintson a Parancs gombra a kód futtatásához. A felbukkanóban Tallózás ablakban válassza ki az e-mailben csatolandó fájlokat, majd kattintson a gombra OK gomb. Lásd a képernyőképet:

9. Ezután létrejön egy e-mail a megadott mezőkkel és mellékletekkel együtt. Kattintson a gombra Küldés gombra a küldéséhez. Lásd a képernyőképet:

Megjegyzések: A VBA kód csak akkor működik, ha az Outlook programot használja e-mail programként.


Könnyen küldhet e-mailt az Outlook segítségével az Excelben létrehozott levelezőlista mezői alapján:

A Emaileket küld hasznossága Kutools az Excel számára segíti a felhasználókat az Outlook segítségével az Excel létrehozott levelezőlista alapján.
Töltse le és próbálja ki most! (30-napos ingyenes túra)



Kapcsolódó cikkek:


A legjobb irodai termelékenységi eszközök

A Kutools for Excel megoldja a legtöbb problémát, és 80% -kal növeli a termelékenységet

  • újrafelhasználás: Gyorsan helyezze be összetett képletek, diagramok és bármi, amit korábban használt; Cellák titkosítása jelszóval; Levelezőlista létrehozása és e-maileket küldeni ...
  • Szuper Formula Bár (könnyedén szerkeszthet több szöveget és képletet); Olvasás elrendezés (könnyen olvasható és szerkeszthető nagyszámú cella); Beillesztés a Szűrt tartományba...
  • Cellák / sorok / oszlopok egyesítése az adatok elvesztése nélkül; Osztott cellák tartalma; Kombinálja a duplikált sorokat / oszlopokat... megakadályozza az ismétlődő cellákat; Hasonlítsa össze a tartományokat...
  • Válassza a Másolat vagy az Egyedi lehetőséget Sorok; Válassza az Üres sorok lehetőséget (az összes cella üres); Super Find és Fuzzy Find sok munkafüzetben; Véletlenszerű kiválasztás ...
  • Pontos másolás Több cella a képletreferencia megváltoztatása nélkül; Automatikus referenciák létrehozása több lapra; Helyezze be a golyókat, Jelölőnégyzetek és még sok más ...
  • Kivonat szöveg, Szöveg hozzáadása, Eltávolítás pozíció szerint, Hely eltávolítása; Hozz létre és nyomtasson személyhívó részösszegeket; Konvertálás a cellatartalom és a megjegyzések között...
  • Szuper szűrő (mentse el és alkalmazza a szűrősémákat más lapokra); Haladó rendezés hónap / hét / nap, gyakoriság és egyebek szerint; Speciális szűrő félkövér, dőlt betűvel ...
  • Kombinálja a munkafüzeteket és a munkalapokat; Táblázatok egyesítése kulcsoszlopok alapján; Az adatok felosztása több lapra; Kötegelt konvertálás xls, xlsx és PDF...
  • Több mint 300 hatékony funkció. Támogatja az Office / Excel 2007-2021 és 365 verziókat. Minden nyelvet támogat. Könnyű üzembe helyezés vállalatában vagy szervezetében. Teljes funkciók 30 napos ingyenes próbaverzió. 60 napos pénzvisszafizetési garancia.
kte lap 201905

Az Office fül a füles felületet hozza az Office-ba, és sokkal könnyebbé teszi a munkáját

  • Füles szerkesztés és olvasás engedélyezése Wordben, Excelben és PowerPointban, Publisher, Access, Visio és Project.
  • Több dokumentum megnyitása és létrehozása ugyanazon ablak új lapjain, mint új ablakokban.
  • 50% -kal növeli a termelékenységet, és naponta több száz kattintással csökkenti az egér kattintását!
officetab alja
A megjegyzések rendezése szerint
Hozzászólások (14)
Az 5-t az 5-ből kiértékelte · 1 értékelés
A weboldal moderátora ezt a megjegyzést minimalizálta
Képes vagyok "Gyorsan küldeni e-mailt több csatolt melléklettel Excelben a Kutools for Excel segítségével" a fenti lépésekkel, de szeretnék egy lépéssel tovább menni, és személyre szabni minden egyes e-mailt a nevük beszúrásával (az Excel lap egyik oszlopából) az e-mail törzsébe. Az e-mail szövegében megpróbálom kiválasztani a mezőt, és rákattintani a "Helyőrző beszúrása" gombra, de semmi sem történik. Van valami ötleted, hogy miért vagy hogyan tudnám ezt orvosolni? Köszönöm!
A weboldal moderátora ezt a megjegyzést minimalizálta
Mi a teendő, ha a fenti fájlok almappákban találhatók? Hogyan kereshetek fájlt a mappákban és az almappákban?
A weboldal moderátora ezt a megjegyzést minimalizálta
Mi van akkor, ha több különböző felhasználót és különböző mellékletet kell küldeni különböző tárgysorral.
A weboldal moderátora ezt a megjegyzést minimalizálta
a fenti kód tökéletesen működik köszönöm!! de az e-mail automatikus aláírásom ezzel a kóddal eltűnni látszik. ötlet miért?
A weboldal moderátora ezt a megjegyzést minimalizálta
Sziasztok Csapat ....nem látom a mellékletet a levélben, szóval ha követem a lépésedet... tudna segíteni pls
A weboldal moderátora ezt a megjegyzést minimalizálta
Kiváló...... Tökéletesen működik.
A weboldal moderátora ezt a megjegyzést minimalizálta
Élveztem ezt a megoldást, amellyel több mellékletet is hozzáadhatok egy e-mailhez az Excel VBA-ból. Köszönöm. Tudom, hogy sokan hasznot húzunk, és utána szeretnénk néhány szempontot testreszabni, hogy pontosan mit próbálunk csinálni. Én sem vagyok különb, de a 8. lépéshez. Beállíthatjuk-e azt az utat, hogy a Tallózás ablak nyílik? Átböngészhetek egy másik mappába egy másik helyen, de ha be tudnám állítani az elérési utat, az időt takarít meg.
A weboldal moderátora ezt a megjegyzést minimalizálta
Helló,
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.
Köszönöm szépen.
A weboldal moderátora ezt a megjegyzést minimalizálta
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?
A weboldal moderátora ezt a megjegyzést minimalizálta
Szia Alex de Graaf!
A kód közvetlenül meghívja a Microsoft fájlkiválasztó ablakát. Ez megkönnyíti a VBA-felhasználók számára a szükséges fájlok kiválasztását.
A weboldal moderátora ezt a megjegyzést minimalizálta
Szia Crystal,

Igen, megértem. Azonban azt szeretném, ha a felhasználók csak pdf fájlokat választhatnának.
Lehetséges ez?
A weboldal moderátora ezt a megjegyzést minimalizálta
Szia Alex de Graaf!
A következő VBA-kód csak a PDF-fájlokat sorolja fel a Tallózás ablakban. Kérjük, próbálja ki.

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
A weboldal moderátora ezt a megjegyzést minimalizálta
Szia Crystal,
Igen, ezt értem. Lehetséges azonban korlátozni a felhasználókat, hogy csak pdf-fájlokat válasszanak ki?
A weboldal moderátora ezt a megjegyzést minimalizálta
أريد إرسال بريد إلكتروني مع البريد أو hotmail مع CDO ولكن كل ما لدي فقط مع مرفق واحد ولكن أريد أن أرسل مع العديد من المرفقات يرجى إرسال لي عن طريق بريدي الإلكتروني الرمز أو ملف Excel naims62@hotmail.com
Az 5-t az 5-ből kiértékelte
Még senki sem írt megjegyzést
Hagyja meg észrevételeit
Feladás vendégként
×
Értékeld ezt a bejegyzést:
0   Karakterek
Javasolt helyek

Kövess minket

Copyright © 2009 - www.extendoffice.com. | Minden jog fenntartva. Powered by ExtendOffice. | Oldaltérkép
A Microsoft és az Office logó a Microsoft Corporation védjegyei vagy bejegyzett védjegyei az Egyesült Államokban és / vagy más országokban.
Sectigo SSL védi