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
1332to1336
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
1332to1336
1332to1336
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

PDF umwandeln und automatisch versenden

PDF umwandeln und automatisch versenden
07.10.2013 11:59:55
andreas
Hallo Guten Morgen Spezialisten,
vll. kann man mir weiterhelfen? Brauche einen Code.
Ich habe in einem Tabellenblatt ein kleines Formular erstellt. Nun möchte ich eine Befehlsschaltfläche erstellen, die nach Betätigung mir das Formular in eine PDF Datei umwandelt und anschließen an eine bestimmte Email weiterleitet.
Ich wie nicht ob solch eine Funktion möglich ist, hoffe auf euere Hilfe 
Habe die xls. Datei angehängt.
https://www.herber.de/bbs/user/87561.xls
Danke schon mal im Voraus.
Gruß
Andreas

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

Betreff
Datum
Anwender
Anzeige
AW: PDF umwandeln und automatisch versenden
07.10.2013 12:40:07
Bastian
Hallo Andreas,
hier mal ein Code, den Du Deinen Bedürfnissen nach anpassen kannst:

Option Explicit
Private Sub CommandButton1_Click()
Dim objOutlook As Object
Dim strSignature As String
Dim strDateiname As String
strDateiname = ThisWorkbook.FullName & ".pdf"
ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:=strDateiname, _
IncludeDocProperties:=False, _
IgnorePrintAreas:=False, _
OpenAfterPublish:=False
Set objOutlook = CreateObject("Outlook.Application")
With objOutlook.CreateItem(0)
.GetInspector.Display 'Signatur abfragen
strSignature = .Body 'Signatur zwischenspeichern
.To = "max@mustermann.de"
'                 .Cc =
'                 .Bcc =
.Subject = "PDF umwandeln und automatisch versenden"
.Body = "Ihr Text..." & strSignature 'Signatur wieder einfügen
.attachments.Add strDateiname
'Mail anzeigen
.Display
'mit dem folgenden Befehl kann direkt gesendet werden:
'mail.send
Kill strDateiname
End With
End Sub
Gruß, Bastian

Anzeige
AW: PDF umwandeln und automatisch versenden
07.10.2013 12:55:29
andreas
Hallo Bastian,
danke mal vorab für deine Mühe!
Habe nun den Code eingefügt, War klar das es nicht gleich funzt :). Wenn ich auf ausführen gehe dann moniert er mir (Fehler beim Kompilieren)
xlTypePDF
?Kannst du mir noch einmal weiterhelfen?
Ich vermute auch noch das ich die feste eMail Adresse in einer Bestimmten Zeile hinterlegen muss, oder?
Gruß
Andreas

AW: PDF umwandeln und automatisch versenden
07.10.2013 13:18:01
Bastian
Hallo Andreas,
lt. Excel-Hilfe gibt es die Methode "ExportAsFixedFormat" erst ab Excel 2007 (sorry, das war mir nicht bewusst).
Ich habe kein Excel 2003 greifbar und kann Dir dabei leider nicht helfen.
Zu Deiner zweiten Frage:
Den Mailadresse kannst Du entweder direkt im Code angeben (wie in meinem Beispiel hinter ".To ="), oder in einer Zelle hinterlegen. In diesem Fall musst Du im Code an der gleichen Stelle auf die Zelle referenzieren.
Gruß, Bastian

Anzeige
also noch offen
07.10.2013 13:21:14
Bastian

AW: also noch offen
07.10.2013 13:21:26
Bastian

