Dit artikel gaat over het verzenden van e-mail via Outlook als een cel in een bepaald bereik in Excel wordt gewijzigd.
Stuur een e-mail als een cel in een bepaald bereik is gewijzigd met VBA-code
Als u automatisch een nieuwe e-mail moet maken met een actieve werkmap als bijlage wanneer cellen in het bereik A2: E11 worden gewijzigd in een bepaald werkblad, kan de volgende VBA-code u helpen.
1. In het werkblad dat u e-mail moet verzenden op basis van de gewijzigde cel in een bepaald bereik, klikt u met de rechtermuisknop op de bladtab en klikt u vervolgens op de Bekijk code vanuit het contextmenu. Zie screenshot:
2. In het opduiken Microsoft Visual Basic voor toepassingen venster, kopieer en plak de onderstaande VBA-code in het codevenster.
VBA-code: stuur een e-mail als een cel in een opgegeven bereik is gewijzigd in 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 SubNotes:
3. druk de anders + Q toetsen tegelijk om het Microsoft Visual Basic voor toepassingen venster.
Vanaf nu wordt elke cel in het bereik A2: E11 gewijzigd, er wordt een nieuwe e-mail gemaakt met de bijgewerkte werkmap als bijlage. En alle gespecificeerde velden zoals onderwerp, ontvanger en e-mailtekst worden in de e-mail vermeld. Stuur de e-mail.
Opmerking:: De VBA-code werkt alleen als u Outlook als uw e-mailprogramma gebruikt.
