<\/p>\n
Sie haben eine Anwendung, die Berichte mit Rechnungen oder ähnlichen Daten enthält, und möchten diese möglichst in einem Rutsch als PDF-Dokument in einer E-Mail verschicken Kein Problem: Die Werkzeuge dafür hat Access im Unternehmen in der Vergangenheit schon geliefert. Jetzt geht es an das Zusammenbauen der Einzelteile zur PDF-erzeugenden Bericht-Per-Mail-Verschickungsmaschine.<\/b><\/p>\n<\/div>\n Jeder, der seine Kunden und Bestellungen in einer Access-Datenbank verwaltet, hegt früher oder später den Wunsch, Rechnungen und sonstigen kundenbezogenen Schriftverkehr automatisiert erledigen zu lassen. Klassischerweise hält dafür ein Bericht her, der ausgedruckt, eingetütet und mit der Schneckenpost verschickt wird. Manch einer schickt die Daten auch zuvor noch nach Word, um diese von der Sachbearbeiterin nachbearbeiten zu lassen.<\/p>\n In letzter Zeit löst aber die E-Mail den Versand per Post ab: Dabei wird die Rechnung im PDF-Format gespeichert, an die E-Mail angehängt und mit dieser verschickt. Damit entfallen sowohl einige Kosten fürs Material als auch der Zeitaufwand für das Ausdrucken und Eintüten, geschweige denn die Verzögerung durch die postalische Zustellung.<\/p>\n Damit Sie wirklich von dieser gewonnenen Zeit profitieren können, müssen die notwendigen Vorgänge natürlich vollautomatisch ablaufen. Das ist kein Problem: Beiträge aus vergangenen Ausgaben von Access im Unternehmen liefern die Basis für das Programmieren einer Anwendung, die Ihre Anschreiben vollautomatisch an die Kunden versendet.<\/p>\n Das Erstellen von PDF-Dokumenten aus Berichten beschreibt der Beitrag Vom Bericht zum PDF-Dokument <\/b>(Shortlink 430). Dort kommt eine von Stephen Lebans bereitgestellte DLL, die nicht registriert werden muss, zum Einsatz.<\/p>\n Das Versenden von E-Mails erläutert der Beitrag Mail versenden mit SMTP und VBA <\/b>(Shortlink 390). Auch dieser Beitrag stellt eine DLL vor, die Sie kostenlos einsetzen können.<\/p>\n Die Techniken sind also vorhanden, fehlt nur noch das Rahmenwerk: Eine Anwendung, die massenhaft Dokumente für unterschiedliche Empfänger liefert, ist beispielsweise die Südsturm-Datenbank (eine geänderte Fassung der Nordwind-Datenbank, siehe Shortlink 411). Sie enthält neben den Tabellen einen Rechnungsbericht, der dem aus der Original-Nordwind-Datenbank entspricht, aber den Tabellen der Südwind-Datenbank angepasst ist (siehe Bild 1).<\/p>\n Bild 1: Der Rechnungen-Bericht aus der Nordwind-Datenbank hält als Beispiel für den Rechnungsversand im PDF-Format per E-Mail her.<\/span><\/b><\/p>\n<\/p><\/div>\n Voraussetzung: E-Mail-Adresse<\/b><\/p>\n Damit Sie überhaupt serienweise Rechnungen per E-Mail versenden können, brauchen Sie die passenden E-Mail-Adressen. Diese sollten zusammen mit den übrigen Kundendaten in einem separaten Feld der Kundentabelle untergebracht sein. Im Beispiel enthält so die Tabelle tblKunden <\/b>ein weiteres Feld namens EMail<\/b>.<\/p>\n Zusätzliche Felder<\/p>\n Wer Rechnungen und sonstige Korrespondenz per E-Mail verschickt, sollte dies genau so festhalten wie den Versand von Waren oder Briefen. Daher enthält die Tabelle tblBestellungen <\/b>ein zusätzliches Feld mit dem Namen Rechnungsdatum <\/b>(siehe Bild 2).<\/p>\n Bild 2: Die Tabelle tblBestellungen enthält ein zusätzliches Feld, das den Zeitpunkt des Rechnungsversands speichert.<\/span><\/b><\/p>\n<\/p><\/div>\n Außerdem fügen Sie der Beispieldatenbank eine weitere Tabelle namens tblRechnungVersenden <\/b>hinzu. Die Tabelle enthält lediglich zwei Felder: Das Primärschlüsselfeld dient der Verknüpfung mit einem Datensatz der Tabelle tblBestellungen<\/b>, das zweite ist ein Ja\/Nein<\/b>-Feld, das angibt, ob die Rechnung zur aktuellen Bestellung versendet werden soll. Da diese Angabe nur temporär ist, soll sie in einer separaten Tabelle gespeichert werden und die Anzahl der Felder der Tabelle tblBestellungen <\/b>nicht unnötig erhöhen. Die Verknüpfung der beiden Tabellen entnehmen Sie Bild 3.<\/p>\n Bild 3: Die zusätzliche Tabelle tblRechnungVersenden liefert ein Feld zum Markieren der zu versendenden Rechnungen.<\/span><\/b><\/p>\n<\/p><\/div>\n Rechnungen für den Versand auswählen<\/b><\/p>\n Bevor es ans Eingemachte geht, stellen Sie zunächst noch ein Formular zusammen, mit dem der Anwender auswählen kann, welche Rechnungen er versenden möchte. Dazu verwenden Sie ein Unterformular, das die Rechnungen aus der Abfrage aus Bild 4 anzeigt. Um das Unterformular übersichtlich zu halten, soll es nur die Felder BestellungID<\/b>, Bestelldatum<\/b>, Rechnungsdatum <\/b>und das Feld Versenden <\/b>der Tabelle tblRechnungVersenden <\/b>enthalten.<\/p>\n Bild 4: Diese Abfrage liefert die Daten für die Auswahl der zu versendenden Rechnungen im Unterformular sfmRechnungen.<\/span><\/b><\/p>\n<\/p><\/div>\n Das Unterformular selbst betten Sie in ein Hauptformular ein, das die Möglichkeit bietet, nach noch nicht verschickten Rechnungen zu fahnden oder die aktuell zu verschickenden Rechnungen zu markieren (siehe Bild 5).<\/p>\n Bild 5: Die Auswahl der zu versendenden Rechnungen erfolgt im Formular Technische Voraussetzungen<\/p>\n Wie bereits erwähnt, brauchen Sie einige DLLs für den Betrieb dieser Lösung.<\/p>\n Die vbSendMail.dll <\/b>[1] müssen Sie registrieren. Dies erledigen Sie ganz einfach mit folgender Anweisung, abgesetzt im Ausführen<\/b>-Dialog oder in der Eingabeaufforderung:<\/p>\n Nutzer von Windows Vista müssen über die entsprechenden Berechtigungen verfügen und installieren DLLs mit demselben Befehl, allerdings in der Administrator-Variante der Eingabeaufforderung, die man mit dem Kontextmenüeintrag Als Administrator ausführen <\/b>des Menüpunkts Alle Programme\/Zubehör\/Eingabeaufforderung <\/b>öffnet.<\/p>\n Für den Einsatz der Bibliothek benötigen Sie einen Verweis auf SMTP Send Mail for VB6<\/b> in der Datenbank.<\/p>\n Die beiden für das Erzeugen des PDFs aus einem Bericht erforderlichen DLLs [2] brauchen Sie nicht zu installieren, sondern nur im Verzeichnis der Datenbankanwendung oder im Windows-Systemverzeichnis zu speichern.<\/p>\n Dafür müssen Sie aber die beiden Module modReportToPDF <\/b>und clsCommonDialog <\/b>aus der Beispieldatenbank A2000SnapshotToPDFver751<\/b>.mdb<\/b> [2] importieren – darin ist unter anderem die Funktion zum Erzeugen eines PDF-Dokuments aus einem Bericht enthalten.<\/p>\n E-Mail-Daten<\/b><\/p>\n Für das Versenden von E-Mails mit der vbSendMail<\/b>-Bibliothek brauchen Sie ein paar Informationen mehr, als wenn Sie dies mit Outlook erledigen. Dafür sind Sie aber auch vor lästigen Sicherheitsrückfragen gefeit.<\/p>\n Zu diesen Informationen gehören unter anderem die Daten des Servers, der die E-Mails verschicken soll, die Absenderinformationen, der Text des Betreffs und der eigentliche Inhalt der E-Mail.<\/p>\n Da sich diese Daten möglicherweise mit der Zeit ändern oder Sie verschiedene E-Mail-Vorlagen erstellen möchten, speichern Sie je einen Satz dieser Daten in einer Tabelle namens tblEMails<\/b>, die mit einer weiteren Tabelle namens tblAuthentifizierungsdaten <\/b>verknüpft ist. Letztere enthält die unterschiedlichen Authentifizierungsmethoden.<\/p>\n Diese Tabelle sieht im Beziehungen-Fenster so wie in Bild 6 aus.<\/p>\n Bild 6: Diese beiden Tabellen speichern die Vorlagen für verschiedene E-Mails. Auf diese Weise ist das Wechseln etwa des Servers oder einer Absenderadresse kein Problem.<\/span><\/b><\/p>\n<\/p><\/div>\n <\/p>\n Die Steuerungszentrale<\/b><\/p>\n Das Formular frmRechnungsversand <\/b>dient nicht nur der Anzeige der in den beiden Tabellen tblEMails <\/b>und tblAuthentifizierungsarten <\/b>gespeicherten Daten, sondern auch als Steuerungszentrale für den E-Mail-Versand (siehe Bild 7).<\/p>\n Bild 7: Interessant sind die Funktionen dieses Formulars: Während die Felder im oberen Bereich entsprechend den vorliegenden Serverdaten gefüllt werden müssen, können Sie bei den beiden unteren Feldern Betreff<\/b> und Inhalt <\/b>mit Platzhaltern arbeiten. Die enthaltene Technik lässt sich am besten im Zusammenhang erläutern:<\/p>\n Zunächst trägt der Benutzer die für den Versand wichtigen Informationen in die dafür vorgesehenen Felder ein.<\/p>\n Dann erfolgt die Auswahl der Bestellungen, für die eine Rechnung verschickt werden soll. Diese Auswahl erfolgt im Formular frmRechnungen<\/b>, das der Benutzer durch einen Mausklick auf die Schaltfläche cmdEmpfaengerAuswaehlen <\/b>öffnet. Dies löst die folgende Ereignisprozedur aus:<\/p>\n Die Routine öffnet das Formular frmRechnungen <\/b>als modalen Dialog und aktualisiert anschließend den Inhalt des ungebundenen Textfelds txtAnzahlEmpfaenger <\/b>– somit gewinnt der Benutzer einen Eindruck vom Umfang des anstehenden Mailversands.<\/p>\n Der anschließende Klick auf die Schaltfläche Senden<\/b> löst nun die Routine aus Listing 1 aus. Diese erledigt nun zusammengefasst die folgenden Schritte:<\/p>\n Listing 1: Das Versenden von Rechnungen im PDF-Format<\/p>\n Personalisierung<\/b><\/p>\n Während die Rechnungsdatensätze durchlaufen und die E-Mails zusammengestellt und versendet werden, findet eine Personalisierung der E-Mails statt. Hauptbestandteil ist natürlich die auf den aktuellen Kunden abgestimmte Rechnung im PDF-Format – dazu später mehr. Aber auch die E-Mail selbst soll den Kunden persönlich ansprechen, und zwar nicht nur über die ohnehin notwendige E-Mail-Adresse.<\/p>\n Dazu greift sich die Routine den im Formular angegebenen Betreff und den Inhalt der Mail heraus, die mit Platzhaltern wie [Bestelldatum] <\/b>und [Kontaktperson] <\/b>versehen sind.<\/p>\n Für den Einsatz dieser Platzhalter muss eine einzige Regel eingehalten werden: Die in der Routine durchlaufene Datensatzgruppe muss für jeden Platzhalter ein gleichnamiges Feld enthalten – natürlich ohne die eckigen Klammern, die nur zum Identifizieren der Platzhalter dienen.<\/p>\n Genau das ist hier der Fall – zum besseren Verständnis hier noch einmal der SQL-Ausdruck der Abfrage:<\/p>\n Hier sind sowohl das Feld Bestelldatum <\/b>als auch Kontaktperson <\/b>enthalten. Die Platzhalter müssen nun bei jedem Durchlauf, also für jeden Rechnungsdatensatz, durch die persönlichen Werte ersetzt werden. Dies geschieht in den beiden folgenden Zeilen der Routine aus Listing 1:<\/p>\n Diese beiden Zeilen rufen die Funktion PlatzhalterErsetzen <\/b>auf, die Sie in Listing 2 finden. Die Routine erwartet den Originaltext mit den Platzhaltern, den Namen der Tabelle oder der Abfrage, aus der die Ersetzungstexte stammen, und den Wert des Primärschlüsselfeldes für den betroffenen Datensatz.<\/p>\n Listing 2: Ersetzen von Platzhaltern im Mail-Betreff und Mail-Text<\/p>\n Man könnte diese Funktion noch etwas allgemeiner gestalten und damit für weitere Anwendungszwecke verfügbar machen; diese scheinen jedoch nicht allzu weit gesät, sodass diese spezielle Variante praktischer erscheint.<\/p>\n Die Routine durchsucht erst den Text nach Paaren eckiger Klammern und speichert die darin enthaltenen Texte in einem String-Array namens strPlatzhalter<\/b>.<\/p>\n Die Routine enthält aus Gründen der übersicht keine Fehlerbehandlung, sodass eine falsche Anzahl öffnender oder schließender Klammern zu einem Fehler führen könnte.<\/p>\n Anschließend durchläuft die Routine die gesammelten Platzhalter und ersetzt diese durch den im passenden Feld des angegebenen Datensatzes vorhandenen Ausdruck. Der Rückgabewert der Funktion entspricht dem Eingangstext mit ersetzten Platzhaltern.<\/p>\n PDF bauen<\/b><\/p>\n Den Bau der an die Mail anzuhängenden Berichte im PDF-Format übernimmt eine weitere Funktion namens RechnungErstellen<\/b> (s. Listing 3). Diese Routine erwartet ebenfalls den Wert des Primärschlüssels, um die richtige Rechnung zu erzeugen ,sowie den Pfad unterhalb des Datenbankverzeichnisses, in den sie die fertigen PDF-Dateien schreiben soll.<\/p>\n Listing 3: Erstellen der PDF-Version des Rechnungsberichts<\/p>\n Die Routine enthält prinzipiell nur zwei Anweisungen, die es aber in sich haben: Die erste stellt die globale Variable gstrReportFilter <\/b>auf den Wert „BestellungID = “ & lngID <\/b>ein. Dies ist wichtig, weil die Funktion zum Umwandeln des Berichts keine direkte Möglichkeit zum übergeben von Parametern wie etwa die DoCmd.OpenReport<\/b>-Methode liefert. Daher speichern Sie das einzige Filterkriterium, nämlich die ID der Bestellung, in einer Form, in der sich der Bericht diese mit einer passenden Methode beim öffnen selbst holen kann. Ein kleiner Ausflug zum Zielbericht repRechnung <\/b>zeigt, wie das funktioniert. Für das Ereignis Beim öffnen <\/b>dieses Berichts legen Sie nämlich die folgende kleine Ereignisprozedur an:<\/p>\n Auf diese Weise stellt sich der Bericht bei jedem öffnen selbst auf den in gstrReportFilter <\/b>angegebenen Filter ein. Dies macht sich die Funktion ConvertToPDF <\/b>zu Nutze, die ein PDF-Dokument auf Basis des Berichts erstellt (siehe Bild 9). Da auch diese Funktion den Bericht öffnen muss, um das PDF daraus erstellen zu können, findet auch hier die Filterung nach dem in gstrReportFilter <\/b>angegebenen Ausdruck statt. <\/p>\n Bild 9: Der Bericht mit der Die Funktion ConvertToPDF <\/b>erwartet neben dem Namen des Quellberichts noch den Namen der zu erstellenden PDF-Datei inklusive Pfad, der mit einfachen Textoperationen zusammengesetzt wird.<\/p>\n Die Funktion finden Sie übrigens in einem der beiden aus der Beispieldatenbank aus [2] importierten Module.<\/p>\n PDF anhängen<\/b><\/p>\n Nach dem Erstellen des PDF hängt die Routine dieses an die Mail an. Dazu dienen die folgenden beiden Zeilen:<\/p>\n Die erste stellt den Dateinamen der PDF-Datei zusammen, die zweite fügt den so erzeugten String der Eigenschaft Attachment <\/b>des Mail-Objekts hinzu (Ergebnis s. Abb. 10).<\/p>\n Bild 10: Eine mit der Lösung dieses Artikels verschickte E-Mail samt Anhang<\/span><\/b><\/p>\n<\/p><\/div>\n Weitere Informationen über das Versenden von Serienmails mit der hier verwendeten Bibliothek finden Sie in den Beiträgen Serienmails mit Access <\/b>(Shortlink 380) und Mails versenden mit SMTP und VBA <\/b>(Shortlink 390).<\/p>\n Sehr wichtig ist auch das Notieren des Rechnungsversands in der Tabelle tblBestellungen<\/b>: Dort soll das Feld Rechnungsdatum<\/b> für die versendeten Rechnungen auf das aktuelle Datum eingestellt werden. Dies übernimmt die folgende Anweisung (in einer Zeile):<\/p>\n Zusammenfassung und Ausblick<\/p>\n Die hier vorgestellte Beispiellösung können Sie auf beliebige Anwendungen übertragen, die personalisierte E-Mails mit PDF-Versionen eines oder mehrerer Berichte enthalten sollen.<\/p>\n Dabei gibt es beliebige Erweiterungsoptionen. Die erste und wichtigste ist eine Fehlerbehandlung, die hier aus Gründen der übersichtlichkeit weggelassen wurde.<\/p>\n Für viele Zwecke ist außerdem die lückenlose Dokumentation der versendeten E-Mails und der anhängenden Dokumente wichtig. Ein wichtiger Punkt ist hierbei, dass Sie eine Kopie jeder E-Mail an sich selbst schicken. Dabei können Sie beispielsweise eine separate E-Mail-Adresse wählen, deren Mails direkt in den Gesendete Objekte<\/b>-Ordner Ihres E-Mail-Clients landen.<\/p>\n Die PDF-Dateien werden in einem Verzeichnis unterhalb des Datenbankverzeichnisses gespeichert. Sie können natürlich ein OLE-Feld in der Tabelle tblBestellungen<\/b> anlegen und die PDF-Dokumente darin speichern. Techniken zum Speichern binärer Dateien in OLE-Feldern finden Sie beispielsweise im Beitrag Komprimierte Binärspeicherung <\/b>(Shortlink 466).<\/p>\n Zur Verwendung weiterer Platzhalter fügen Sie einfach die entsprechenden Felder zu der Abfrage hinzu, die als Basis für das in der beim Senden ausgelösten Routine durchlaufene Recordset dient. Fügen Sie außerdem die passenden Platzhalter in den Betreff und den Inhalt der E-Mail ein.<\/p>\n Quellen<\/b><\/p>\n [1] Download vbSendmail.dll: http:\/\/www.freevbcode.com\/ShowCode.AspID=109<\/p>\n [2] Download ReportToPDF: http:\/\/www.lebans.com\/reporttopdf.htm<\/p>\n Enthaltene Beispieldateien:<\/p>\n Rechnungsversand.mdb<\/p>\n\n\n ![\"pic001.tif\"](\"..\/fileadmin\/_temp_\/2007_05\/BerichtPDFMail-web-images\/pic001_opt.jpeg\")
\n <\/div>\n\n\n ![\"pic002.tif\"](\"..\/fileadmin\/_temp_\/2007_05\/BerichtPDFMail-web-images\/pic002_opt.jpeg\")
\n <\/div>\n\n\n ![\"pic003.tif\"](\"..\/fileadmin\/_temp_\/2007_05\/BerichtPDFMail-web-images\/pic003_opt.jpeg\")
\n <\/div>\n\n\n ![\"pic004.tif\"](\"..\/fileadmin\/_temp_\/2007_05\/BerichtPDFMail-web-images\/pic004_opt.jpeg\")
\n <\/div>\n\n\n ![\"pic005.tif\"](\"..\/fileadmin\/_temp_\/2007_05\/BerichtPDFMail-web-images\/pic005_opt.jpeg\")
\n <\/div>\n\n
frmRechnungen per Klick auf das entsprechende Kontrollkästchen.<\/span><\/b><\/p>\n<\/p><\/div>\nRegSvr32.exe <Pfad>\\vbSendMail.dll<\/pre>\n
\n ![\"pic006.tif\"](\"..\/fileadmin\/_temp_\/2007_05\/BerichtPDFMail-web-images\/pic006_opt.jpeg\")
\n <\/div>\n\n\n ![\"pic007.tif\"](\"..\/fileadmin\/_temp_\/2007_05\/BerichtPDFMail-web-images\/pic007_opt.jpeg\")
\n <\/div>\n\n
Das Formular frmRechnungsversand steuert den Versand der Rechnungen und bietet die Möglichkeit, das Formular frmRechnungen zum Auswählen der zu versendenden Rechnungen anzuzeigen.<\/span><\/b><\/p>\n<\/p><\/div>\nPrivate Sub cmdEmpfaengerAuswaehlen_Click()\r\n DoCmd.OpenForm \"frmRechnungen\", _
WindowMode:=acDialog\r\n Me!txtAnzahlEmpfaenger = _
DCount(\"BestellungID\", _
\"qryRechnungenAuswahl\", _
\"Rechnungsdatum IS NULL AND \" _
& \"Versenden = True\")\r\nEnd Sub<\/pre>\n\n
\nPrivate Sub cmdSenden_Click()\r\n DoCmd.Hourglass True\r\n Dim db As DAO.Database\r\n Dim rst As DAO.Recordset\r\n Dim intGesendet As Integer\r\n Dim intNichtGesendet As Integer\r\n Dim intRechnungen As Integer\r\n Dim strOrdner As String\r\n Dim strAttachment As String \r\n DoCmd.RunCommand acCmdSaveRecord \r\n Set objMail = New vbSendMail.clsSendMail\r\n Set db = CurrentDb\r\n objMail.SMTPHost = Me!SMTPServer\r\n objMail.SMTPPort = Me.SMTPPort\r\n objMail.Connect\r\n Set rst = db.OpenRecordset(\"SELECT DISTINCT * FROM qryRechnungenAuswahl WHERE Rechnungsdatum IS NULL \" _
& \"AND Versenden = True\", dbOpenDynaset)\r\n If Not rst.EOF Then\r\n rst.MoveLast\r\n rst.MoveFirst\r\n intRechnungen = rst.RecordCount\r\n strOrdner = \"Rechnungsversand\"\r\n On Error Resume Next\r\n MkDir CurrentProject.path & \"\\\" & strOrdner\r\n On Error GoTo 0\r\n Do While Not rst.EOF\r\n RechnungErstellen rst!BestellungID, strOrdner\r\n With objMail\r\n .EncodeType = MIME_ENCODE\r\n .ContentBase = .GetContentType(CurrentProject.path & \"\\\" & strOrdner & \"\\Abrechnung\" _
& rst!BestellungID & \".pdf\")\r\n strAttachment = CurrentProject.path & \"\\\" & strOrdner & \"\\Rechnung_\" & rst!BestellungID & \".pdf\"\r\n .Attachment = strAttachment\r\n .from = Me.Von\r\n If Len(Me.KopieAn) > 0 Then\r\n .BccRecipient = Me.KopieAn\r\n End If\r\n .Subject = PlatzhalterErsetzen(Me.Betreff, \"qryRechnungen\", rst!BestellungID)\r\n .Recipient = rst(\"EMail\")\r\n .AsHTML = False\r\n .Message = PlatzhalterErsetzen(Me.Inhalt, \"qryRechnungen\", rst!BestellungID)\r\n Select Case Me.Authentifizierung\r\n Case 2\r\n .UsePopAuthentication = True\r\n .UserName = Me.Benutzername\r\n .Password = Nz(Me.Kennwort, \"\")\r\n .POP3Host = Me.POP3Server\r\n Case 3\r\n .UseAuthentication = True\r\n .UserName = Nz(Me.Benutzername, \"\")\r\n .Password = Nz(Me.Kennwort, \"\")\r\n End Select\r\n .send\r\n If bolGesendet = True Then\r\n intGesendet = intGesendet + 1\r\n Else\r\n intNichtGesendet = intNichtGesendet + 1\r\n End If\r\n End With\r\n SysCmd acSysCmdSetStatus, rst.AbsolutePosition + 1 & \" von \" & intKontakte & \" versendet.\"\r\n rst.MoveNext\r\n Loop\r\n End If\r\n objMail.Disconnect\r\n MsgBox \"Statistik:\" & vbCrLf & \"Anzahl erfolgreich versendeter E-Mails: \"
& intGesendet & vbCrLf & \"Anzahl nicht versendeter E-Mails: \" & intNichtGesendet\r\n rst.Close\r\n Set objMail = Nothing\r\n Set rst = Nothing\r\n Set db = Nothing\r\n DoCmd.Hourglass False\r\nEnd Sub<\/pre>\n<\/p><\/div>\nSELECT BestellungID, Bestelldatum, Rechnungsdatum, Firma, Versenden, Kontaktperson, EMail FROM tblKunden INNER JOIN ...<\/pre>\n
.Subject = PlatzhalterErsetzen(Me!Betreff, \"qryRechnungen\", rst!BestellungID)\r\n.Message = PlatzhalterErsetzen(Me!Inhalt, \"qryRechnungen\", rst!BestellungID)<\/pre>\n
\nPrivate Function PlatzhalterErsetzen(strText As String, strTabellenname As String, lngID As Long) As String
\r\n Dim strTemp As String\r\n Dim intPosStart As Integer\r\n Dim intPosEnde As Integer\r\n Dim strPlatzhalter() As String\r\n Dim i As Integer\r\n strTemp = strText\r\n intPosStart = InStr(1, strTemp, \"[\")\r\n Do While intPosStart > 0\r\n intPosEnde = InStr(intPosStart, strTemp, \"]\")\r\n ReDim Preserve strPlatzhalter(i + 1)\r\n strPlatzhalter(i) = Mid(strTemp, intPosStart + 1, intPosEnde - intPosStart - 1)\r\n i = i + 1\r\n intPosStart = InStr(intPosEnde, strTemp, \"[\")\r\n Loop\r\n For i = LBound(strPlatzhalter) To UBound(strPlatzhalter) - 1\r\n strTemp = Replace(strTemp, \"[\" & strPlatzhalter(i) & \"]\", _
DLookup(strPlatzhalter(i), strTabellenname, \"BestellungID = \" & lngID))\r\n Next i\r\n PlatzhalterErsetzen = strTemp\r\nEnd Function<\/pre>\n<\/p><\/div>\n\nPrivate Function RechnungErstellen(lngID As Long, strOrdner As String) As Boolean\r\n gstrReportFilter = \"BestellungID = \" & lngID\r\n If ConvertReportToPDF(\"repRechnung\", vbNullString, CurrentProject.Path & \"\\\" & strOrdner & \"\\Rechnung_\" _
& lngID & \".pdf\", False, False) = False Then\r\n RechnungErstellen = False\r\n End If\r\nEnd Function<\/pre>\n<\/p><\/div>\nPrivate Sub Report_Open(Cancel As Integer)\r\n If gstrReportFilter <> vbNullString Then\r\n Me.Filter = gstrReportFilter\r\n Me.FilterOn = True\r\n gstrReportFilter = vbNullString\r\n End If\r\nEnd Sub<\/pre>\n
\n ![\"pic009.tif\"](\"..\/fileadmin\/_temp_\/2007_05\/BerichtPDFMail-web-images\/pic009_opt.jpeg\")
\n <\/div>\n\n
Rechnung wurde 1:1 in das
PDF-Dokument übertragen.<\/span><\/b><\/p>\n<\/p><\/div>\nstrAttachment = _
CurrentProject.path & \"\\\" _
& strOrdner & \"\\Rechnung_\" _
& rst!BestellungID & \".pdf\"\r\n.Attachment = strAttachment<\/pre>\n\n ![\"pic010.tif\"](\"..\/fileadmin\/_temp_\/2007_05\/BerichtPDFMail-web-images\/pic010_opt.jpeg\")
\n <\/div>\n\ndb.Execute \"UPDATE tblBestellungen SET
Rechnungsdatum = \" & SQLDatum(Date) & \" WHERE BestellungID = \" & rst!BestellungID<\/pre>\nDownloads zu diesem Beitrag<\/h3>\n