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

Fantastisk! Använda effektiva flikar i Excel som Chrome, Firefox och Safari!

Spara 50% av din tid och minska tusentals musklick åt dig varje dag!

---

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?

---

De bästa Office-produktivitetsverktygen

Kutools för Excel löser de flesta av dina problem och ökar din produktivitet med 80%

• återanvändning: Sätt snabbt i komplexa formler, diagram och allt som du har använt tidigare; Kryptera celler med lösenord; Skapa e-postlista och skicka e-post ...
• Super Formula Bar (enkelt redigera flera rader med text och formel); Läslayout (enkelt läsa och redigera ett stort antal celler); Klistra in i filtrerat intervall...
• Sammanfoga celler / rader / kolumner utan att förlora data; Delat cellinnehåll; Kombinera duplicerade rader / kolumner... Förhindra duplicerade celler; Jämför intervall...
• Välj Duplicera eller Unikt Rader; Välj tomma rader (alla celler är tomma); Super Find och Fuzzy Find i många arbetsböcker; Slumpmässigt val ...
• Exakt kopia Flera celler utan att ändra formelreferens; Skapa referenser automatiskt till flera ark; Sätt in kulor, Kryssrutor och mer ...
• Extrahera text, Lägg till text, ta bort efter position, Ta bort mellanslag; Skapa och skriva ut personsökningstalsatser; Konvertera mellan celler innehåll och kommentarer...
• Superfilter (spara och tillämpa filterscheman på andra ark); Avancerad sortering efter månad / vecka / dag, frekvens och mer; Specialfilter av fet, kursiv ...
• Kombinera arbetsböcker och arbetsblad; Sammanfoga tabeller baserat på nyckelkolumner; Dela data i flera ark; Batchkonvertera xls, xlsx och PDF...
• Mer än 300 kraftfulla funktioner. Stöder Office / Excel 2007-2021 och 365. Stöder alla språk. Enkel implementering i ditt företag eller organisation. Fullständiga funktioner 30 dagars gratis provperiod. 60 dagars pengarna tillbaka-garanti.

Läs mer... Gratis nedladdning... Köp... 

---

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!

Läs mer... Gratis nedladdning... Köp...