Wie sendet man jedes Arbeitsblatt aus Excel an eine jeweils unterschiedliche E-Mail-Adresse?
Wenn Ihre Excel-Arbeitsmappe mehrere Arbeitsblätter enthält und jedes davon in Zelle S1 eine E-Mail-Adresse aufweist, möchten Sie diese Blätter wahrscheinlich als separate Anhänge an die jeweiligen Empfänger versenden. Bei vielen Arbeitsblättern ist das manuelle Vorgehen äußerst zeitaufwendig. In diesem Tutorial zeigen wir Ihnen, wie Sie mit einem VBA-Code jedes Arbeitsblatt Ihrer Datei automatisch als Anhang an die in Zelle S1 des entsprechenden Blatts hinterlegte E-Mail-Adresse senden können.
Jedes Arbeitsblatt an unterschiedliche E-Mail-Adresse aus Excel mit VBA-Code senden
Der folgende VBA-Code ermöglicht es Ihnen, jedes Arbeitsblatt als Anlage an den jeweiligen Empfänger in Zelle S1 zu versenden. Gehen Sie dazu bitte wie folgt vor:
1. Drücken Sie gleichzeitig die Tasten Alt + F11, um das Fenster Microsoft Visual Basic für Applikationen zu öffnen.
2. Klicken Sie anschließend auf Einfügen > Modul, und fügen Sie den folgenden VBA-Code in das Fenster ein.
VBA-Code: Jedes Arbeitsblatt als Anlage an unterschiedliche E-Mail-Adresse senden
Sub Mail_Every_Worksheet()
'Updateby ExtendOffice
Dim xWs As Worksheet
Dim xWb As Workbook
Dim xFileExt As String
Dim xFileFormatNum As Long
Dim xTempFilePath As String
Dim xFileName As String
Dim xOlApp As Object
Dim xMailObj As Object
On Error Resume Next
With Application
.ScreenUpdating = False
.EnableEvents = False
End With
xTempFilePath = Environ$("temp") & "\"
If Val(Application.Version) < 12 Then
xFileExt = ".xls": xFileFormatNum = -4143
Else
xFileExt = ".xlsm": xFileFormatNum = 52
End If
Set xOlApp = CreateObject("Outlook.Application")
For Each xWs In ThisWorkbook.Worksheets
If xWs.Range("S1").Value Like "?*@?*.?*" Then
xWs.Copy
Set xWb = ActiveWorkbook
xFileName = xWs.Name & " of " _
& VBA.Left(ThisWorkbook.Name, VBA.InStr(ThisWorkbook.Name, ".") - 1) & " "
Set xMailObj = xOlApp.CreateItem(0)
xWb.Sheets.Item(1).Range("S1").Value = ""
With xWb
.SaveAs xTempFilePath & xFileName & xFileExt, FileFormat:=xFileFormatNum
With xMailObj
'specify the CC, BCC, Subject, Body below
.To = xWs.Range("S1").Value
.CC = ""
.BCC = ""
.Subject = "This is the Subject line"
.Body = "Hi there"
.Attachments.Add xWb.FullName
.Display
End With
.Close SaveChanges:=False
End With
Set xMailObj = Nothing
Kill xTempFilePath & xFileName & xFileExt
End If
Next
Set xOlApp = Nothing
With Application
.ScreenUpdating = True
.EnableEvents = True
End With
End Sub
- S1 ist die Zelle, die die E-Mail-Adresse enthält, an die Sie die Nachricht senden möchten. Befindet sich Ihre E-Mail-Adresse in einer anderen Zelle – beispielsweise A1 – passen Sie den Code einfach entsprechend an.
- Sie können CC, BCC, Betreff und Nachrichtentext im Code nach Ihren Wünschen festlegen;
- Um die E-Mail direkt zu versenden, ohne das folgende neue Nachrichtenfenster zu öffnen, müssen Sie .Display in .Send ändern.
3. Drücken Sie anschließend die Taste F5, um diesen Code auszuführen. Jedes Arbeitsblatt wird automatisch als Anlage in das neue Nachrichtenfenster eingefügt – siehe Screenshot:
4. Klicken Sie abschließend auf die Schaltfläche Senden, um jede E-Mail nacheinander zu versenden.
Kutools für Excel: Personalisierte E-Mails mit nur einem Klick kinderleicht versenden!
Haben Sie es satt, Kundene-Mails einzeln zu versenden? Mit der „E-Mails versenden“-Funktion von Kutools für Excel wird Ihre Kommunikation schneller und professioneller! Bereiten Sie einfach ein Excel-Arbeitsblatt mit Namen, E-Mail-Adressen, Registrierungscodes und Platzhaltern vor – das System generiert automatisch personalisierte E-Mails und verschickt Hunderte davon mit nur einem Klick. Keine repetitive Arbeit mehr!
- 💡 Dynamische Platzhalter (z. B. Name, Registrierungscode) füllen automatisch personalisierte Inhalte für jeden Empfänger ein und sorgen so dafür, dass sich jede E-Mail individuell anfühlt.
- 📎 Hängen Sie personalisierte Dateien an, um eine präzise Zustellung sicherzustellen
- 📤 Integriert sich nahtlos in Outlook für sicheres und zuverlässiges Versenden
- 📝 Speichern und wiederverwenden Sie E-Mail-Vorlagen für maximale Effizienz
- 🎨 WYSIWYG-Editor (What-you-see-is-what-you-get), der einfach zu bedienen ist
- Nutzen Sie Ihre Outlook-Signatur – keine zusätzliche Einrichtung erforderlich, einfach auf „Senden“ klicken!
- Jetzt Kutools für Excel sichern!
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