Wie sendet man eine E-Mail, wenn in Excel auf einen Button geklickt wird?

Angenommen, Sie müssen durch Klicken auf einen Button in einem Excel-Arbeitsblatt eine E-Mail über Outlook versenden. Wie können Sie das tun? Dieser Artikel stellt eine VBA-Methode im Detail vor, um dies zu erreichen.

E-Mail senden, wenn mit VBA-Code auf einen Button geklickt wird

E-Mail senden, wenn mit VBA-Code auf einen Button geklickt wird

Bitte gehen Sie wie folgt vor, um eine E-Mail über Outlook zu versenden, wenn in einer Excel-Arbeitsmappe auf einen Befehlsbutton geklickt wird.

1. Fügen Sie einen Befehlsbutton in Ihr Arbeitsblatt ein, indem Sie auf Entwickler > Einfügen > Befehlsbutton (ActiveX-Steuerelement) klicken. Siehe Screenshot:

2. Klicken Sie mit der rechten Maustaste auf den eingefügten Befehlsbutton und dann auf Code anzeigen im Kontextmenü, wie im folgenden Screenshot gezeigt.

3. Ersetzen Sie im sich öffnenden Fenster „Microsoft Visual Basic for Applications“ den ursprünglichen Code im Codefenster durch das folgende VBA-Skript.

VBA-Code: E-Mail senden, wenn in Excel auf einen Button geklickt wird

Private Sub CommandButton1_Click()
'Updated by Extendoffice 2017/9/14
    Dim xOutApp As Object
    Dim xOutMail As Object
    Dim xMailBody As String
    On Error Resume Next
    Set xOutApp = CreateObject("Outlook.Application")
    Set xOutMail = xOutApp.CreateItem(0)
    xMailBody = "Body content" & vbNewLine & vbNewLine & _
              "This is line 1" & vbNewLine & _
              "This is line 2"
                  On Error Resume Next
    With xOutMail
        .To = "Email Address"
        .CC = ""
        .BCC = ""
        .Subject = "Test email send by button clicking"
        .Body = xMailBody
        .Display   'or use .Send
    End With
    On Error GoTo 0
    Set xOutMail = Nothing
    Set xOutApp = Nothing
End Sub

4. Drücken Sie gleichzeitig die Tasten Alt + Q, um das Fenster Microsoft Visual Basic for Applications zu schließen.

5. Schalten Sie den Entwurfsmodus aus, indem Sie auf Entwickler > Entwurfsmodus klicken. Siehe Screenshot:

Ab jetzt wird jedes Mal, wenn Sie auf den Befehlsbutton klicken, automatisch eine E-Mail mit den angegebenen Empfängern, Betreff und Text erstellt. Bitte senden Sie die E-Mail, indem Sie auf die Senden klicken.

Hinweis: Der VBA-Code funktioniert nur, wenn Sie Outlook als E-Mail-Programm verwenden.

Verwandte Artikel:

• Wie sendet man automatisch eine E-Mail basierend auf dem Zellenwert in Excel?
• 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 das Fälligkeitsdatum in Excel erreicht ist?
• Wie sendet man eine E-Mail-Erinnerung oder Benachrichtigung, wenn die Arbeitsmappe in Excel aktualisiert wird?