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 > Bibliographie 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 = ""
.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 SubNotes: veuillez spécifier le destinataire, l'objet et le corps de votre e-mail en modifiant la variable .À = , .Subject = "test" ainsi que les .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.
Envoyez facilement des e-mails via Outlook en fonction des champs de la liste de diffusion créée dans Excel:
Les Envoyer des emails utilité de Kutools for Excel aide les utilisateurs à envoyer des e-mails via Outlook en fonction de la liste de diffusion créée dans Excel.
Téléchargez et essayez-le maintenant ! (parcours gratuit de 30 jours)
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?
Meilleurs outils de productivité bureautique
Améliorez vos compétences Excel avec Kutools for Excel et faites l'expérience d'une efficacité comme jamais auparavant. Kutools for Excel offre plus de 300 fonctionnalités avancées pour augmenter la productivité et gagner du temps. Cliquez ici pour obtenir la fonctionnalité dont vous avez le plus besoin...
Office Tab apporte une interface à onglets à Office et facilite grandement votre travail
- Activer l'édition et la lecture par onglets dans Word, Excel, PowerPoint, Publisher, Access, Visio et Project.
- Ouvrez et créez plusieurs documents dans de nouveaux onglets de la même fenêtre, plutôt que dans de nouvelles fenêtres.
- Augmente votre productivité de 50% et réduit des centaines de clics de souris chaque jour!
