Hur skickar jag e-post om en viss cell modifieras i Excel?
Den här artikeln talar om att skicka ett e-postmeddelande via Outlook när en cell i ett visst intervall ändras i Excel.
Skicka e-post om cell i ett visst intervall har modifierats med VBA-kod
Skicka e-post om cell i ett visst intervall har modifierats med VBA-kod
Om du behöver skapa ett nytt e-postmeddelande automatiskt med aktiv arbetsbok bifogad när en cell i intervallet A2:E11 ändras i ett visst kalkylblad, kan följande VBA-kod hjälpa dig.
1. I kalkylbladet som du behöver skicka e-post baserat på dess modifierade cell inom ett visst intervall, högerklicka på arkfliken och klicka sedan på Visa kod från snabbmenyn. Se skärmdump:
2. I pop-up Microsoft Visual Basic för applikationer kopiera och klistra in under VBA-koden i kodfönstret.
VBA-kod: Skicka e-post om cell i ett angivet intervall ändras i 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
Anmärkningar:
3. tryck på andra + Q samtidigt för att stänga Microsoft Visual Basic för applikationer fönster.
Från och med nu ändras alla celler i intervall A2: E11, ett nytt e-postmeddelande skapas med den uppdaterade arbetsboken bifogad. Och alla angivna fält som ämne, mottagare och e-postadress kommer att listas i e-postmeddelandet. Vänligen skicka e-postmeddelandet.
Anmärkningar: VBA-koden fungerar bara om du använder Outlook som e-postprogram.
Relaterade artiklar:
- Hur skickar man automatiskt e-post baserat på cellvärde i Excel?
- Hur skickar jag ett e-postmeddelande via Outlook när arbetsboken sparas i Excel?
- Hur skickar jag e-post om du klickar på knappen i Excel?
- Hur skickar jag e-post om förfallodatum har uppfyllts i Excel?
- Hur skickar jag e-postpåminnelse eller avisering om arbetsboken uppdateras i Excel?
Bästa kontorsproduktivitetsverktyg
Uppgradera dina Excel-färdigheter med Kutools för Excel och upplev effektivitet som aldrig förr. Kutools för Excel erbjuder över 300 avancerade funktioner för att öka produktiviteten och spara tid. Klicka här för att få den funktion du behöver mest...
Fliken Office ger ett flikgränssnitt till Office och gör ditt arbete mycket enklare
- Aktivera flikredigering och läsning i Word, Excel, PowerPoint, Publisher, Access, Visio och Project.
- Öppna och skapa flera dokument i nya flikar i samma fönster, snarare än i nya fönster.
- Ökar din produktivitet med 50 % och minskar hundratals musklick för dig varje dag!