Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
208to212
208to212
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Alle xls Dateien aus Ordner versenden

Forumthread: Alle xls Dateien aus Ordner versenden

Alle xls Dateien aus Ordner versenden
31.01.2003 17:29:38
Knud
Hi Helferlein,
Gibt es eine Möglichkeit alle xls-Dateien aus dem Ordner D:\Excel\Auswertung\ als Anhang an einer E-Mail zu versenden?
Aber nicht einzeln, sondern alle auf ein mal. Keine davon ist aktuell geöffnet.

Danke für Tips... Knud

Anzeige

7
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
Re: Alle xls Dateien aus Ordner versenden
31.01.2003 18:09:21
Bernd Held

Hallo Knud,

dazu eine Lösung aus meinem Excel-VBA-Kompendium:

Sub EMailVerschickenMitAnhängen()
Dim outObj As Object
Dim Mail As Object
Dim i As Integer

Set outObj = CreateObject("Outlook.Application")
Set Mail = outObj.CreateItem(0)
With Mail
.Subject = "Rechnungen"
.Body = "Sehr geehrte Damen und Herren " & Chr(13) & _
"Bitte prüfen Sie die angehängten Rechnungen" & Chr(13) & _
"Viele Grüße " & Chr(13) & _
Application.UserName
.To = "Rewe@Mac.de"
.CC = "Fibu@Mac.de"
End With
With Application.FileSearch
.NewSearch
.LookIn = "c:\Rechnungen\"
.SearchSubFolders = True
.FileType = msoFileTypeAllFiles
.Execute
For i = 1 To .FoundFiles.Count
Mail.Attachments.Add .FoundFiles(i)
Next i
End With
Mail.Display
Set Mail = Nothing
Set outObj = Nothing
End Sub

Viele Grüße
Bernd
MVP für Microsoft Excel
Noch mehr Excel-Tipps und VBA-Datenbank unter: http://held-office.de


Anzeige
Re: Alle xls Dateien aus Ordner versenden
03.02.2003 08:58:58
Knud

Hi Bernd,
Danke für die Lösung und Sorry, dass ich erst jetzt antworte.
Leider arbeiten wir hier nicht mit Outlook, sondern mit Exchange. Daher geht das Makro so nicht. Bisher habe ich immer mit:

Application.Dialogs(xlDialogSendMail).Show ("abc@xyz.de")

versendet. Das sendet aber nur die aktuelle Mappe, nicht den Inhalt eines ganzen Ordners. Noch eine Idee?

Knud

Anzeige
Re: Alle xls Dateien aus Ordner versenden
03.02.2003 09:53:42
Bernd Held

Halo Knud,
versuchs mal hiermit:

Sub Send_Message()

Dim objSession As Object
Dim objMessage As Object
Dim objRecipient As Object

Set objSession = CreateObject("MAPI.Session")
objSession.Logon

Set objMessage = objSession.Inbox.Messages.Add
objMessage.Subject = "Titel"
objMessage.Text = "Text"
objMessage.Recipients.Add Name:="emai@me"
objMessage.Recipients.Resolve
objMessage.ReadReceipt = True
objMessage.Update
objMessage.Send
End Sub


Sub SENDMAIL()
Dim OL As Object, MailSendItem As Object
Set OL = CreateObject("Outlook.Application")
Set MailSendItem = OL.CreateItem(olMailItem)

With MailSendItem
.Subject = "test"
.To = "email@me"
.Attachments.Add ("c:\Eigene Dateien\test.xls")
.Send
End With
Set OL = Nothing
End Sub

Viele Grüße
Bernd
MVP für Microsoft Excel
Excel-Tipps, VBA in 21 Tagen und VBA-Datenbank unter: http://held-office.de


Anzeige
Re: Alle xls Dateien aus Ordner versenden
03.02.2003 10:14:37
Knud

Hi Bernd,
Jetzt öffnet es mein Programm, adressiert auch richtig, hängt aber nichts dran...

Noch eine Idee?

Re: Alle xls Dateien aus Ordner versenden
03.02.2003 15:01:16
Knud

