Comment envoyer un e-mail avec plusieurs pièces jointes dans Excel?

Cet article parle de l'envoi d'un e-mail via Outlook avec plusieurs pièces jointes jointes dans Excel.

Envoyer un e-mail avec plusieurs pièces jointes jointes dans Excel avec le code VBA

Envoyer un e-mail avec plusieurs pièces jointes jointes dans Excel avec le code VBA

Veuillez procéder comme suit pour envoyer un e-mail avec plusieurs pièces jointes jointes dans Excel.

1. Veuillez insérer un bouton de commande en cliquant Développeur > insérer > Bouton de commande (contrôle ActiveX). Voir la capture d'écran:

2. Après avoir inséré le bouton de commande, cliquez dessus avec le bouton droit de la souris et sélectionnez Voir le code dans le menu contextuel.

3. Dans l'ouverture Microsoft Visual Basic pour applications fenêtre, veuillez cliquer Outils > Références comme ci-dessous la capture d'écran montrée.

4. dans le Références - VBAProject boîte de dialogue, veuillez trouver et vérifier la Bibliothèque d'objets Microsoft Outlook , puis cliquez sur le OK .

5. Remplacez ensuite le code d'origine dans la fenêtre Code par le code VBA ci-dessous.

Code VBA: envoyer un e-mail en pièce jointe avec plusieurs pièces jointes dans 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

Notes: veuillez spécifier le destinataire, l'objet et le corps de votre e-mail en modifiant la variable .À = heureux.xuebi@163.com, .Subject = "test" et .HTMLBody = "test" lignes dans le code.

6. appuie sur le autre + Q touches ensemble pour quitter Microsoft Visual Basic pour applications fenêtre.

7. Cliquez Développeur > Mode de conception pour désactiver le mode de conception. Voir la capture d'écran:

8. Cliquez sur le bouton de commande pour exécuter le code. Dans le popping Explorer fenêtre, sélectionnez les fichiers à joindre à l'e-mail, puis cliquez sur le OK bouton. Voir la capture d'écran:

9. Ensuite, un e-mail est créé avec les champs spécifiés et les pièces jointes répertoriées. Veuillez cliquer sur le Envoyer bouton pour l'envoyer. Voir la capture d'écran:

Notes: Le code VBA ne fonctionne que lorsque vous utilisez Outlook comme programme de messagerie.

Articles Liés:

• Comment envoyer un e-mail à des adresses e-mail spécifiées dans des cellules dans Excel?
• Comment envoyer un e-mail en copiant et en collant une plage spécifiée dans le corps de l'e-mail dans Excel?
• Comment insérer une signature dans un e-mail Outlook lors de l'envoi par vba dans Excel?
• Comment envoyer un e-mail si la date d'échéance a été respectée dans Excel?
• Comment envoyer automatiquement un e-mail en fonction de la valeur de la cellule dans Excel?