Hoe automatisch e-mail verzenden op basis van celwaarde in Excel?
Stel dat u via Outlook een e-mail naar een bepaalde ontvanger wilt sturen op basis van een opgegeven celwaarde in Excel. Als de waarde van cel D7 in een werkblad bijvoorbeeld groter is dan 200, wordt automatisch een e-mail gemaakt. Dit artikel introduceert een VBA-methode waarmee u dit probleem snel kunt oplossen.
Verzend automatisch e-mail op basis van celwaarde met VBA-code
Verzend automatisch e-mail op basis van celwaarde met VBA-code
Ga als volgt te werk om een e-mail te verzenden op basis van celwaarde in Excel.
1. In het werkblad moet u e-mail verzenden op basis van de celwaarde (hier staat de cel D7), klik met de rechtermuisknop op de bladtab en selecteer 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 bladcodevenster.
VBA-code: stuur e-mail via Outlook op basis van celwaarde in Excel
Dim xRg As Range
'Update by Extendoffice 2018/3/7
Private Sub Worksheet_Change(ByVal Target As Range)
On Error Resume Next
If Target.Cells.Count > 1 Then Exit Sub
Set xRg = Intersect(Range("D7"), Target)
If xRg Is Nothing Then Exit Sub
If IsNumeric(Target.Value) And Target.Value > 200 Then
Call Mail_small_Text_Outlook
End If
End Sub
Sub Mail_small_Text_Outlook()
Dim xOutApp As Object
Dim xOutMail As Object
Dim xMailBody As String
Set xOutApp = CreateObject("Outlook.Application")
Set xOutMail = xOutApp.CreateItem(0)
xMailBody = "Hi there" & vbNewLine & vbNewLine & _
"This is line 1" & vbNewLine & _
"This is line 2"
On Error Resume Next
With xOutMail
.To = "Email Address"
.CC = ""
.BCC = ""
.Subject = "send by cell value test"
.Body = xMailBody
.Display 'or use .Send
End With
On Error GoTo 0
Set xOutMail = Nothing
Set xOutApp = Nothing
End Sub
Opmerkingen:
3. druk de anders + Q toetsen samen om de Microsoft Visual Basic voor toepassingen venster.
Vanaf nu, wanneer de waarde die u invoert in cel D7 groter is dan 200, wordt automatisch een e-mail met gespecificeerde ontvangers en hoofdtekst in Outlook aangemaakt. U kunt op het Verzenden knop om deze e-mail te verzenden. Zie screenshot:
Opmerkingen:
1. De VBA-code werkt alleen als u Outlook als uw e-mailprogramma gebruikt.
2. Als de ingevoerde gegevens in cel D7 een tekstwaarde zijn, wordt het e-mailvenster ook weergegeven.
Verzend eenvoudig e-mail via Outlook op basis van velden van gemaakte mailinglijst in Excel:
De Stuur emails nut van Kutools for Excel helpt gebruikers bij het verzenden van e-mail via Outlook op basis van de gemaakte mailinglijst in Excel.
Download en probeer het nu! (30 dagen gratis proefperiode)
Gerelateerde artikelen:
- Hoe stuur ik een e-mail via Outlook wanneer de werkmap is opgeslagen in Excel?
- Hoe verzend ik een e-mail als een bepaalde cel is gewijzigd 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 voor Excel en ervaar efficiëntie als nooit tevoren. Kutools voor 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-tabblad 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!