Hi noch mal,
das Problem liegt wohl in der Zeile
.Attachments.Add ("c:\Eigene Dateien\test.xls").
Es soll nicht eine bestimmte Datei aus diesem Ordner sein, sondern alle Excel-Dateien, die in diesem Ordner liegen... egal, wie sie heißen (sie heissen immer anders, da u.a. Datum und Uhrzeit im Dateinamen stehen)

Danke trotzdem bis hier...

...Knud

Anzeige
Re: Alle xls Dateien aus Ordner versenden
03.02.2003 15:57:39
Bernd Held

Hi Knud,
test mal folgendes Makro:

Sub SENDMAIL()
Dim OL As Object, MailSendItem As Object

Set OL = CreateObject("Outlook.Application")
Set MailSendItem = OL.CreateItem(olMailItem)

With MailSendItem
.Subject = "test"
.To = "Held-office@t-online.de"
Application.FileSearch.NewSearch
Application.FileSearch.LookIn = "D:\Eigene Dateien\"
Application.FileSearch.SearchSubFolders = False
Application.FileSearch.FileType = msoFileTypeAllFiles
Application.FileSearch.Execute
For i = 1 To Application.FileSearch.FoundFiles.Count
.Attachments.Add .FoundFiles(i)
Next i

.Send
End With
Set OL = Nothing
End Sub

Viele Grüße
Bernd
MVP für Microsoft Excel
Excel-Tipps, VBA in 21 Tagen und VBA-Datenbank unter: http://held-office.de


Anzeige
Re: Alle xls Dateien aus Ordner versenden
03.02.2003 16:17:37
Knud

Hi Bernd,
Nach wie vor bemängelt er den Outlook-Part:
Bei Set OL = CreateObject("Outlook.Application") meckert er
Objekterstellung durch ActivX-Komponente nicht möglich.

Schade, trotzdem Danke... Knud

;

Forumthreads zu verwandten Themen

excel tabellenblatt mit outlook versenden
Hansi

Bitte um Hilfe - ich habe ein VBA Scrip zum versenden einzelner Tabellenblätter:
Sub Blatt_senden() Sheets("NAME").Copy ActiveWorkbook.SendMail "PERSON@PROVIDER", "Aktuelle Zahlen" Application.DisplayAlerts = False ActiveWindow.Close Application.DisplayAlerts = True End Sub
Wie kann...
19.02.2009 10:00:00
Thread-ID: 1052006
5 Beiträge
Anzeige
Email per VBA versenden
Armin

Hallo,
ich habe folgende Frage zum Versenden einer E-Mail per VBA:
1. Es soll eine Mail mit eigenem Text, Betreffzeile und Vorgabe der Mail-Adresse erzeugt werden .
2. In Outlook soll nur das Mail-Fenster mit dem Text etc. angezeigt werden. Kein automatischer Versand der Email.
...
23.11.2009 12:18:27
Thread-ID: 1119417
10 Beiträge
Anzeige
Blatt mit Outlook Express versenden
WalterK

Hallo,
Ich suche eine Möglichkeit, das Blatt Tabelle1 aus einer Mappe per Mail zu versenden. Es sollen keine Formeln mehr enthalten sein sondern nur noch Werte. Die Formatierungen sollen aber bestehen bleiben.
Jetzt habe ich den folgenden Code in der Recherche gefunden und wollte ihn te...
14.01.2010 20:38:12
Thread-ID: 1130042
7 Beiträge
Anzeige
Email per code versenden
ray

Hallo,
mit nachstehenden Code versenden ich aus Excel eine Email, funzt einwandfrei.
Jetzt möchte ich aber, dass im Emailbody die in Outlook definierte Signatur ''U1''
eingefügt wird.
Wie rufe ich das auf?
Sub Email() Dim OutLookJob As Object, E_Mail As Object Set OutLookJo...
29.07.2011 13:26:10
Thread-ID: 1224143
6 Beiträge
Exceltabelle mit Outlook als Textdatei versenden
Thomas

