Comment envoyer un e-mail via Outlook lorsque le classeur est enregistré dans Excel?
Cet article parle de l'envoi d'un e-mail via Outlook lorsqu'un classeur spécifique est enregistré dans Excel. Veuillez faire comme le montre le tutoriel.
Envoyer un e-mail via Outlook lorsque le classeur est enregistré avec le code VBA
Envoyer un e-mail via Outlook lorsque le classeur est enregistré avec le code VBA
Pour envoyer un e-mail via Outlook lorsque le classeur est enregistré dans Excel, procédez comme suit.
1. Veuillez d'abord enregistrer le classeur en tant que classeur Excel prenant en charge les macros. Cliquez sur Déposez le > Enregistrer sous. Dans le Enregistrer sous boîte de dialogue, sélectionnez un dossier pour enregistrer le classeur, nommez-le dans la zone Nom de fichier, sélectionnez Cahier de travail Excel avec macro-activé du Enregistrer en tant que type de liste déroulante, puis cliquez sur le Épargnez bouton. Voir la capture d'écran:
2. Ouvrez le classeur Excel prenant en charge les macros que vous venez d'enregistrer, appuyez sur le bouton autre + F11 touches simultanément pour ouvrir le Microsoft Visual Basic pour applications fenêtre.
2. dans le Microsoft Visual Basic pour applications fenêtre, veuillez double-cliquer Ce classeur dans la barre de gauche, puis copiez et collez le code VBA ci-dessous dans le Ce classeur fenêtre de code. Voir la capture d'écran:
Code VBA: envoyer un e-mail lorsque le classeur est enregistré
Private Sub Workbook_AfterSave(ByVal Success As Boolean)
'Updated by Extendoffice 20181102
Dim xOutApp As Object
Dim xMailItem As Object
Dim xName As String
On Error Resume Next
Set xOutApp = CreateObject("Outlook.Application")
Set xMailItem = xOutApp.CreateItem(0)
xName = ActiveWorkbook.FullName
With xMailItem
.To = "Email Address"
.CC = ""
.Subject = "The workbook has been saved"
.Body = "Hi," & Chr(13) & Chr(13) & "File is now updated."
.Attachments.Add xName
.Display
'.send
End With
Set xMailItem = Nothing
Set xOutApp = Nothing
End SubNotes: Veuillez remplacer le Email avec l'adresse e-mail du destinataire en ligne .To = "Adresse e-mail"et modifiez les champs Cc, Subject ainsi que body dans le code VBA selon vos besoins.
3. appuie sur le autre + Q touches simultanément pour fermer le Microsoft Visual Basic pour applications fenêtre.
À partir de maintenant, lorsque vous mettez à jour le classeur et que vous l'enregistrez, un e-mail sera créé automatiquement avec le classeur mis à jour en pièce jointe. Veuillez cliquer sur le Envoyer bouton pour envoyer l'e-mail. 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 automatiquement un e-mail en fonction de la valeur de la cellule dans Excel?
- Comment envoyer un e-mail si une certaine cellule est modifiée dans Excel?
- Comment envoyer un e-mail si le bouton est cliqué dans Excel?
- Comment envoyer un e-mail si la date d'échéance a été respectée dans Excel?
- Comment envoyer un rappel ou une notification par e-mail si le classeur est mis à jour dans Excel?
Meilleurs outils de productivité bureautique
Boostez vos compétences Excel avec Kutools for Excelet 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!
