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 Sub

Hinweise:

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.

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?