Live-Forum - Die aktuellen Beiträge
Datum
Titel
25.04.2024 00:42:03
Listbox mit gefilterten Daten füllen
24.04.2024 20:38:58
Summe mit Bedingung, nur letzte Ergebnisse anzeigen
24.04.2024 19:29:30
Formel filter
24.04.2024 18:49:56
merge & select
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
208to212
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
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 Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

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

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

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

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

302 Forumthreads zu ähnlichen Themen

Daten aus vielen xls-Datein auslesen
Daniel

Hallo Profis,
ich suche einen VBA-Befehl für folgendes:
Ich habe einen Ordner mit vielen xls-Dateien. Diese sollen nun alle in einer Datei zusammengefahren werden, alle Zeilen, wenn der Wert der 2. Spalte links mit "12345" anfängt.
Geht dies?
Vielen Dank vorab.
Daniel
...
18.08.2008 15:07:01
Thread-ID: 1002621
2 Beiträge
Anzeige
Datensätze aus Blatt auslesen
bully

Hallo Leute,
ich möchte mit VBA aus dem Blatt2 ganze Datenzeilen auslesen, wenn diese in der Spalte3 den Wert enthalten, den ich in Blatt3 in Zelle F6 vorgebe. Die Datenzeilen sollen dann in Blatt3 ab Zeile14 eingefügt werden.
Nach etlichen Selbstversuchen gebe ich jetzt auf.
Gruss...
02.09.2008 15:55:27
Thread-ID: 1006842
6 Beiträge
Datein aus Ordner in Listbox
Markus

Hallo,
brauch wieder mal eure Hilfe.
Möchte über ein UserForm nach bestimmte Dateien eines Ordners inkl. Unterordner suchen.
Button: Ordner wählen öffnet Msg Box such dort mein Ordner aus klappt schon.
Public Type BROWSEINFO
hOwner As Long
pidlRoot As Long
pszDispla...
30.09.2008 12:45:47
Thread-ID: 1013354
2 Beiträge
Anzeige
Daten aus einer anderen Mappe auslesen
Uwe

Hallo zusammen, habe mir einen funktionierenden Einsatzplan für 24 MA und 3 Schichten zusammengebastelt welcher die Monate inkl. Feiertage und Wochenenden dynamisch generiert.
Nun möchte ich wenn ich im zum Beispiel den Einsatzplan für die Mitarbeiter für Februar abrechne, das Excel sich...
14.10.2008 22:12:36
Thread-ID: 1016451
5 Beiträge
daten aus einem ordner öffnen
Swen

Hi @ all,
ich möchte gerne in einem Ordner "C:\Testdaten\"
alle wk1 files öffnen und verarbeiten!
wie kann ich den machen das alle in dem ordner liegenden files
göffnet werden und ich dann eine verarbeitung starten, und wenn das file fertig
bearbeitet ist das nächste geöff...
17.10.2008 19:49:00
Thread-ID: 1017267
3 Beiträge
Daten aus anderen Quellen auslesen
Ryu

Hallo,
ich habe eine Excel Tabelle wo ich den Verbrauch von Materialien der letzten 6 Monate erfasse. Den Verbrauch kann ich entweder mir Monat für Monat, Artikel für Artikel zusammenkopieren oder ich kann den Verbrauch jeden Monats in die oben genannte Tabelle (andere sheets) kopieren und...
23.10.2008 16:34:00
Thread-ID: 1018740
4 Beiträge
alle Dateien aus Ordner drucken
Bruno

Guten Morgen zusammen
Aus einer Excelmappe möchte ich per VBA diverse PDFs, die zuvor mit Acrobat erstellt worden sind, zusammen drucken. Hier im Forum habe ich einen Code dazu gefunden, der sich jedoch nur auf eine einzelne Datei und nicht auf alle Dateien des Ordners bezieht. Nachstehend...
26.10.2008 10:40:00
Thread-ID: 1019322
5 Beiträge
alle Dateien und Verknüpfungen aus Ordner löschen
marcl

Guten Morgen Forumsgemeinde,
ich habe zwar ein Makro von Ramses, welches alle Dateien eines Ordners auflistet und löscht. Aber die Verknüpfungen findet es leider nicht. Hatte naiv mal mit "*.lnk" als Dateiname versucht. Aber das funzt net.
Wer kann mir weiter helfen?
Danke und Gruß...
26.11.2008 06:40:00
Thread-ID: 1027911
3 Beiträge

Beliebteste Forumthreads (12 Monate)

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

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige
Archiv - Verwandte Themen
Forumthread
Beiträge
1
2
5
1
8
4
2
3
4
2
2
20
3
5
4
6
7
2
1
3
2
5
3
8
1