Office: tabellenblatt als PDF per Mail Versenden

biinng · 17. September 2010

Hallo...

Ich habe ein kleines Anliegen ich habe ein Tabellenblatt was ich als PDF Datei per Mail versenden möchte.
Der Code Funktioniert soweit auch ganz gut nur bekomme ich es nicht hin das er die Mail Automatisch versendet.

Code:

Sub Drucken1()
Dim pdfjob As PDFCreator.clsPDFCreator
Dim wksT As Sheets

Set wksT = Sheets(Array("Nachrichten"))

Application.ScreenUpdating = False
Worksheets("Nachrichten").Visible = True

If Right(Pfad, 1) "\" Then
Pfad = Pfad & "C:\Dokumente und Einstellungen\Neuer Benutzer\Desktop\Kasse_fertig\nachrichten\"
End If

datum = Format(Now, "dd.mm")
zeit = Format(Now, "hh:mm")

If LCase(Right(DateiName, 4)) ".pdf" Then
DateiName = datum & "-" & zeit & "-" & "Nachricht"
End If

Set pdfjob = New PDFCreator.clsPDFCreator

With pdfjob
If .cStart("/NoProcessingAtStartup") = False Then
MsgBox "Initialisierung des PDFCreator fehlgeschlagen", vbOKOnly, "Mitteilung"
Worksheets("Nachrichten").Visible = False
Exit Sub
End If

.cOption("UseAutosave") = 1
.cOption("UseAutosaveDirectory") = 1
.cOption("AutosaveDirectory") = Pfad
.cOption("AutosaveFilename") = DateiName
.cOption("SendEmailAfterAutoSaving") = 1
.cOption("AutosaveFormat") = 0 '0 = PDF
.cClearCache
End With

wksT.PrintOut , Copies:=1, ActivePrinter:="PDFCreator"

Do Until pdfjob.cCountOfPrintjobs = 1
DoEvents
Loop

pdfjob.cPrinterStop = False

Do Until pdfjob.cCountOfPrintjobs = 0
DoEvents
Loop

pdfjob.cClose
Set pdfjob = Nothing

Worksheets("Nachrichten").Visible = False
Application.ScreenUpdating = True
End Sub
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Das Ziel soll sein die erzeugete PDF als Mail automatisch zu versenden.

Gruß kai

:)

jinx · 18. September 2010

Moin, Kai,

wetten, dass Du auf der Seite von Example Code for sending mail from Excel von Ron de Bruin fündig wirst? *wink.gif* Das PDF als Datei speichern und als Attachment anhängen wie z.B. in Mail a different file(s) to each person in a range. Oder vielleicht angeben, welches Mailprogramm verwendet werden soll...

biinng · 19. September 2010

Danke für den Link. Nur hätte ich mir gedacht das mir jemand Hilft die Lösung zu finden und nicht erst noch ein neues Problem aufzurufen.

Ich habe keine "Microsoft Outlook 11.0 Object Library"

Ich habe auch schon gesucht (per Google) ob ich irgendwie das Objekt Downloaden kann und dann einfügen aber leider habe ich nichts gefunden.

Den Code aus #1 er Funktioniert ja er öffnet auch outlook nur mag ich das er mir dann gleich die Mail adresse einträgt und die Mail mit Anhang versendet ohne erst noch bestätigen zu müssen.
Derzeit mache ich es so:

Code:

Sub ********()

Application.ScreenUpdating = False
Application.DisplayAlerts = False

datum = Format(Now, "dd.mm")
zeit = Format(Now, "hh:mm")

Dim wksT As Sheets

ActiveWorkbook.******** Recipients:=Array("biinng@freenet.de", ""), Subject:=datum & "-" & zeit & "-" & Worksheets("Tagesbericht").Cells(3, 2)

Application.DisplayAlerts = True
Application.ScreenUpdating = True

End Sub
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Damit Sende die gesamte Arbeitsmappe und nicht die erzeugte PDF.

Ich Frage mal anders wie füge ich den das fehlende Objekt ein
damit ich diesen Code Ausführen kann ohne den Laufzeitfehler 429 zu bekommen.
--> "Microsoft Outlook 11.0 Object Library "

Code:

ub ********()
Dim mePDFD As String
Dim MyOutApp As Object, MyMessage As Object
mePDFD = ThisWorkbook.Path & "\testPDF.pdf"
Set MyOutApp = CreateObject("Outlook.Application")
Set MyMessage = MyOutApp.CreateItem(0)
With MyMessage
.To = "Meine E_mail Adresse"
.Subject = "hier ist die Test PDF Datei" 'Betreffzeile
.body = "geht doch!"
.Attachments.Add mePDFD
.Display
'.Send
Kill mePDFD
End With
Set MyOutApp = Nothing
Set MyMessage = Nothing
End Sub
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Vielleicht hast du ja auch ein ganz anderen Lösungsansatz für mich.

