Hoe verzend ik een e-mail als een bepaalde cel is gewijzigd in Excel?
Dit artikel gaat over het verzenden van een e-mail via Outlook wanneer een cel in een bepaald bereik wordt gewijzigd in Excel.
Stuur een e-mail als een cel in een bepaald bereik is gewijzigd met VBA-code
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 een cel in het bereik A2: E11 in een bepaald werkblad wordt gewijzigd, 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 SubOpmerkingen:
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.
Gerelateerde artikelen:
- Hoe automatisch e-mail verzenden op basis van celwaarde in Excel?
- Hoe stuur ik een e-mail via Outlook wanneer de werkmap is opgeslagen in Excel?
- Hoe verzend ik een e-mail als op de knop wordt geklikt in Excel?
- Hoe e-mail verzenden als de vervaldatum is bereikt in Excel?
- Hoe stuur ik een e-mailherinnering of -melding als de werkmap wordt bijgewerkt in Excel?
Beste Office-productiviteitstools
Geef uw Excel-vaardigheden een boost met Kutools for Excelen ervaar efficiëntie als nooit tevoren. Kutools for Excel Biedt meer dan 300 geavanceerde functies om de productiviteit te verhogen en tijd te besparen. Klik hier om de functie te krijgen die u het meest nodig heeft...
Office Tab Brengt een interface met tabbladen naar Office en maakt uw werk veel gemakkelijker
- Schakel bewerken en lezen met tabbladen in Word, Excel, PowerPoint in, Publisher, Access, Visio en Project.
- Open en maak meerdere documenten in nieuwe tabbladen van hetzelfde venster in plaats van in nieuwe vensters.
- Verhoogt uw productiviteit met 50% en vermindert honderden muisklikken voor u elke dag!
