Wie sendet man eine E-Mail, sobald eine Schaltfläche in Excel angeklickt wird?
Angenommen, Sie möchten per Klick auf eine Schaltfläche in einem Excel-Arbeitsblatt eine E-Mail über Outlook versenden – wie lässt sich das umsetzen? Dieser Artikel stellt eine detaillierte VBA-Methode zur Realisierung vor.
E-Mail beim Anklicken einer Schaltfläche mit VBA-Code senden
E-Mail beim Anklicken einer Schaltfläche mit VBA-Code senden
Führen Sie die folgenden Schritte aus, um beim Klicken auf eine Befehlsschaltfläche in Ihrer Excel-Arbeitsmappe automatisch eine E-Mail über Outlook zu versenden.
1. Fügen Sie eine Befehlsschaltfläche in Ihr Arbeitsblatt ein, indem Sie auf Entwickler > Einfügen > Befehlsschaltfläche (ActiveX-Steuerelement) klicken. Siehe Screenshot:
2. Klicken Sie mit der rechten Maustaste auf die eingefügte Befehlsschaltfläche und wählen Sie im Kontextmenü Code anzeigen, wie im folgenden Screenshot gezeigt.
3. Ersetzen Sie im geöffneten Fenster Microsoft Visual Basic for Applications den ursprünglichen Code im Codefenster durch das folgende VBA-Skript.
VBA-Code: E-Mail beim Anklicken einer Schaltfläche in Excel senden
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 SubHinweise:
1). Passen Sie den E-Mail-Text in der xMailBody-Zeile im Code einfach nach Bedarf an.
2). Ersetzen Sie E-Mail-Adresse durch die E-Mail-Adresse des Empfängers in der Zeile .To = „E-Mail-Adresse".
3). Geben Sie die Empfänger für Cc und Bcc nach Bedarf in den Abschnitten .CC = “” und .Bcc = “” an.
4). Ändern Sie den E-Mail-Betreff in der Zeile .Subject = „Test-E-Mail beim Anklicken der Schaltfläche".
4. Drücken Sie gleichzeitig die Tasten Alt + Q, um das Fenster Microsoft Visual Basic for Applications zu schließen.
5. Deaktivieren Sie den Entwurfsmodus, indem Sie auf Entwickler > Entwurfsmodus klicken. Siehe Screenshot:
Ab sofort wird bei jedem Klick auf die Befehlsschaltfläche automatisch eine E-Mail mit den festgelegten Empfängern, dem Betreff und dem Text erstellt. Senden Sie die E-Mail, indem Sie auf die Schaltfläche Senden klicken.
Hinweis: Der VBA-Code funktioniert nur, wenn Sie Outlook als E-Mail-Programm verwenden.
Einfaches Versenden von E-Mails über Outlook basierend auf den Feldern eines in Excel erstellten E-Mail-Liste:
Das Hilfsprogramm E-Mails senden von Kutools für Excel ermöglicht es Ihnen, E-Mails über Outlook basierend auf den Feldern einer in Excel erstellten E-Mail-Liste zu versenden.
Jetzt herunterladen und ausprobieren!
Verwandte Artikel:
- Wie sendet man automatisch eine E-Mail basierend auf einem bestimmten Zellenwert in Excel?
- 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 das Fälligkeitsdatum in Excel erreicht ist?
- Wie sendet man eine E-Mail-Erinnerung oder -Benachrichtigung, sobald die Arbeitsmappe in Excel aktualisiert wurde?
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