Wie kann man automatisch eine E-Mail versenden, sobald sich ein bestimmter Zellenwert in Excel ändert?
In Excel können Sie das Versenden von E-Mails basierend auf bestimmten Bedingungen automatisieren – beispielsweise abhängig vom Wert einer bestimmten Zelle. Stellen Sie sich vor, sobald der Wert in Zelle D7 größer als 200 ist, soll automatisch eine E-Mail über Outlook versendet werden. In diesem Tutorial erfahren Sie, wie Sie mithilfe von VBA (Visual Basic for Applications) eine Outlook-E-Mail anhand eines Zellenwerts auslösen.
Automatisches Senden einer E-Mail basierend auf einem Zellenwert mit VBA-Code
Automatisches Senden einer E-Mail basierend auf einem Zellenwert mit VBA-Code
Gehen Sie folgendermaßen vor, um eine E-Mail basierend auf einem Zellenwert in Excel zu versenden.
1. Klicken Sie im Arbeitsblatt, für das Sie eine E-Mail basierend auf dem Wert einer Zelle (hier beispielsweise Zelle D7) senden möchten, mit der rechten Maustaste auf die Blattregisterkarte und wählen Sie im Kontextmenü Code anzeigen. Siehe Screenshot:
2. Fügen Sie im erscheinenden Fenster Microsoft Visual Basic for Applications den folgenden VBA-Code in das Blattcodefenster ein.
VBA-Code: Senden einer E-Mail über Outlook basierend auf einem Zellenwert 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 SubHinweise:
3. Drücken Sie gleichzeitig die Tasten Alt + Q, um das Fenster Microsoft Visual Basic for Applications zu schließen.
Sobald der in Zelle D7 eingegebene Wert größer als 200 ist, wird ab sofort automatisch eine E-Mail mit den angegebenen Empfängern und dem Nachrichtentext in Outlook erstellt. Klicken Sie auf die Schaltfläche Senden, um diese E-Mail direkt zu versenden. Siehe Screenshot:
Hinweise:
1. Der VBA-Code funktioniert nur, wenn Sie Outlook als Ihr E-Mail-Programm nutzen.
2. Wenn der in Zelle D7 eingegebene Wert ein Textwert ist, öffnet sich ebenfalls das E-Mail-Fenster.
Senden Sie ganz einfach E-Mails über Outlook basierend auf Feldern der in Excel erstellten E-Mail-Liste:
Das E-Mails senden-Tool von Kutools für Excel unterstützt Benutzer dabei, E-Mails über Outlook basierend auf der in Excel erstellten E-Mail-Liste zu versenden.
Kutools für Excel– Erweitern Sie Excel mit über 300 unverzichtbaren Tools, um Ihre Arbeit schneller und einfacher zu erledigen, und nutzen Sie KI-Funktionen für intelligentere Datenverarbeitung und höhere Produktivität.Jetzt herunterladen
Verwandte Artikel:
- Wie sendet man eine E-Mail über Outlook, nachdem die Arbeitsmappe in Excel gespeichert wurde?
- Wie sendet man eine E-Mail, sobald sich eine bestimmte Zelle in Excel ändert?
- Wie sendet man eine E-Mail, sobald eine Schaltfläche in Excel angeklickt wird?
- Wie sendet man eine E-Mail, sobald das Fälligkeitsdatum in Excel erreicht ist?
- Wie sendet man eine E-Mail-Erinnerung oder -Benachrichtigung, sobald die Arbeitsmappe in Excel aktualisiert wird?
Beste Office-Produktivitätstools
Verbessern Sie Ihre Excel-Kenntnisse mit Kutools für Excel und erleben Sie Effizienz wie nie zuvor.Kutools für Excel bietet über 300 erweiterte Funktionen zur Steigerung der Produktivität und Zeit sparen.Klicken Sie hier, um die Funktion zu erhalten, die Sie am dringendsten benötigen...
Office Tab bringt eine tabbasierte Oberfläche in Office und macht Ihre Arbeit viel einfacher
- Aktivieren Sie tabbasiertes Bearbeiten und Lesen in Word, Excel, PowerPoint, Publisher, Access, Visio und Project.
- Öffnen und erstellen Sie mehrere Dokumente in neuen Registerkarten desselben Fensters – statt jedes in einem separaten Fenster zu öffnen.
- Steigert Ihre Produktivität um 50 % und erspart Ihnen täglich Hunderte von Mausklicks!
Alle Kutools-Add-Ins – ein Installationsprogramm
Kutools for Office-Paket bündelt Add-Ins für Excel, Word, Outlook und PowerPoint sowie Office Tab Pro – ideal für Teams, die mit mehreren Office-Anwendungen arbeiten.
- Alles-in-einem-Paket— Add-Ins für Excel, Word, Outlook & PowerPoint sowie Office Tab Pro
- Ein Installationsprogramm, eine Lizenz— innerhalb weniger Minuten eingerichtet (MSI-fähig)
- Funktioniert besser zusammen— optimierte Produktivität über alle Office-Anwendungen hinweg
- 30-tägige Vollversion zum Testen— keine Registrierung, keine Kreditkarte erforderlich
- Bestes Preis-Leistungs-Verhältnis— sparen Sie im Vergleich zum Kauf einzelner Add-Ins