Si vous devez créer automatiquement un nouvel e-mail avec un classeur actif joint lorsque les cellules de la plage A2: E11 sont modifiées dans une certaine feuille de calcul, le code VBA suivant peut vous aider.
1. Dans la feuille de calcul dont vous avez besoin pour envoyer un e-mail en fonction de sa cellule modifiée dans une certaine plage, cliquez avec le bouton droit sur l'onglet de la feuille, puis cliquez sur le bouton Voir le code dans le menu contextuel. Voir la capture d'écran:
2. Dans le pop-up Microsoft Visual Basic pour applications , veuillez copier et coller ci-dessous le code VBA dans la fenêtre Code.
Code VBA: envoyer un e-mail si la cellule d'une plage spécifiée est modifiée dans Excel
Private Sub Worksheet_Change(ByVal Target As Range)
'Updated by Extendoffice 2017/9/12
Dim xRgSel As Range
Dim xOutApp As Object
Dim xMailItem As Object
Dim xMailBody As String
On Error Resume Next
Application.ScreenUpdating = False
Application.DisplayAlerts = False
Set xRg = Range("A2:E11")
Set xRgSel = Intersect(Target, xRg)
ActiveWorkbook.Save
If Not xRgSel Is Nothing Then
Set xOutApp = CreateObject("Outlook.Application")
Set xMailItem = xOutApp.CreateItem(0)
xMailBody = "Cell(s) " & xRgSel.Address(False, False) & _
" in the worksheet '" & Me.Name & "' were modified on " & _
Format$(Now, "mm/dd/yyyy") & " at " & Format$(Now, "hh:mm:ss") & _
" by " & Environ$("username") & "."
With xMailItem
.To = "Email Address"
.Subject = "Worksheet modified in " & ThisWorkbook.FullName
.Body = xMailBody
.Attachments.Add (ThisWorkbook.FullName)
.Display
End With
Set xRgSel = Nothing
Set xOutApp = Nothing
Set xMailItem = Nothing
End If
Application.DisplayAlerts = True
Application.ScreenUpdating = True
End Sub
Notes:
1). Dans le code, A2: E11 est la plage sur laquelle vous enverrez un e-mail.
2). Veuillez modifier le corps de l'e-mail selon vos besoins dans xMailCorps ligne dans le code.
3). Remplace le Adresse courriel avec l'adresse e-mail du destinataire en ligne .To = "Adresse e-mail".
4). Changer l'objet de l'e-mail en ligne .Subject = "Feuille de travail modifiée dans" & ThisWorkbook.FullName.
3. appuie sur le autre + Q touches simultanément pour fermer le Microsoft Visual Basic pour applications fenêtre.
À partir de maintenant, toute cellule de la plage A2: E11 est modifiée, un nouvel e-mail sera créé avec le classeur mis à jour en pièce jointe. Et tous les champs spécifiés tels que l'objet, le destinataire et le corps de l'e-mail seront répertoriés dans l'e-mail. Merci d'envoyer l'e-mail.
Notes: Le code VBA ne fonctionne que lorsque vous utilisez Outlook comme programme de messagerie.
Kutools for Excel résout la plupart de vos problèmes et augmente votre productivité de 80%
Réutilisation: Insérer rapidement formules complexes, graphiques et tout ce que vous avez utilisé auparavant; Crypter les cellules avec mot de passe; Créer une liste de diffusion et envoyer des e-mails ...
Barre Super Formula (modifiez facilement plusieurs lignes de texte et de formule); Disposition de lecture (lire et modifier facilement un grand nombre de cellules); Coller dans la plage filtrée...
Fusionner les cellules / lignes / colonnes sans perdre de données; Contenu des cellules divisées; Combiner des lignes / colonnes en double... Empêcher les cellules en double; Comparer les gammes...
Sélectionnez Dupliquer ou Unique Lignes; Sélectionnez les lignes vides (toutes les cellules sont vides); Super Find et Fuzzy Find dans de nombreux classeurs; Sélection aléatoire ...
Copie exacte Plusieurs cellules sans changer la référence de formule; Créer automatiquement des références à plusieurs feuilles; Insérer des puces, Cases à cocher et plus encore ...
Extrait du texte, Ajouter du texte, Supprimer par position, Supprimer l'espace; Créer et imprimer des sous-totaux de pagination; Conversion entre le contenu et les commentaires des cellules...
Super filtre (enregistrer et appliquer des schémas de filtrage à d'autres feuilles); Tri avancé par mois / semaine / jour, fréquence et plus; Filtre spécial par gras, italique ...
Combiner des classeurs et des feuilles de travail; Fusionner les tableaux en fonction des colonnes clés; Diviser les données en plusieurs feuilles; Conversion par lots xls, xlsx et PDF...
Plus de 300 fonctionnalités puissantes. Prend en charge Office / Excel 2007-2019 et 365. Prend en charge toutes les langues. Déploiement facile dans votre entreprise ou organisation. Essai gratuit de 30 jours. Garantie de remboursement de 60 jours.
Hello, i was trying to send emails on my sheet using one value changed on the sheet. If on column H the status will be changed to ="4" the Order ID in the left should be send to one user. The sheet works dynamicly so i have a Range from D9:D140 where order id's are stored and status changes are made in the same range on H9:H140. How can i reach the goal to do so and send the Order ID to my customer when status has been changed to ="4" ?
Any help on this request? I am having same issue. I want to add multiple email address per row, but when I change one row, the entire worksheet changes. How can I limit the changes only to one row?
Edit linie:
1). In the code, A2:E11 is the range you will send email based on.
and
3). Replace the Email Address with the recipient email address in line .To = "Email Address".
Can you please explain this further. How do you repeat the code to send to a different email based on another range being modified. I have tried copy and pasting the code below and changing as per your comment, but still only the first range seems to execute the command and write the email.
hi; is there a way to change text displayed using information from other cells (from first row and first column)? for example, if I change cell K15, I want to include in the message info on cells A15 and K1? what should I change in the code? thank you very much
I have tried above VBA code: Send email if cell in a specified range is modified in Excel. This VBA works for me except sending email. When the data is modified in the given range an email is automatically generated with modified cell details. However, the email is not automatically sending to the recipient and the user has to click send button in the email. What I am looking here is, the email has to send to the recipients automatically when it is generated. Please help me to provide a code for this. Many thanks
Private Sub Worksheet_Change(ByVal Target As Range) Dim xRgSel As Range
Dim xOutApp As Object Dim xMailItem As Object
Dim xMailBody As String On Error Resume Next
Application.ScreenUpdating = False Application.DisplayAlerts = False
Set xRg = Range("A2:E11") Set xRgSel = Intersect(Target, xRg)
ActiveWorkbook.Save If Not xRgSel Is Nothing Then
Set xOutApp = CreateObject("Outlook.Application") Set xMailItem = xOutApp.CreateItem(0)
xMailBody = "Cell(s) " & xRgSel.Address(False, False) & _
xRgSel.Value & _ " in the worksheet '" & Me.Name & "' were modified on " & _
Format$(Now, "mm/dd/yyyy") & " at " & Format$(Now, "hh:mm:ss") & _ " by " & Environ$("username") & "."
With xMailItem
.To = "Email Address" .Subject = "Worksheet modified in " & ThisWorkbook.FullName
.Body = xMailBody .Attachments.Add (ThisWorkbook.FullName)
.Display End With
Set xRgSel = Nothing Set xOutApp = Nothing
Set xMailItem = Nothing End If
Application.DisplayAlerts = True Application.ScreenUpdating = True
End Sub
I have an excel to monitor daily work done details by our worker from the field, so is this possible to trigger a mail from excel sheet if that guy failed to update the data in that excel sheet on given time.
I was able to create the macro, however I'm having a problem. I would like to automatically send an email when a cell reaches a certain threshold. The cell is a formula. When the calculation sum goes below the said threshold it doesn't do anything; however, if I type directly into the cell it will process the macro as planned. Does the formula mess up the macro?
Hi Sissy Jones,
The method in this article: How to automatically send email based on cell value in Excel?
https://www.extendoffice.com/documents/excel/4656-excel-send-email-based-on-cell-value.html may help you solve the problem.
I am stuck in below VB code. I am trying to get email notification to the user where the data has been changed. Email is working but when I make any change email initiated at once but I want email when excel sheet is saved and closed after making all the changes to all users who impacted. Also this should be working for any of the sheets in entire excel workbook.
Please help...
Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
'****Declaration of objects and variables******
Dim xRgSel As Range Dim xOutApp As Object Dim xMailItem As Object Dim xMailBody As String Dim mailTo As String
Dear Pankaj Shukla,
Post your Excel question to our forum: https://www.extendoffice.com/forum.html to get more supports about Excel from our Excel professional.
