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
Notizen:
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 Absenden .
Note: Der VBA-Code funktioniert nur, wenn Sie Outlook als E-Mail-Programm verwenden.
Senden Sie E-Mails ganz einfach über Outlook basierend auf den Feldern der in Excel erstellten Mailingliste:
Das E-Mails senden Nutzen von Kutools for Excel Hilft beim Senden von E-Mails über Outlook basierend auf den Feldern der in Excel erstellten Mailingliste.
Jetzt herunterladen und ausprobieren! (30 Tage kostenloser Trail)
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?
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, 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 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!