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 votre dernière attestation > 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 Économiser 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 Sub

Notes: Veuillez remplacer le Adresse courriel avec l'adresse e-mail du destinataire en ligne .To = "Adresse e-mail", 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?