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
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 Economisez 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 Adresse courriel 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.
