Jak odeslat e-mail s více přílohami připojenými v aplikaci Excel?
Tento článek hovoří o odesílání e-mailů prostřednictvím aplikace Outlook s více přílohami připojenými v aplikaci Excel.
Odesílejte e-maily s více přílohami připojenými v aplikaci Excel pomocí kódu VBA
Odesílejte e-maily s více přílohami připojenými v aplikaci Excel pomocí kódu VBA
Chcete-li odeslat e-mail s více přílohami v aplikaci Excel, postupujte následovně.
1. Vložte příkazové tlačítko kliknutím Vývojka > Vložit > Příkazové tlačítko (ovládání ActiveX). Viz snímek obrazovky:
2. Po vložení příkazového tlačítka na něj klikněte pravým tlačítkem a vyberte Zobrazit kód z kontextové nabídky.
3. V otvoru Microsoft Visual Basic pro aplikace okno, klikněte prosím Tools > Reference jak je ukázáno níže.
4. V Reference - VBAProject V dialogovém okně vyhledejte a zkontrolujte Objektová knihovna Microsoft Outlook možnost a poté klikněte na OK .
5. Poté nahraďte původní kód v okně Kód za níže uvedený kód VBA.
Kód VBA: Odesílejte e-maily s více přílohami v aplikaci Excel
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 SubPoznámka: změňte variantu uveďte příjemce e-mailu, předmět a tělo .To = , .Subject = "test" a .HTMLBody = "test" řádky v kódu.
6. zmáčkni Další + Q klávesy společně opustíte Microsoft Visual Basic pro aplikace okno.
7. cvaknutí Vývojka > Režim návrhu vypnete režim návrhu. Viz screenshot:
8. Klepnutím na příkazové tlačítko spusťte kód. Ve vyskakovacím okně Procházet V okně vyberte soubory, které potřebujete připojit k e-mailu, a poté klikněte na ikonu OK knoflík. Viz screenshot:
9. Poté se vytvoří e-mail se zadanými poli a přílohami. Klikněte prosím na Poslat tlačítko pro odeslání. Viz screenshot:
Poznámka: Kód VBA funguje, pouze když používáte Outlook jako svůj e-mailový program.
Snadno odesílejte e-maily prostřednictvím aplikace Outlook na základě polí vytvořeného seznamu adres v aplikaci Excel:
Projekt Odeslat e-maily užitečnost Kutools pro Excel pomáhá uživatelům odesílat e-maily prostřednictvím Outlooku na základě vytvořeného seznamu adres v aplikaci Excel.
Stáhněte si a vyzkoušejte! (30denní bezplatná trasa)
Související články:
- Jak odeslat e-mail na e-mailové adresy uvedené v buňkách v aplikaci Excel?
- Jak odeslat e-mail s kopírováním a vložením zadaného rozsahu do těla e-mailu v aplikaci Excel?
- Jak vložit podpis do e-mailu aplikace Outlook při odesílání pomocí VBA v aplikaci Excel?
- Jak poslat e-mail, pokud byl v aplikaci Excel splněn termín splatnosti?
- Jak automaticky odesílat e-maily na základě hodnoty buňky v aplikaci Excel?
Nejlepší nástroje pro produktivitu v kanceláři
Rozšiřte své dovednosti Excel pomocí Kutools pro Excel a zažijte efektivitu jako nikdy předtím. Kutools for Excel nabízí více než 300 pokročilých funkcí pro zvýšení produktivity a úsporu času. Kliknutím sem získáte funkci, kterou nejvíce potřebujete...
Office Tab přináší do Office rozhraní s kartami a usnadňuje vám práci
- Povolte úpravy a čtení na kartách ve Wordu, Excelu, PowerPointu, Publisher, Access, Visio a Project.
- Otevřete a vytvořte více dokumentů na nových kartách ve stejném okně, nikoli v nových oknech.
- Zvyšuje vaši produktivitu o 50%a snižuje stovky kliknutí myší každý den!