AW: PDF umwandeln und automatisch versenden
07.10.2013 13:40:18
Rudi
Hallo,
evtl. so: 
Sub Start_PDFPrint_Job()
Dim objOutlook As Object
Dim strSignature As String
Dim strDateiname As String
Dim strPfad As String
With ActiveWorkbook
strDateiname = Left(.Name, Len(.Name) - 4) & "-" & ActiveSheet.Name
strPfad = .Path
End With
ChDrive (Left(strPfad, 2))
ChDir strPfad
strDateiname = strPfad & "\" & strDateiname
ActiveSheet.PrintOut ActivePrinter:="Acrobat PDFWriter auf LPT1:", _
PrintToFile:=True, PrToFilename:=strDateiname
Set objOutlook = CreateObject("Outlook.Application")
With objOutlook.CreateItem(0)
.GetInspector.Display 'Signatur abfragen
strSignature = .Body 'Signatur zwischenspeichern
.To = "max@mustermann.de"
'                 .Cc =
'                 .Bcc =
.Subject = "PDF umwandeln und automatisch versenden"
.Body = "Ihr Text..." & strSignature 'Signatur wieder einfügen
.attachments.Add strDateiname & ".pdf"
'Mail anzeigen
.Display
'mit dem folgenden Befehl kann direkt gesendet werden:
'mail.send
Kill strDateiname
End With
End Sub
Gruß
Rudi

Anzeige
AW: PDF umwandeln und automatisch versenden
07.10.2013 14:19:40
andreas
Vielen lieben Dank erst mal für euerer spontane Hilfe,
Bin gerade am probieren, :(
Gruß

241 Forumthreads zu ähnlichen Themen

mehrere Tabellenblätter in ein PDF drucken
Christian

Hallo zusammen,
nachdem ich im Forum keine Info zu meinem Thema gefunden habe:
Ich möchte mehrere Tabellenblätter einer Datei als PDF ausdrucken. Also markiere ich die Tabellenblätter und gehe wie gewohnt ins Menü "Drucken" (PDF über Acrobat 7.0 oder PDF XChange 4.0 Lite).
Leider we...
10.10.2008 09:11:00
Thread-ID: 1015503
2 Beiträge
Anzeige
Umwandeln PIVOT-Tabelle in reguläre Datentabelle
Susi

Hallo liebe Excel-Freunde,
ich habe eine Pivot-Tabelle aus einer umfangreichen Datenmenge erstellt und das Datum nach Quartalen gruppiert. Diese Daten der neuen Pivot-Tabelle möchte ich nun weiterverwenden. Das Problem dabei ist, das ich die Werte der Pivot-Tabelle in eine neue reguläre Dat...
04.02.2009 12:03:00
Thread-ID: 1046976
5 Beiträge
Pdf in Excel umwandeln
Susann

Hallo,
ich habe ein PDF Dokument mit Adressdaten. Diese möchte ich in eine Excelliste wandeln, damit ich einen Serienbrief daraus machen kann.
Ich habe das PDF bereits als Text gespeichert, um es dann mit Tabs getrennt in Excel zu speichern und wieder zu öffnen. Da zeigt er allerdings...
27.04.2009 10:32:12
Thread-ID: 1071297
13 Beiträge
Anzeige
Dateiname in Einzelbestandteile umwandeln
Axel

Hallo
ich habe folgendes Problem:
ich speichere eine Datei nach einer ganz bestimmten Syntax:
Projektnummer_Projektname_Dokument_1.xls
Wie kann ich aus dem abgespeicherten Namen (also aus activeworkbook.name) die einzelnen Bestandteile auslesen und als String wider ausgeben? (Sp...
24.08.2009 17:38:45
Thread-ID: 1098205
10 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
WORD-Datei in EXCEL-Datei umwandeln
Werner

Excel-Level: befriedigend
Hallo Freunde,
habe mal ein Frage, die sich auf Excel und Word zugleich bezieht: Was muss man tun, um ein mit WORD
erstelltes Manuskript, also eine Word-Datei, in eine Excel-Datei umzuwandeln. Die hier zur Debatte stehende WORD-Datei ist wie
folgt auf...
22.10.2009 14:24:46
Thread-ID: 1111301
7 Beiträge
Anzeige

Links zu Excel-Dialogen

CommandButton

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
4
4
12
2
9
1
1
4
6
2
5
2
2
2
5
1
5
5
2
1
1
6
5
2