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 = ""
.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 .To = , .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 pálya)
Kapcsolódó cikkek:
- Hogyan küldhetünk e-mailt az Excel celláiban megadott e-mail címekre?
- Hogyan küldhetünk e-mailt egy meghatározott tartomány másolásával és beillesztésével az Excel e-mail törzsébe?
- Hogyan illesszünk aláírást az Outlook e-mailbe, amikor vba-val küldjük az Excel-ben?
- Hogyan lehet e-mailt küldeni, ha az Excel határidejét betartotta?
- Hogyan küldhetünk automatikusan e-mailt az Excel cellája alapján?
A legjobb irodai hatékonyságnövelő eszközök
Töltsd fel Excel-készségeidet a Kutools for Excel segítségével, és tapasztald meg a még soha nem látott hatékonyságot. A Kutools for Excel több mint 300 speciális funkciót kínál a termelékenység fokozásához és az időmegtakarításhoz. Kattintson ide, hogy megszerezze a leginkább szükséges funkciót...
Az Office lap füles felületet hoz 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!