Den här artikeln talar om att skicka e-post via Outlook om någon cell i ett visst intervall ändras i Excel.
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 celler i intervall 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 SubAnmä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 när du använder Outlook som ditt e-postprogram.
