Office: (Office 2010) PDF-Bericht Per Mail senden und als Datei ablegen

Hallo,
ich habe schon einiges zum Thema gelesen aber das richtige war leider noch nicht dabei.

Ich möchte durch Drücken eines Buttons einen Bericht zum Aktuellen Datensatz als PDF per Email versenden und zusätzlich als PDF Datei in einem Ordner ablegen.

Dabei soll:
- Die E-Mailadresse aus dem gebunden Textfeld "Mail" übernommen werden
- Die Rechnugnsnummer aus dem gebunden Textfeld "Ident" der Dateiname werden
- Die erstellte PDF in einem Standartordner abgelegt
und ein Standart Text und Betreff übernommen werden.

Viele Sachen auf einmal aber doch bestimmt machbar.

Kann mir da wer weiter helfen.

VG, Daniel

:)

 

Wobei benötigst Du konkret Hilfe?
Sinnvolle Stichworte für eine Recherche (OnlineHilfe, Google & Co.):
SendObject
Attachment
OutputPDF

 

Naja ich hätte gerne einen VBA Code der mir einen PDF Bericht erstellt und diesen gleichzeitig verschickt bzw. an eine Mail anhängt.
Ich lese immer was von einer dll Datei die ich benötige.
Aber dann sehe ich ein Makro in Access 2010 Was eigentlich schon genau das macht was ich will, nur eben keinen Filter auf den Aktuellen Datensatz setzt, bzw. einen PDF Dateinamen vergibt.

 

Ich habe z.B. diesen Code gefunden um den Bericht gefiltert als PDF zu speichern.
Da landet die Datei allerdings auf dem Desktop.

PHP:

         Private Sub Rechnung Speichern_Click()
Dim strRechnung As String

strRechnung = "Rechnung_" & Me.RechnNr & ".pdf"

DoCmd.OpenReport "Rechnung", WhereCondition:="RechnNr = " & Me!RechnNr, View:=acViewPreview

DoCmd.OutputTo acOutputReport, "Rechnung", acFormatPDF, CurrentProject.Path & "\" & strRechnung

DoCmd.Close acReport, "Rechnung"

End Sub


 

Dann liegt vmtl. auch die Datenbank/Anwendung auf dem Desktop.
OutputTo speichert in diesem Fall den Report als PDF (acFormatPDF) im selben Pfad wie die Anwendung (CurrentProject.Path) ab.

Wenn Du ein anderes Verzeichnis möchtest, musst Du das dort angeben.

 

Hallo,

das muss dann wohl daran liegen, dass du die DB vom Desktop aus startest. *wink.gif*

Zur Auswahl eines Pfades gibt es den Verzeichnisauswahldialog - einfach mal googeln.

 

Ja das klingt logisch.
Die Test_DB liegt Tatsächlich auf dem Desktop. Guter Hinweis ;-) .
Nein aber habe versucht dort anstelle von "CurrentProject.Path" einen anderen Pfad anzugeben, das funktioniert aber nicht.

 

Das äussert sich wie?
Wie sieht der Code jetzt aus?

 

PHP:

         Private Sub Rechnung Speichern_Click()
Dim strRechnung As String

strRechnung = "Rechnung_" & Me.RechnNr & ".pdf"

DoCmd.OpenReport "Rechnung", WhereCondition:="RechnNr = " & Me!RechnNr, View:=acViewPreview

DoCmd.OutputTo acOutputReport, "Rechnung", acFormatPDF, vem -   swd - file01  User_Mf  dknodel  Desktop  Test & "\" & strRechnung

DoCmd.Close acReport, "Rechnung"

End Sub


 

Was konkret nicht funktioniert verschweigst Du leider weiterhin...
vem - swd - file01 User_Mf dknodel Desktop Test & "\" & strRechnung
Was soll das ergeben?
Wie sieht der gewünschte, echte Ausgabepfad aus?

 

Es kommt eine Fehlermeldung:
"Laufzeitfehler 11
Division durch Null"
Das ist der Pfad:
\\vem-swd-file01\User_Mf\dknodel\Desktop\Test

Arbeite hier an so einem Citrix Client, deswegen ein solcher Pfad.

 

Dann sollte der Pfad so zusammengesetzt werden:
Code:

Wenn Du jetzt aber wieder vom Desktop aus in den Ordner Test möchtest, reicht ggf. auch ein
DoCmd.OutputTo acOutputReport, "Rechnung", acFormatPDF, CurrentProject.Path & "\Test\" & strRechnung
Vorausgesetzt die DB liegt immer noch auf dem Desktop

 

Hallo Daniel,

ich habe mal ganz schnelle einen Code zusammengestrippt der bei mir unter Access 2007 funktioniert. Da ich dienstlich momentan auch über solch einem ähnlichen Problem sitze war das kein Problem. Ich habe das Ganze auch gleich mal um 2 Anhänge erweitert.

Funktionsweise:

2 vorhandene Berichte (Rechnung 1 und 2) werden in einem vorgegebenen Ordner als PDF abgelegt und daraus die Anhänge für die Mail entnommen. Musst sicherlich noch etwas an Dein System anpassen.

Code:

 

Also das speichern meines Berichtes funktioniert nun sehr gut.
Vielen Dank dafür.
Mein zweites Problem den Bericht dann auch zu senden habe ich nun über das vorgegebene Makro gemacht.
Damit kann ich alles machen, außer den aktuellen Datensatz verschicken.

Hab im Forum gelesen ich könnte meinen Bericht auf einer Abfrage basieren lassen.
Leider komme ich an dieser Stelle aber nicht weiter.

 

Nur aktuellen Datensatz drucken