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 SubHinweise:
1). Ändern Sie den E-Mail-Text nach Bedarf in der Zeile xMailBody im Code.
2). Ersetzen Sie die E-Mail-Adresse durch die Empfänger-E-Mail-Adresse in der Zeile .To = "E-Mail-Adresse".
3). Geben Sie die Cc- und Bcc-Empfänger nach Bedarf in den Abschnitten .CC = “” und .Bcc = “” an.
4). Ändern Sie den E-Mail-Betreff in der Zeile .Subject = "Test-E-Mail durch Button-Klick".
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.
E-Mail ganz einfach über Outlook basierend auf den Feldern der erstellten Mailingliste in Excel versenden:
Das E-Mails senden Tool von Kutools für Excel hilft, E-Mails über Outlook basierend auf den Feldern der erstellten Mailingliste in Excel zu versenden.
Jetzt herunterladen und ausprobieren!
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?
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