Wie sendet man automatisch eine E-Mail basierend auf einem Zellenwert in Excel?
In Excel können Sie den Prozess des Sendens von E-Mails basierend auf bestimmten Bedingungen automatisieren, wie zum Beispiel dem Wert in einer bestimmten Zelle. Zum Beispiel möchten Sie möglicherweise automatisch eine E-Mail über Outlook senden, wenn der Wert in Zelle D7 200 überschreitet. Dieses Tutorial zeigt, wie Sie VBA (Visual Basic for Applications) verwenden, um eine E-Mail in Outlook basierend auf einem Zellenwert auszulösen.
E-Mail automatisch basierend auf Zellenwert mit VBA-Code senden
E-Mail automatisch basierend auf Zellenwert mit VBA-Code senden
Bitte gehen Sie wie folgt vor, um eine E-Mail basierend auf einem Zellenwert in Excel zu senden.
1. Klicken Sie in dem Arbeitsblatt, in dem Sie basierend auf seinem Zellenwert eine E-Mail senden müssen (hier ist es Zelle D7), mit der rechten Maustaste auf die Registerkarte des Blatts und wählen Sie Code anzeigen aus dem Kontextmenü. Siehe Screenshot:
2. Kopieren Sie im sich öffnenden Fenster Microsoft Visual Basic for Applications den unten stehenden VBA-Code und fügen Sie ihn in das Codefenster des Blatts ein.
VBA-Code: E-Mail über Outlook basierend auf Zellenwert in Excel senden
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.
Ab jetzt wird, wenn der in Zelle D7 eingegebene Wert größer als 200 ist, automatisch eine E-Mail mit den angegebenen Empfängern und Text in Outlook erstellt. Sie können auf die Schaltfläche Senden klicken, um diese E-Mail zu versenden. Siehe Screenshot:
Hinweise:
1. Der VBA-Code funktioniert nur, wenn Sie Outlook als Ihr E-Mail-Programm verwenden.
2. Wenn die in Zelle D7 eingegebenen Daten ein Textwert sind, wird das E-Mail-Fenster ebenfalls geöffnet.
E-Mail einfach über Outlook basierend auf Feldern der erstellten Mailingliste in Excel senden:
Die Funktion E-Mail senden von Kutools für Excel hilft Benutzern, E-Mails über Outlook basierend auf der erstellten Mailingliste in Excel zu versenden.
Kutools für Excel - Verleihen Sie Excel mit über 300 essenziellen Tools einen echten Schub. Nutzen Sie dauerhaft kostenlose KI-Funktionen! Holen Sie es sich jetzt
Verwandte Artikel:
- Wie sendet man eine E-Mail über Outlook, wenn die Arbeitsmappe in Excel gespeichert wird?
- Wie sendet man eine E-Mail, wenn eine bestimmte Zelle in Excel geändert wird?
- Wie sendet man eine E-Mail, wenn ein Button in Excel geklickt wird?
- Wie sendet man eine E-Mail, wenn das Fälligkeitsdatum in Excel erreicht wurde?
- Wie sendet man eine E-Mail-Erinnerung oder Benachrichtigung, wenn die Arbeitsmappe in Excel aktualisiert wird?
Die besten Produktivitätstools für das Büro
Stärken Sie Ihre Excel-Fähigkeiten mit Kutools für Excel und genießen Sie Effizienz wie nie zuvor. Kutools für Excel bietet mehr als300 erweiterte Funktionen, um die Produktivität zu steigern und Zeit zu sparen. Klicken Sie hier, um die Funktion zu erhalten, die Sie am meisten benötigen...
Office Tab bringt die Tab-Oberfläche in Office und macht Ihre Arbeit wesentlich einfacher
- Aktivieren Sie die Tabulator-Bearbeitung und das Lesen in Word, Excel, PowerPoint, Publisher, Access, Visio und Project.
- Öffnen und erstellen Sie mehrere Dokumente in neuen Tabs innerhalb desselben Fensters, statt in neuen Einzelfenstern.
- Steigert Ihre Produktivität um50 % und reduziert hunderte Mausklicks täglich!
Alle Kutools-Add-Ins. Ein Installationspaket
Das Kutools for Office-Paket bündelt Add-Ins für Excel, Word, Outlook & PowerPoint sowie Office Tab Pro und ist ideal für Teams, die mit mehreren Office-Anwendungen arbeiten.
- All-in-One-Paket — Add-Ins für Excel, Word, Outlook & PowerPoint + Office Tab Pro
- Ein Installationspaket, eine Lizenz — in wenigen Minuten einsatzbereit (MSI-kompatibel)
- Besser gemeinsam — optimierte Produktivität in allen Office-Anwendungen
- 30 Tage kostenlos testen — keine Registrierung, keine Kreditkarte erforderlich
- Bestes Preis-Leistungs-Verhältnis — günstiger als Einzelkauf der Add-Ins