mumpel · 12. Januar 2021

Hallo!

von biinng

Ich habe keine "Microsoft Outlook 11.0 Object Library"
Ich habe auch schon gesucht (per Google) ob ich irgendwie das Objekt Downloaden kann und dann einfügen aber leider habe ich nichts gefunden.
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Das kann man nicht herunterladen. Das "Object" gehört, wie der Name schon sagt, zu Microsoft Outlook 2003. Outlook muss aber gekauft werden.

Gruß, René

biinng · 19. September 2010

Ok Danke für die aufschlußreiche Antwort.

Nun gut dann stehe ich wieder beim Anfang.

mumpel · 19. September 2010

Versuch es mit folgendem Code. Zuerst das Tabellenblatt kopieren. Dann werden die Daten in der neuen Arbeitsmappe in Festwerte umgewandelt. Anschließend die neue Arbeitsmappe gespeichert, diese dann als Anhang versendet. Anschließend wird die neue gelöscht. Wenn Du das Makro anpasst kannst Du die neue Arbeitsmappe auch als PDF senden.

Sub ********()
Dim oldBook As String
Application.ScreenUpdating = False
Application.DisplayAlerts = False

datum = Format(Now, "dd.mm")
zeit = Format(Now, "hh:mm")

Dim wksT As Sheets

Sheets("Nachrichten").Copy

With ActiveSheet.Cells
.Copy
.PasteSpecial xlPasteValues
End With

With ActiveWorkbook
.SaveAs Filename:=Environ("Userprofile") & "\Desktop\Rechnung.xls", _
FileFormat:=IIf(Val(Application.Version), 56, xlNormal)
oldBook = ActiveWorkbook.FullName
.******** Recipients:=Array("biinng@freenet.de", ""), Subject:=datum & "-" & zeit & "-" & Worksheets("Tagesbericht").Cells(3, 2)
Application.CutCopyMode = False
.Close savechanges:=False
End With

Kill oldBook

Application.DisplayAlerts = True
Application.ScreenUpdating = True

End Sub
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Code eingefügt mit VBA in HTML 2.0

Welche Excelversion hast Du denn?

biinng · 19. September 2010

Ich habe die Version Office 2010 Home and Student.

Den Code den ich derzeit benutze erzeugt mir ja die Pdf und er Sendet es auch an Outlook Express. Nur ich weiß nicht wie ich ihm sage das er gleich die Mailadresse eintragen soll und die Mail dann automatisch versendet.

Code:

Sub Drucken1()
Dim pdfjob As PDFCreator.clsPDFCreator
Dim wksT As Sheets
Set wksT = Sheets(Array("Nachrichten"))
Application.ScreenUpdating = False
Worksheets("Nachrichten").Visible = True
If Right(Pfad, 1) "\" Then
Pfad = Pfad & "C:\Dokumente und Einstellungen\Neuer Benutzer\Desktop\Kasse_fertig\nachrichten\"
End If
datum = Format(Now, "dd.mm")
zeit = Format(Now, "hh:mm")
ident = Worksheets("Tagesbericht").Cells(3, 2)
If LCase(Right(DateiName, 4)) ".pdf" Then
DateiName = datum & "-" & zeit & "-" & ident
End If
Set pdfjob = New PDFCreator.clsPDFCreator
With pdfjob
If .cStart("/NoProcessingAtStartup") = False Then
MsgBox "Initialisierung des PDFCreator fehlgeschlagen", vbOKOnly, "Mitteilung"
Worksheets("Nachrichten").Visible = False
Exit Sub
End If
.cOption("UseAutosave") = 1
.cOption("UseAutosaveDirectory") = 1
.cOption("AutosaveDirectory") = Pfad
.cOption("AutosaveFilename") = DateiName
.cOption("SendEmailAfterAutoSaving") = 1 '--> nach dem Speichern Senden an Outlook
.cOption("********MethodAutomatic") = 1 '--> ??? keine Ahnung was das Bedeutet
.cOption("AutosaveFormat") = 0 '0 = PDF
.cClearCache
End With
wksT.PrintOut , Copies:=1, ActivePrinter:="PDFCreator"
Do Until pdfjob.cCountOfPrintjobs = 1
DoEvents
Loop
pdfjob.cPrinterStop = False
Do Until pdfjob.cCountOfPrintjobs = 0
DoEvents
Loop
pdfjob.cClose
Set pdfjob = Nothing
Worksheets("Nachrichten").Visible = False
Application.ScreenUpdating = True
End Sub
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

bst · 19. September 2010

