Live-Forum - Die aktuellen Beiträge
Datum
Titel
20.04.2024 00:08:11
In Ordner nur das Speichern von Dateien erlauben
19.04.2024 21:26:15
mehrfache Texte finden
19.04.2024 19:41:34
Bei VBA Ausführung Anzeige einfrieren
19.04.2024 17:05:40
Zählen von Zeilen, in denen in bestimmten Bereich Daten sind
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1628to1632
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
1628to1632
1628to1632
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Alle PDF Dateien an Mail hängen

Alle PDF Dateien an Mail hängen
15.06.2018 14:51:18
Philip
Hallo zusammen
Ich möchte eine Mail vorbereiten um zu senden, dazu möchte ich alle PDF Dateien in einem bestimmten Ordner als Anhang in die Mail. Die Namen der PDF Dateien ändern sich ständig. Ich habe schon gesucht habe jedoch nichts passendes gefunden.
Danke und Gruss

4
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Alle PDF Dateien an Mail hängen
15.06.2018 17:09:56
Nepumuk
Hallo Philip,
ein Beispiel:
Option Explicit

Public Sub Beispiel()
    Const FOLDER_PATH As String = "H:\Dateien\PDF\" 'anpassen
    Dim strFilename As String
    Dim objOutlook As Object, objMail As Object
    
    Set objOutlook = CreateObject(Class:="Outlook.Application")
    Set objMail = objOutlook.CreateItem(0)
    
    With objMail
        
        .To = "mailadresse@provider.de" 'anpassen
        .Subject = "Betreff" 'anpassen
        .Body = "Hallo" 'anpassen
        
        strFilename = Dir$(FOLDER_PATH & "*.pdf")
        Do Until strFilename = vbNullString
            Call .Attachments.Add(FOLDER_PATH & strFilename)
            strFilename = Dir$
        Loop
        
        Call .Display 'nur anzeigen
        ' Call .Send 'direkt senden
    End With
    
    Set objMail = Nothing
    Set objOutlook = Nothing
End Sub

Gruß
Nepumuk
Anzeige
AW: Alle PDF Dateien an Mail hängen
15.06.2018 17:10:40
Torsten
Hi Philip,
habe einen Code gefunden und ihn nach deinen Beduerfnissen angepasst. Probiers mal aus. Bei mir hats funktioniert. Ist fuer Outlook.
Lass mich wissen, wie es laeuft.
Sub PDF_versenden()
Const strEmpfänger As String = "empfänger@woauch.immer"
Const strVerzeichnis As String = "C:\Users\torsten.wetzel\Desktop\Testfolder Excel 2\"
Dim Email As Object, OutApp As Object
Dim strFilename As String
Set OutApp = CreateObject("Outlook.Application")
strFilename = Dir(strVerzeichnis & "*.pdf")
Set Email = OutApp.CreateItem(0)
With Email
.To = strEmpfänger
.Subject = "Bla Bla"
.Body = "Bla Bla"
Do While strFilename  ""
.Attachments.Add strVerzeichnis & strFilename
.Display
strFilename = Dir
Loop
End With
Set Email = Nothing
End Sub
Gruss Torsten
Anzeige
AW: Alle PDF Dateien an Mail hängen
15.06.2018 17:11:25
Torsten
Nepomuk war schneller ;-)
AW: Alle PDF Dateien an Mail hängen
15.06.2018 22:34:25
Philip
Hallo zusammen
Ich habe den code von nepomuk verwendet. Funktioniert super.
Danke für die Hilfe.
Gruss

299 Forumthreads zu ähnlichen Themen

Tabelle als PDF speichern
PeTeR

Hallo VBA-Freaks,
ich suche seit Stunden - finde aber nicht den exakt passenden Code, obwohl es zig Einträge zu dem Thema gibt.
Ich will eine Tabelle per VBA in PDF umwandeln u. drucken. Mein Code:
Application.ActivePrinter = "Adobe PDF auf Ne01:"
ActiveWindow.SelectedSheets.Pri...
25.10.2008 23:06:00
Thread-ID: 1019291
5 Beiträge
Anzeige
Gesamte Arbeitsmappe als pdf
Tom

Hallo,
ich meine es gibt die Möglichkeit, die gesamte Arbeitsmappe, also alle Tabellenblätter als ein pdf per Mail zu versenden .... Doch leider weiß ich nicht mehr wie das geht.
Wer hat ne Lösung?
Gruß und Danke
TOM
16.02.2009 17:47:00
Thread-ID: 1051232
6 Beiträge
Augabe als *.pdf
StKr69

guten Morgen liebes Forum,
ich habe ein Problem mit der Ausgabe eines Tabellenblatts als *.pdf.
Das Blatt ist im Querformat, es passen alle mit Daten gefüllten Spalten und Zeilen auf eine DinA4-Seite (ohne Einsatz der Skalierung). Der Ausdruck per Drucker ist ok.
Gebe ich das Blatt...
06.03.2009 10:04:42
Thread-ID: 1057168
9 Beiträge
Anzeige
e-Mail-Versand mit PDF-Anhang
kutzmutz

Hallo nochmal,
ich hab noch ein Problem mit dem eMail-Versand.
Ich generiere mir eine Liste. Diese will ich als PDF-Anhang in einer e-Mail verschicken. Der Macro-Rekoder hat mir dazu folgendes geliefert:
ActiveWorkbook.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
"C:\Users\...
06.06.2009 16:06:45
Thread-ID: 1079612
2 Beiträge
VBA Makro erweitern um Funktion "als pdf drucken"
Sandra

Hallo zusammen,
ich hab da mal wieder eine Hürde die ich nicht alleine überwinden kann.
Ich habe ein Makro "bekommen", welches super funktioniert. Es bewirkt, dass die farbigen Markierungen erhalten bleiben, aber nicht auf dem Ausdruck erscheinen.
Nun soll aber der Druck nicht über...
04.08.2009 16:53:32
Thread-ID: 1093571
14 Beiträge
Makro Datei als Kommentar in PDF implementieren
Alex

Hallo zusammen,
ich habe ein ziemlich umfrangreiches excel tool, dieses simuliert einige technische zusammenhänge, erstellt daraus resultierend, angebote, füllt automatisch Förderanträge aus uvm....
Am Ende erhält jeder Kunde eine Vielzahl von PDF Dateien.
Für diese ganzen Dateien h...
30.09.2009 19:49:14
Thread-ID: 1106503
2 Beiträge
Makro Datei als Kommentar in PDF implementieren
Alex

Hallo zusammen,
ich habe ein ziemlich umfrangreiches excel tool, dieses simuliert einige technische zusammenhänge, erstellt daraus resultierend, angebote, füllt automatisch Förderanträge aus uvm....
Am Ende erhält jeder Kunde eine Vielzahl von PDF Dateien.
Für diese ganzen Dateien h...
01.10.2009 08:01:37
Thread-ID: 1106504
2 Beiträge
Blatt per VBA mit FreePDF als PDF-Datei sichern
Mike

Hallo,
wer kann mir einen Weg oder Beispiel zeigen, wie ich per VBA mit FreePDF ein Worksheet als PDF-Datei speichern kann?
Vielen Dank, Mike.
02.10.2009 00:05:48
Thread-ID: 1106727
5 Beiträge
Anzeige

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
4
5
5
8
2
1
13
1
1
4
5
2
2
3
4
5
3
1
2
1
1
5
2
8
1