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

Pozor: změňte variantu uveďte příjemce e-mailu, předmět a tělo .To = happy.xuebi@163.com, .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 Odeslat tlačítko pro odeslání. Viz screenshot:

Pozor: Kód VBA funguje, pouze když používáte Outlook jako svůj e-mailový program.

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?