Morgen,

ich würde mal annehmen:

********Method ist Menu-Drucker-Einstellungen-Allgemeine Einstellungen 1-Methode zum Versenden einer eMail. Mit:

0=Automatisch
1=Mapi Schnittstelle
2=********.dll verwenden

Nachtrag: Aus der Hilfe von PDFCreator unter clsPDFCreator:

Public Sub c********(ByVal OutputFilename As String, ByVal Recipients As String)

Siehe auch im Verzeichnis auf Deiner Platte "...pdfcreator\com\windows scripting host\vbscripts\Testpage2PDFSendEmail.vbs"

cu, Bernd

mumpel · 19. September 2010

Wenn Du Excel 2010 einsetzt, dann kannst Du ExportAsFixedFormat nutzen.

Beispielmakro. Hier wird mit "FollowHyperlinks" eine Email erstellt. Allerdings weiss ich nicht ob man dabei auch einen Anhang anfügen kann.

Sub TabellePerPDFAlsEmailanhang()
Dim oldBook As String
Dim oldPdf As String
Dim newPath As String
Dim newFilename As String
Dim newSubject As String
Dim newMail As String

Rem Bildschirmmeldungen und -aktualisierung ausnschalten
Application.ScreenUpdating = False
Application.DisplayAlerts = False

datum = Format(Now, "dd.mm")
zeit = Format(Now, "hh:mm")

newPath = Environ("USERPROFILE") & "\Desktop\Kasse_fertig\nachrichten\"
newSubject = datum & "-" & zeit & "-" & ThisWorkbook.Worksheets("Tagesbericht").Cells(3, 2)

Rem Tabelenblatt in neue Arbeitsmappe
Sheets("Nachrichten").Copy

Rem Formeln in Festwerte umwandeln
With ActiveSheet.Cells
.Copy
.PasteSpecial xlPasteValues
End With

Rem Arbeitsmappe speichern und in Pdf umwandeln
With ActiveWorkbook
.SaveAs Filename:=newPath & "Rechnung.xls", _
FileFormat:=IIf(Val(Application.Version), 56, xlNormal)
Application.CutCopyMode = False
newFilename = Left(ActiveWorkbook.Name, InStr(1, ActiveWorkbook.Name, ".") - 1)
.ExportAsFixedFormat Type:=xlTypePDF, Filename:=newPath & newFilename, _
Quality:=xlFileQuality, IncludeDocProperties:=False, _
IgnorePrintAreas:=False, OpenAfterPublish:=False
oldBook = ActiveWorkbook.FullName
oldPdf = newPath & newFilename & ".pdf"
.Close savechanges:=False
End With

Rem Hyperlinkdaten erstellen
newMail = "mailto:test@testserver.de?Subject=" & newSubject '& "?Attachment=" & oldPdf

Rem Email erstellen und senden
ThisWorkbook.FollowHyperlink newMail
SendKeys "%s"

Rem Dateien löschen (Optional)
Kill oldBook
Kill oldPdf

Rem Bildschirmmeldungen und -aktualisierung einschalten
Application.DisplayAlerts = True
Application.ScreenUpdating = True
End Sub
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Code eingefügt mit VBA in HTML 2.0

biinng · 21. September 2010

Danke Mumpel für deinen Code werde ich umgehend einbauen....

------------------
nachtrag:
habe den Code versucht und leider nicht das gewünschte Ergebnis erhalten. Habe auch noch ein wenig rumgebastelt aber leider hängt er die erzeugte Pdf nicht an.
Ich werde es einfach so lassen wie es ist. Also mit dem PDFCreator meine Pdf erzeugen die auf dem Rechner gespeichert werden und die Mappe im ganzen per Mail versenden.

Ich danke dir für deine Hilfe und den Code werde ich mir abspeichern fürs nächste mal.

Office: tabellenblatt als PDF per Mail Versenden

tabellenblatt als PDF per Mail Versenden

tabellenblatt als PDF per Mail Versenden

tabellenblatt als PDF per Mail Versenden

tabellenblatt als PDF per Mail Versenden

tabellenblatt als PDF per Mail Versenden - Similar Threads - tabellenblatt PDF Mail

Excel Tabellenblatt als PDF speichern unter Vorgabe Dateinamen aus einer Zelle

aktuelles Tabellenblatt als pdf speichern

VBA Problem - Tabellenblatt als PDF speichern funktioniert nicht

Werte aus Pdf auslesen und in Tabellenblatt schreiben

Ordner erstellen und Tabellenblatt als PDF darin speichern

Excel Tabellenblatt als PDF speichern unter Vorgabe Dateinamen aus einer Zelle

Mehrere Tabellenblätter in ein PDF drucken wenn bedingung erfüllt