Hallo liebe VBA-Experten!
Ich möchte aus einer Excelarbeitsmappe eine bestimmte Exceltabelle mit dem Namen "Daten"
mit Outlook versenden.
Den Quellcode zum Versenden habe ich:
Sub MailVersenden() Dim outl As Object Dim Mail As Object Set outl = CreateObject("Outlook.Application"...
02.06.2012 15:44:57
Thread-ID: 1265846
7 Beiträge
Emails mit Daten aus Excel aus Outlook versenden
Holger

Hallo, Leute, ich habe eine Exceltabelle, die hat folgende Spalten:
Name ---- Ansprechpartner --- Straße/Postfach ---- Hausnummer --- PLZ --- Stadt --- Email 1 ---- Email 2 -- Email 3 --- Email 4 --- Datenquelle
Es geht um meine Bachelorarbeit in Erziehungswissenschaften. Ich möchte gan...
25.06.2013 10:41:35
Thread-ID: 1319532
11 Beiträge
Outlookmails nach Excel mit Unterordnerpfadangabe
Koala

Liebe Excel-Experten, gibt es eine Möglichkeit mit VBA sämtliche Mails meines Outlook-Postfaches nach Excel zu kopieren, so dass dort in den Spalten: Maildatum, Mailabsender, Mailadressat, Betreff und der vollständige Mailtext hinterlegt werden sowie die Angabe des Mailpostfachunterordners also...
03.01.2014 20:32:03
Thread-ID: 1344037
3 Beiträge
Excelbatt mit Outlook versenden
EwaldS

Hallo,
ich habe ein Excelformular erstellt das ich per Makro über Outlook an ein Gruppenpostfach versende. Das ausfüllen und versenden fuktioniert.
Wenn der Empfänger das Excelblatt öffnet sind die eingetragenene Daten gelöscht.
Ich finde den fehler nicht. Nachfolgend der Inhalt des...
15.01.2014 15:17:33
Thread-ID: 1345334
2 Beiträge
Verschiedene pdf-Mails per Button versenden
Ines

Hallo,
ich nutze folgende Skript zum Versand des Arbeitsblattes als pdf-Datei: Sub PDFmail1() Dim pdfName As String Dim pdfOpenAfterPublish As Boolean Dim olApp As Object pdfName = ThisWorkbook.Path & "\" & ThisWorkbook.Name & "_" & ActiveSheet.Name & ".pdf" ActiveSheet....
03.07.2015 19:55:16
Thread-ID: 1434659
4 Beiträge
Pdf aus exteren Ordner per Email aus Excel senden
matthias

Hallo,
ich hab einen Ordner in dem Pdf`s mit laufender Nummer von eins aufsteigend abgespeichert sind.
Dazu habe ich auch eine Exceldatei in der Zeile 1, Spalte A wieder diese laufendenden Nummern auftreten.
Ich möchte nun, dass Excel beim aktivieren eines Buttons, die Pdf die in e...
16.10.2015 13:34:33
Thread-ID: 1452666
5 Beiträge
Exceltabellenblatt aus Excel mit Outlook versenden
Hermann

Hallo zusammen,
im Forum habe ich nach einem VBA-Code gesucht, mit dem ich aus Excel heraus
nur das aktuelle Tabellenblatt als .pdf versenden kann.
Bevor es aber versendet wird, soll es mir noch einmal angezeigt werden
um evtl. den "Bodytext" abändern zu können.
Ich habe mir...
15.05.2017 16:14:47
Thread-ID: 1558421
6 Beiträge
Email per Outlook versenden - Fehler
Steffen

Hallo alle zusammen,
ich verwende nachfolgenden Code, um eine Email aus Excel zu versenden. Funktioniert soweit auch alles prima. Leider aber nur, wenn Outlook zuvor schon mal geöffnet wurde. Mein Frage lautet: Kann man Excel anweisen, Outlook vorher zwingend zu öffnen? 2. Frage... Wie bau...
21.02.2018 17:59:09
Thread-ID: 1610373
5 Beiträge
Anzeige

Infobox / Tutorial

Alle XLS-Dateien aus einem Ordner per E-Mail versenden

Schritt-für-Schritt-Anleitung

Um alle XLS-Dateien aus einem Ordner per E-Mail zu versenden, kannst du die folgende VBA-Lösung verwenden. Beachte, dass du dafür Microsoft Outlook installiert haben musst.

  1. Öffne Excel und gehe zum Menü Entwicklertools. Wenn das Menü nicht sichtbar ist, aktiviere es in den Excel-Optionen.

  2. Klicke auf Visual Basic, um den VBA-Editor zu öffnen.

  3. Füge ein neues Modul hinzu, indem du mit der rechten Maustaste auf „VBAProject (DeineDatei.xlsx)“ klickst und dann Einfügen > Modul wählst.

  4. Kopiere und füge den folgenden Code in das Modul ein:

    Sub AlleXLSDateienVersenden()
    Dim OL As Object, MailSendItem As Object
    Dim i As Integer
    Dim OrdnerPfad As String

    OrdnerPfad = "D:\Excel\Auswertung\" ' Pfad zum Ordner

    Set OL = CreateObject("Outlook.Application")
    Set MailSendItem = OL.CreateItem(0)

    With MailSendItem
        .Subject = "XLS Dateien"
        .To = "empfaenger@example.com"
        .Body = "Bitte finden Sie im Anhang alle XLS-Dateien."

        ' Alle XLS-Dateien im Ordner anhängen
        Dim Datei As String
        Datei = Dir(OrdnerPfad & "*.xls")
        Do While Datei <> ""
            .Attachments.Add OrdnerPfad & Datei
            Datei = Dir
        Loop

        .Send
    End With

    Set OL = Nothing
End Sub

  5. Ändere den OrdnerPfad und die E-Mail-Adresse in der .To-Zeile nach Bedarf.

  6. Führe das Makro aus, um alle XLS-Dateien aus dem angegebenen Ordner zu versenden.

Häufige Fehler und Lösungen

  • Fehler: "Objekterstellung durch ActiveX-Komponente nicht möglich."

    • Stelle sicher, dass Outlook korrekt installiert und konfiguriert ist. Überprüfe auch, ob dein Excel und Outlook dieselbe 32-Bit oder 64-Bit Version haben.

  • Fehler: E-Mail wird ohne Anhänge gesendet.

    • Überprüfe den Pfad im OrdnerPfad und stelle sicher, dass sich tatsächlich XLS-Dateien im angegebenen Verzeichnis befinden.

Alternative Methoden

Falls du nicht mit Outlook arbeiten möchtest, kannst du auch andere E-Mail-Clients oder Skripte nutzen, um einen ganzen Ordner per Mail zu versenden. Eine Alternative wäre, die Dateien zuerst in ein ZIP-Archiv zu packen und dann das Archiv anzuhängen.

Hier ein Beispiel, um einen Ordner zu zippen:

Sub ZipOrdner()
    Dim objShell As Object
    Set objShell = CreateObject("Shell.Application")
    objShell.NameSpace("C:\Ziel\Ordner.zip").CopyHere "D:\Excel\Auswertung\*"
End Sub

Praktische Beispiele

Um alle XLS-Dateien aus einem bestimmten Ordner zu versenden, kannst du das oben genannte Makro anpassen. Hier ist ein weiteres Beispiel, das alle Dateien eines bestimmten Typs (z.B. XLSX) versendet:

Datei = Dir(OrdnerPfad & "*.xlsx")

Auf diese Weise kannst du auch andere Dateitypen versenden, indem du die Erweiterung änderst.

Tipps für Profis

  • Verwende eine Schleife, um die E-Mail-Adressen dynamisch aus einer Excel-Liste zu ziehen.
  • Fehlerbehandlung hinzufügen, um das Skript robuster zu machen.
  • Automatisiere die Ausführung des Skripts mithilfe von Ereignissen, wie z.B. beim Öffnen einer Arbeitsmappe.

FAQ: Häufige Fragen

1. Frage
Kann ich auch andere Dateitypen versenden?
Ja, ändere einfach die Dateiendung im Dir-Befehl, um andere Dateitypen wie .pdf oder .docx anzuhängen.

2. Frage
Wie kann ich das Makro so anpassen, dass es alle Dateien in einem bestimmten Unterordner versendet?
Setze Application.FileSearch.SearchSubFolders = True, um Unterordner zu durchsuchen, allerdings ist FileSearch in neueren Excel-Versionen veraltet. Stattdessen solltest du eine andere Methode zur Dateisuche verwenden.

Beliebteste Forumthreads (12 Monate)

Jetzt das Excel-Portal bewerten: Deine Stimme zählt!
Anzeige
Anzeige
Anzeige