Wie sende ich eine E-Mail, wenn in Excel auf die Schaltfläche geklickt wird?

Angenommen, Sie müssen E-Mails über Outlook senden, indem Sie auf eine Schaltfläche im Excel-Arbeitsblatt klicken. Wie können Sie dies tun? In diesem Artikel wird eine VBA-Methode vorgestellt, um dies im Detail zu erreichen.

E-Mail senden, wenn auf die Schaltfläche mit VBA-Code geklickt wird

E-Mail senden, wenn auf die Schaltfläche mit VBA-Code geklickt wird

Gehen Sie wie folgt vor, um eine E-Mail über Outlook zu senden, wenn in der Excel-Arbeitsmappe auf eine Befehlsschaltfläche geklickt wird.

1. Fügen Sie eine Befehlsschaltfläche in Ihr Arbeitsblatt ein, indem Sie auf klicken Entwickler:in / Unternehmen > Insert > Befehlsschaltfläche (ActiveX Control). Siehe Screenshot:

2. Klicken Sie mit der rechten Maustaste auf die eingefügte Befehlsschaltfläche, und klicken Sie dann auf Code anzeigen Klicken Sie im Kontextmenü wie unten gezeigt auf den Screenshot.

3. In der Öffnung Microsoft Visual Basic für Applikationen Bitte ersetzen Sie den Originalcode im Codefenster durch das folgende VBA-Skript.

VBA-Code: E-Mail senden, wenn in Excel auf die Schaltfläche 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

Anmerkungen:

1). Bitte ändern Sie den E-Mail-Text nach Bedarf in der xMailBody Zeile im Code.

2). Ersetze das E-Mail-Adresse mit der E-Mail-Adresse des Empfängers in der Zeile .To = "E-Mail-Adresse".

3). Geben Sie die Cc- und Bcc-Empfänger nach Bedarf an .CC = "" und .Bcc = "" .

4). Ändern Sie den Betreff der E-Mail in der Zeile .Subject = "Test E-Mail senden durch Klicken auf die Schaltfläche".

4. Drücken Sie die Taste Andere + Q Tasten gleichzeitig zum Schließen der Microsoft Visual Basic für Applikationen Fenster.

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

Von nun an wird jedes Mal, wenn Sie auf die Befehlsschaltfläche klicken, automatisch eine E-Mail mit den angegebenen Empfängern, dem Betreff und dem Text erstellt. Bitte senden Sie die E-Mail durch Klicken auf Senden .

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

In Verbindung stehende Artikel:

• Wie sende ich automatisch E-Mails basierend auf dem Zellenwert in Excel?
• Wie sende ich eine E-Mail über Outlook, wenn die Arbeitsmappe in Excel gespeichert ist?
• Wie sende ich eine E-Mail, wenn eine bestimmte Zelle in Excel geändert wird?
• Wie sende ich eine E-Mail, wenn das Fälligkeitsdatum in Excel erreicht wurde?
• Wie sende ich eine E-Mail-Erinnerung oder Benachrichtigung, wenn die Arbeitsmappe in Excel aktualisiert wird?

---

Die besten Tools für die Office-Produktivität

Kutools for Excel löst die meisten Ihrer Probleme und erhöht Ihre Produktivität um 80%

• Wiederverwendung: Schnell einfügen komplexe Formeln, Diagramme und alles, was du vorher benutzt hast; Zellen verschlüsseln mit Passwort; Mailingliste erstellen und E-Mails senden ...
• Super Formelriegel (leicht mehrere Textzeilen und Formeln bearbeiten); Layout lesen (leichtes Lesen und Bearbeiten einer großen Anzahl von Zellen); In gefilterten Bereich einfügen...
• Zellen / Zeilen / Spalten zusammenführen ohne Daten zu verlieren; Inhalt geteilter Zellen; Kombinieren Sie doppelte Zeilen / Spalten... doppelte Zellen verhindern; Bereiche vergleichen...
• Wählen Sie Duplizieren oder Eindeutig Reihen; Wählen Sie Leere Zeilen (alle Zellen sind leer); Super Find und Fuzzy Find in vielen Arbeitsmappen; Zufällige Auswahl ...
• Exakte Kopie Mehrere Zellen ohne Änderung der Formelreferenz; Referenzen automatisch erstellen zu mehreren Blättern; Aufzählungszeichen einfügen, Kontrollkästchen und mehr ...
• Text extrahieren, Text hinzufügen, Nach Position entfernen, Leerzeichen entfernen;; Paging-Zwischensummen erstellen und drucken; Inhalt und Kommentare zwischen Zellen konvertieren...
• Superfilter (Speichern und Anwenden von Filterschemata auf andere Blätter); Erweiterte Sortierung nach Monat / Woche / Tag, Häufigkeit und mehr; Spezialfilter fett, kursiv ...
• Kombinieren Sie Arbeitsmappen und Arbeitsblätter;; Tabellen basierend auf Schlüsselspalten zusammenführen; Daten in mehrere Blätter aufteilen; Batch-Konvertierung von xls, xlsx und PDF...
• Mehr als 300 leistungsstarke Funktionen. Unterstützt Office / Excel 2007-2021 und 365. Unterstützt alle Sprachen. Einfache Bereitstellung in Ihrem Unternehmen oder Ihrer Organisation. 30-tägige kostenlose Testversion mit allen Funktionen. 60 Tage Geld-zurück-Garantie.

Lesen Sie mehr... Kostenfreier Download... Kauf... 

---

Office Tab Bringt die Oberfläche mit Registerkarten in Office und erleichtert Ihnen die Arbeit erheblich

• Aktivieren Sie das Bearbeiten und Lesen von Registerkarten in Word, Excel und PowerPoint, Publisher, Access, Visio und Project.
• Öffnen und erstellen Sie mehrere Dokumente in neuen Registerkarten desselben Fensters und nicht in neuen Fenstern.
• Steigert Ihre Produktivität um 50 % und reduziert jeden Tag Hunderte von Mausklicks für Sie!

Lesen Sie mehr... Kostenfreier Download... Kauf...