<\/p>\n
Autor: Klaus Giesen, Wuppertal<\/p>\n
<\/b><\/p>\n
Die mittlerweile fast schon selbstverständliche Internetanbindung von Arbeitsplätzen wirkt sich unter anderem auch auf die Ansprüche aus, die an die Funktionalität von Datenbankanwendungen gestellt werden. Eine in diesem Zusammenhang weit verbreitete – und auch nahe liegende – Anforderung ist der komfortable Versand von E-Mails. Dazu bietet sich beispielsweise eine Adressen-Datenbank an. Im vorliegenden Beitrag erfahren Sie, wie Sie Ihre Adressdatenbank um eine Funktion zum Versenden von E-Mails an einen oder mehrere Empfänger erweitern können. Dabei können Sie alle gewünschten Aktionen direkt aus Ihrer Datenbank heraus initiieren, ohne Outlook starten zu müssen. Natürlich können Sie zu jedem Eintrag Ihres Adressbuches auch alle bisher versendeten Mails anzeigen lassen.<\/b><\/p>\n
Das Versenden von E-Mails mit Access ist auf unterschiedliche Arten möglich. Die folgenden beiden Abschnitte beschreiben die beiden wesentlichen Möglichkeiten.<\/p>\n
Die SendenObjekt-Aktion<\/b><\/p>\n
Mit Hilfe der SendenObjekt-Aktion kann eine E-Mail direkt in Access erstellt und versendet werden.<\/p>\n
![](\"..\/fileadmin\/_temp_\/{0E1E4B15-830D-4E6E-B86A-0AF318B8C80F}\/pic001.png\")
<\/p>\n
<\/b><\/p>\n
Bild 1: Das Dialogfenster zur Auswahl des Formats<\/span><\/b><\/p>\n Außerdem können Sie ein Datenblatt, ein Formular, einen Bericht oder ein Modul an eine E-Mail anhängen. Hierzu gehen Sie wie folgt vor:<\/p>\n Damit die Art des E-Mail-Versands auch funktioniert, muss auf Ihrem Rechner ein MAPI-kompatibler E-Mail-Client – wie beispielsweise Microsoft Outlook – installiert sein. <\/p>\n <\/b><\/p>\n Bild 2: Verweis auf die Microsoft Outlook 9.0 Object Library<\/span><\/b><\/p>\n Die SendenObjekt-Aktion kann übrigens auch in einem Makro oder einer VBA-Prozedur aufgerufen werden.<\/p>\n Automation<\/b><\/p>\n Die vorgestellte Lösung eignet sich sehr gut dazu, einzelne Objekte per E-Mail zu versenden. Ein Versand von Serien-E-Mails lässt sich damit jedoch nicht realisieren.<\/p>\n Um eine solche Funktionalität zu erreichen, muss man sich der „Automation“ bedienen. Hiermit greifen Sie direkt auf Objekte und Methoden der Client-Anwendung – hier Outlook – zu. Dazu ist es zunächst einmal notwendig, in der Datenbank einen Verweis auf die Outlook-Objektbibliothek zu erstellen.<\/p>\n Damit haben sie die notwendige Voraussetzung für das weitere Vorgehen geschaffen.<\/p>\n Die folgenden Abschnitte enthalten eine Zusammenstellung der Minimalanforderungen an eine Datenbankanwendung zum automatischen E-Mail-Versand.<\/p>\n Zur Lösung dieser Aufgabe gibt es verschiedene Möglichkeiten. Eine davon ist, die gewünschten Empfänger im Listenfeld eines speziellen Auswahlformulars zu markieren (siehe Bild 3).<\/p>\n <\/b><\/p>\n Bild 3: Formular zur Auswahl der Empfänger<\/span><\/b><\/p>\n Zur jeder Adresse gehört in diesem Fall auch eine entsprechende Anrede. Diese soll automatisch aus der zugrunde liegenden Tabelle übernommen werden.<\/p>\n <\/b><\/p>\n Bild 4: Das Formular frmFAdressen mit Mailinghistorie<\/span><\/b><\/p>\n Zu einer Anrede wird automatisch der dazugehörige Nachname hinzugefügt.<\/p>\n Sinnvoll ist ein überblick über versandte Mailings. Deswegen wird zu jedem Datensatz in der Adressdatenbank eine Mailing-Historie angezeigt, aus der Betreff, Text und vor allem auch der genaue Zeitpunkt des Versands zu erkennen sind (siehe Bild 4).<\/p>\n Nach der Fertigstellung einer E-Mail in Outlook kann diese entweder direkt versendet oder zunächst einmal angezeigt werden. Diese Auswahlmöglichkeit sollte auch bei einer Datenbankanwendung enthalten sein (siehe Bild 5).<\/p>\n Die Beispieldatenbank auf der CD liegt in den Versionen für Access 97 und Access 2000 vor.<\/p>\n <\/b><\/p>\n Bild 5: Auswahl des Versandstatus<\/span><\/b><\/p>\n Falls Sie die Arbeitsschritte von Grund auf nachvollziehen wollen, muss unter Access 2000 ein Verweis auf die Microsoft DAO 3.6 Library erstellt werden. <\/p>\n Das Datenmodell derBeispieldatenbank<\/b><\/p>\n Das Datenmodell ist im Prinzip relativ einfach. Es gilt lediglich eine Besonderheit zu beachten.<\/p>\n <\/b><\/p>\n Bild 6: Das Dialogfenster Beziehungen der Beispieldatenbank<\/span><\/b><\/p>\n <\/b><\/p>\n Bild 7: Die Tabelle tblAdressen in der Entwurfsansicht<\/span><\/b><\/p>\n Wenn man sich die praktische Arbeit mit einer solchen Anwendung vor Augen hält, sind die folgenden Situationen denkbar:<\/p>\n Die datenbanktechnische Umsetzung einer solchen Situation erfolgt am elegantesten mit Hilfe einer so genannten n:m-Beziehung.<\/p>\n Da eine n:m-Beziehung nichts anderes als zwei 1:n-Beziehungen darstellt, kann sie nur über eine Verknüpfungstabelle realisiert werden.<\/p>\n Genaue Einzelheiten zum Aufbau der Verknüpfungstabelle und zu den Beziehungen finden Sie im folgenden Abschnitt.<\/p>\n Die Tabellen<\/b><\/p>\n Die Beispieldatenbank enthält drei Tabellen (siehe Bild 6).<\/p>\n Die Tabelle tblAdressen (s. Abb. 7) ist zur Speicherung der personenbezogenen Daten be-stimmt und kann leicht an Ihre persönlichen Erfordernisse an-gepasst werden.<\/p>\n Das Primärschlüsselfeld AdressenID besitzt den Felddatentyp AutoWert.<\/p>\n In der Abfrage, die dem Formular frmFAdressen zugrunde liegt, wird nach dem Feld txtNachname sortiert.<\/p>\n Also ist es sinnvoll, dieses Feld zu indizieren, da eine Indizierung neben dem Suchen auch die Sortierung beschleunigt.<\/p>\n Die Tabelle tblMailings dient zum Speichern der Mailings. Den Aufbau können Sie der Tab. 1 entnehmen.<\/p>\n Feldname<\/b><\/p>\n<\/td>\n Felddatentyp<\/b><\/p>\n<\/td>\n<\/tr>\n MailingID<\/p>\n<\/td>\n AutoWert<\/p>\n<\/td>\n<\/tr>\n txtBetreff<\/p>\n<\/td>\n Text<\/p>\n<\/td>\n<\/tr>\n memMailing<\/p>\n<\/td>\n Memo<\/p>\n<\/td>\n<\/tr>\n datSendMail<\/p>\n<\/td>\n Datum\/Zeit<\/p>\n<\/td>\n<\/tr>\n<\/table>\n Tab. 1: Die Tabelle tblMailings<\/b><\/p>\n <\/b><\/p>\n Bild 8: Indiziertes Feld<\/span><\/b><\/p>\n In das Feld datSendMail werden beim Versand einer E-Mail per VBA das Datum und die Uhrzeit eingetragen. So kann dieser Zeitpunkt auf die Sekunde genau in der Mailing-Historie festgehalten werden.<\/b><\/p>\n <\/b><\/p>\n Bild 9: Entwurfsansicht der Tabelle tblAdrMail<\/span><\/b><\/p>\n <\/b><\/p>\n Bild 10: Das Dialogfenster Indizes<\/span><\/b><\/p>\n Diese Tabelle ist – wie schon erwähnt – zur Realisierung der n:m-Beziehung notwendig. <\/p>\n Damit ist ein gemeinsamer Primärschlüssel für die Felder AdressenID und MailingID festgelegt worden.<\/p>\n Das hat zur Folge, dass eine Beziehung zwischen einem Empfänger und einer E-Mail nur einmal vorkommen kann.<\/p>\n Andererseits können Adressen und Mailings mehrfach vorkommen. Das Ganze wird deutlicher, wenn Sie das Dialogfenster Indizes öffnen (siehe Bild 10) und die Indexeigenschaften betrachten.<\/p>\n <\/b><\/p>\n Bild 11: Das Dialogfenster Tabelle anzeigen<\/span><\/b><\/p>\n <\/b><\/p>\n Bild 12: Das Dialogfenster Beziehungen bearbeiten<\/span><\/b><\/p>\n <\/b><\/p>\n Bild 13: Das Dialogfenster Verknüpfungseigenschaften<\/span><\/b><\/p>\n Festlegen der Beziehungen zwischen den Tabellen<\/b><\/p>\n Der abschließende Schritt zur Erstellung des Datenmodells ist das Festlegen der Beziehungen zwischen den beiden Haupttabellen und der Verknüpfungstabelle.<\/p>\n Markieren Sie im Dialogfenster Beziehungen bearbeiten das Kontrollkästchen Mit referentieller Integrität und klicken Sie anschließend auf die Schaltfläche Verknüpfungstyp (siehe Bild 12).<\/p>\n Vergewissern Sie sich, ob im Dialogfenster Verknüpfungseigenschaften (siehe Bild 13) die Verknüpfungsoption 1 aktiviert ist und klicken Sie auf die Schaltfläche OK.<\/p>\n In der Beispieldatenbank sind insgesamt vier Formulare vorhanden, von denen eines ein Unterformular ist.<\/p>\n Das Formular frmFAdressen dient zunächst zur Eingabe und Bearbeitung von Adressen. Gleichzeitig dient es als Startpunkt der Funktionalität für den E-Mail-Versand.<\/p>\n <\/p>\n Das Unterformular subMailingHistorie befindet sich im Formular frmFMailings. Es zeigt die ver- sendete Mail der im Hauptformular ausgewählten Adresse an.<\/p>\n Das Formular frmFEmpfänger dient lediglich zur Auswahl der Empfänger einer Mailing-Aktion. Es können ein oder auch mehrere Empfänger ausgewählt werden.<\/p>\n <\/b><\/p>\n Bild 14: Entwurfsansicht der Auswahlabfrage<\/span><\/b><\/p>\n <\/b><\/p>\n Bild 15: Das Eigenschaftsfenster des Kombinationsfeldes<\/span><\/b><\/p>\n Das Formular frmFMailings dient zum Eingeben bzw. Bearbeiten von E-Mail-Nachrichten und zum Start der übergabe an Outlook.<\/p>\n Das Formular frmFAdressen<\/b><\/p>\n Das Formular frmFAdressen ist ein ganz normales Formular des Typs Einzelnes Formular mit Befehlsschaltflächen im Formularfuß ohne weitere Besonderheiten.<\/p>\n Als Datenherkunft des Formulars dient die Auswahlabfrage qryFfrmAdressen, mit der die Felder der Tabelle tblAdressen nach Nachnamen sortiert zusammengefasst werden (siehe Bild 14) können.<\/p>\n Diese Auswahlmöglichkeit soll relativ simpel mittels Kombinationsfeld und Werteliste gelöst werden.<\/p>\n Das UnterformularsubMailingHistorie<\/b><\/p>\n <\/b><\/p>\n Bild 16: Das Eigenschaftsfenster des Unterformulars<\/span><\/b><\/p>\n Die Standardansicht dieses Formulars ist die Ansicht Datenblatt.<\/p>\n Sinn und Zweck dieses Formulars ist die Anzeige der Mailinghistorie. Deshalb ist es sinnvoll, einige Formulareigenschaften entsprechend einzustellen.<\/p>\n Dabei handelt es sich im Einzelnen um die Eigenschaften Bearbeiten zulassen, Löschen zulassen, Anfügen zulassen und Daten eingeben, die standardmäßig alle auf den Wert Ja eingestellt sind.<\/p>\n Die Gründe für diese Eigenschaftseinstellung liegen auf der Hand:<\/p>\n Als Datenherkunft des Unterformulars dient die Auswahlabfrage qrySformMailingHistorie (siehe Bild 18).<\/p>\n <\/b><\/p>\n Bild 18: Entwurfsansicht der Abfrage qrySformMailingHistorie<\/span><\/b><\/p>\n <\/b><\/p>\n Bild 17: Markierte E-Mail-Nachricht im Unterformular<\/span><\/b><\/p>\n Hier werden die Tabellen tblAdrMail und tblMailing zusammengefasst. Weiterhin wird die Anzeige nach dem Feld datSendMail aufsteigend sortiert.<\/p>\n Die Verknüpfung des Unterformulars zum Hauptformular erfolgt über das Feld AdressenID aus der Tabelle tblAdrMail.<\/p>\n Das Gegenstück im Hauptformular ist ebenfalls das Feld AdressenID, das hier natürlich aus der Tabelle tblAdressen stammt.<\/p>\n Das Formular frmFEmpfänger<\/b><\/p>\n Dieses Formular besteht lediglich aus einem ungebundenen Listenfeld und zwei Befehlsschaltflächen, wobei die Schaltfläche Beenden an dieser Stelle nicht weiter beschrieben wird.<\/p>\n Legen Sie die Eigenschaften des Listenfeldes auf die folgende Weise fest:<\/p>\n Hier werden im Feld Empfänger die Inhalte der Felder txtNachname und txtVorname mit Hilfe des folgenden Ausdrucks zusammengefasst und nach Nachnamen und Vornamen sortiert:<\/p>\n <\/b><\/p>\n Abb.^19: Entwurfsansicht der Abfrage qryFfrmEmpfänger<\/b><\/p>\n <\/b><\/p>\n Bild 20: Die Eigenschaften des Listenfelds<\/span><\/b><\/p>\n Dadurch ist eine komfortable Auswahl des bzw. der Empfänger im Listenfeld gewährleistet.<\/p>\n Fahren Sie dann folgendermaßen fort:<\/p>\n Dadurch ist es möglich, mit der linken Maus- oder der Leertaste einen oder mehrere Einträge auszuwählen bzw. eine getroffene Auswahl wieder aufzuheben.<\/p>\n Obwohl die Funktionalität des Auswahlformulars eigentlich in einen erweiterten Zusammenhang eingebunden ist, kann sie an dieser Stelle ohne weiteres für sich betrachtet werden (s. Quellcode 1).<\/p>\n Ausgangspunkt ist ein Klick auf die Schaltfläche Auswahl. Der prinzipielle Ablauf ist relativ simpel:<\/p>\n Mit den Primärschlüsselwerten wird die Variable strBedingung gefüllt, mit deren Werten im späteren Verlauf der Verarbeitung ein Recordset eingegrenzt wird.<\/p>\n An dieser Stelle soll jedoch nur das Auslesen der ausgewählten Einträge aus dem Listenfeld von Interesse sein.<\/p>\n Die vollständige Prozedur finden Sie im Modul basMailings der Beispieldatenbank.<\/p>\n Bei zwei markierten Einträgen im Listenfeld sieht der Inhalt der Variablen strBedingung demnach folgendermaßen aus:<\/p>\n Die eben vorgestellte Auswahlmethode eignet sich auch vorzüglich dazu, nur bestimmte Datensätze für einen Ausdruck auszuwählen und dann einen Bericht mit dem entsprechenden übergabeparameter zu öffnen. <\/p>\n Das Formular frmFMailings<\/b><\/p>\n Das Formular frmFMailings dient zunächst einmal zum Anlegen und Bearbeiten von E-Mail-Nachrichten.<\/p>\n Beim Klick auf die Schaltfläche Neue Mail wird durch Ausführung der folgenden Codezeile ein neuer Datensatz erstellt:<\/p>\n Das Anlegen des Betreffs erfolgt im Kombinationsfeld Betreff des Formulars frmFMailings (siehe Bild 5). Dort muss lediglich ein Begriff eingegeben zu werden, der dann anschließend aus dem Kombinationsfeld heraus anderen Nachrichten zugeordnet werden kann.<\/p>\n Nach der Eingabe eines neuen Betreffs muss natürlich die Anzeige im Kombinationsfeld aktualisiert werden. Dabei ist es notwendig, dass diese Aktualisierung an zwei Stellen erfolgt:<\/p>\n In der letzten Zeile der Prozedur wird die Datenherkunft des Kombinationsfelds neu mit dem Wert gesetzt, der über eine Variable aus dem Kombinationsfeld übernommen worden ist.<\/p>\n Dies erfolgt im Nach Aktualisierung-Ereignis des Formulars, das nach änderung eines Datensatzes ausgelöst wird.<\/p>\n Das Schließen des Formulars erfolgt mit einem Klick auf die Schaltfläche Beenden. Dabei wird die nachfolgende Ereignisprozedur aufgerufen:<\/p>\n Die Bedienung der Anwendung erfolgt immer in der folgenden Reihenfolge:<\/p>\n Beim Klick auf die Schaltfläche Empfänger auswählen (siehe Bild 21) wird eine Ereignisprozedur ausgeführt, die das Formular frmFEmpfänger öffnet.<\/p>\n <\/b><\/p>\n Bild 21: Die Schaltfläche Empfänger auswählen<\/span><\/b><\/p>\n Empfängerauswahl und Filterung der Datensätze<\/b><\/p>\n Nach dem Markieren eines oder mehrerer Namen im Listenfeld des Formulars ist ein Klick auf die Schaltfläche Auswahl erforderlich (siehe Bild 22).<\/p>\n <\/b><\/p>\n Bild 22: Empfängerauswahl<\/span><\/b><\/p>\n Als Ergebnis der Auswahl sind die Werte der Primärschlüsselfelder in folgender Form in der Variablen strBedingung gespeichert:<\/p>\n Die Variable strBedingung wird in dieser Anwendung modulübergreifend benutzt. Damit sie auch eine entsprechende Gültigkeit besitzt, ist es notwendig, sie zuvor als Public zu deklarieren. <\/p>\n Der Quellcode 3 enthält den weiteren Ablauf der Verarbeitung. Dort geschieht im Einzelnen Folgendes:<\/p>\n Der vollständige Code ist in der Prozedur Auswahl im Modul basMailings der Beispieldatenbank zu finden. <\/p>\n E-Mail-Nachrichten eingeben und bearbeiten<\/b><\/p>\n Die Funktionalität des Formulars frmFMailing liegt in einer Ereignisprozedur, die durch einen Klick auf die Schaltfläche Mail nach Outlook ausgeführt wird (siehe Bild 5).<\/p>\n Vorher gilt es jedoch noch einiges zu beachten.<\/p>\n Die Ereignisprozedur wird in diesem Beitrag nur auszugsweise aufgelistet. Den vollständigen Code finden Sie im Modul Form_frmFMailings der Beispieldatenbank. <\/p>\n Diese Auswahl ist über die Optionsgruppe optMailing möglich. Der ausgewählte Optionswert wird in der Variablen intSendeStatus gespeichert, die dann im weiteren Verlauf der Verarbeitung abgefragt und ausgewertet wird.<\/p>\n Nach der Anzeige des Formulars frmFMailings kann entweder eine vorhandene E-Mail-Nach-richt erstellt oder eine neue angelegt werden.<\/p>\n Damit eine gerade angelegte E-Mail-Nachricht auch weiterverarbeitet werden kann, muss sichergestellt sein, dass diese auch gespeichert wird. Die weitere Funktionalität greift nämlich auf das Primärschlüsselfeld des aktuellen Datensatzes im Formular zurück.<\/p>\n Dies geschieht durch Abfragen der Eigenschaft Dirty. Der Wert dieser Eigenschaft gibt an, ob ein Datensatz geändert, aber noch nicht gespeichert wurde. <\/p>\n Die If-Abfrage aus Quellcode 4 überprüft die Eigenschaft und speichert den Datensatz gegebenenfalls.<\/p>\n Der Primärschlüssel der aktuellen E-Mail-Nachricht wird mit folgendem Ausdruck ausgelesen und in einer Variablen gespeichert:<\/p>\n Damit steht die MailingID für die weitere Verarbeitung zur Verfügung.<\/p>\n E-Mail-Nachricht zusammenstellen und versenden<\/b><\/p>\n Zunächst müssen die notwendigen Variablen für zwei Recordsets und das Zusammenstellen der E-Mail-Nachricht deklariert und ein Verweis auf die Outlook-Objektbibliothek erstellt werden (s. Quellcode 5).<\/p>\n Dann wird ein Recordset auf Grundlage der Tabelle tblMailings geöffnet, mit dem Betreff und Inhalt der E-Mail-Nachricht ausgelesen und in zwei Variablen gespeichert werden (s. Quellcode 6).<\/p>\n Die Where-Bedingungen dieses Recordsets ist der Primärschlüssel des aktuellen Datensatzes im Formular frmFMailings, der durch den Inhalt der Variablen lngMailingID übergeben wird.<\/p>\n <\/b><\/p>\n Bild 17: Sicherheitsabfrage beim Ausführen einer Anfügeabfrage<\/span><\/b><\/p>\n <\/b><\/p>\n Bild 18: Aktualisierte Datensätze in der Tabelle tblMailings<\/span><\/b><\/p>\n Ein weiteres Recordset wird auf Grundlage der Tabelle tblAdressen geöffnet (s. Quellcode 7). Die Where-Bedingung dieses Recordsets ist in der Variablen strBedingung gespeichert, die bei der Auswahl der Empfänger gefüllt worden ist.<\/p>\n Das eben geöffnete Recordset wird wie üblich in einer Schleife durchlaufen. Dabei werden für jeden zurückgegebenen Datensatz aus der Tabelle tblAdressen die entsprechenden Daten für die Zusammenstellung der E-Mail-Nachricht übergeben (s. Quellcode 8).<\/p>\n Innerhalb der Schleife wird der gewünschte Sendestatus abgefragt und die entsprechende Outlook-Eigenschaft aufgerufen.<\/p>\n Ebenfalls innerhalb der Schleife muss die Tabelle tblAdrMail aktualisiert werden. Dort muss für jede abgearbeitete Adresse ein neuer Datensatz mit der dazugehörenden MailingID angelegt werden. Dies geschieht hier einfach durch den Aufruf einer Anfügeabfrage. Die für die Tabellenaktualisierung notwendigen Werte (Adres-senID und MailingID) werden ganz einfach aus den vorhandenen Variableninhalten (lngAdressenID und lngMailingID) übernommen.<\/p>\n Durch das Ausschalten der Systemmeldungen wird die ansonsten übliche Sicherheitsabfrage beim Ausführen einer Anfügeabfrage (siehe Bild 23) unterdrückt. Anschließend sollte diese Funktio-nalität wieder eingeschaltet werden. <\/p>\n Eine Anforderung an die Funktionalität dieser Datenbankanwendung war, dass in der Mailinghistorie jede versendete E-Mail-Nachricht mit dem Versanddatum versehen ist. Dies erfolgt durch den Aufruf einer Aktualisierungsabfrage, die natürlich außerhalb der Schleife ausgeführt werden muss.<\/p>\n Das Feld datSendMail wird mit Wert der eingebauten Access-Funktion Now() (deutsch: Jetzt()) aktualisiert, mit der Datum und Uhrzeit ausgegeben werden (siehe Bild 24).<\/p>\n Der passende Datensatz in der Tabelle tblMailings wird auch hier wieder durch den Inhalt der Variablen lngMailingID bestimmt.<\/p>\n Auch bei der Aktualisierungsabfrage ist das Unterdrücken der standardmäßigen Warnmeldungen zu empfehlen, um einen unterbrechungsfreien Anwendungsablauf zu gewährleisten.<\/p>\n Zunächst müssen natürlich die beiden Recordsets geschlossen werden. Außerdem ist es wichtig, die verwendeten Objektvariablen wieder freizugeben, um Speicherplatz zu sparen.<\/p>\n Am Ende der Prozedur wird der Fokus wieder auf das Formular frmFAdressen gesetzt.<\/p>\n <\/b><\/p>\nHinweis<\/h3>\n
![](\"..\/fileadmin\/_temp_\/{0E1E4B15-830D-4E6E-B86A-0AF318B8C80F}\/pic002.png\")
<\/p>\nFilterung bzw. Auswahl der Empfänger<\/h3>\n
![](\"..\/fileadmin\/_temp_\/{0E1E4B15-830D-4E6E-B86A-0AF318B8C80F}\/pic003.png\")
<\/p>\nAutomatische übernahme der Anrede<\/h3>\n
![](\"..\/fileadmin\/_temp_\/{0E1E4B15-830D-4E6E-B86A-0AF318B8C80F}\/pic004.png\")
<\/p>\nPersonalisierung der Anrede<\/h3>\n
Anzeige einer Mailing-Historie<\/h3>\n
Versandstatus<\/h3>\n
![](\"..\/fileadmin\/_temp_\/{0E1E4B15-830D-4E6E-B86A-0AF318B8C80F}\/pic005.png\")
<\/p>\nVerknüpfungen<\/h3>\n
![](\"..\/fileadmin\/_temp_\/{0E1E4B15-830D-4E6E-B86A-0AF318B8C80F}\/pic006.png\")
<\/p>\n![](\"..\/fileadmin\/_temp_\/{0E1E4B15-830D-4E6E-B86A-0AF318B8C80F}\/pic007.png\")
<\/p>\nDie Tabelle tblAdressen<\/h3>\n
Die Tabelle tblMailings<\/h3>\n
\n
\n \n \n \n \n \n \n \n \n \n \n \n \n \n \n ![](\"..\/fileadmin\/_temp_\/{0E1E4B15-830D-4E6E-B86A-0AF318B8C80F}\/pic008.png\")
<\/p>\n![](\"..\/fileadmin\/_temp_\/{0E1E4B15-830D-4E6E-B86A-0AF318B8C80F}\/pic009.png\")
<\/p>\n![](\"..\/fileadmin\/_temp_\/{0E1E4B15-830D-4E6E-B86A-0AF318B8C80F}\/pic010.png\")
<\/p>\n![](\"..\/fileadmin\/_temp_\/{0E1E4B15-830D-4E6E-B86A-0AF318B8C80F}\/pic011.png\")
<\/p>\nDie Tabelle tblAdrMail<\/h3>\n
![](\"..\/fileadmin\/_temp_\/{0E1E4B15-830D-4E6E-B86A-0AF318B8C80F}\/pic012.png\")
<\/p>\n![](\"..\/fileadmin\/_temp_\/{0E1E4B15-830D-4E6E-B86A-0AF318B8C80F}\/pic013.png\")
<\/p>\n![](\"..\/fileadmin\/_temp_\/{0E1E4B15-830D-4E6E-B86A-0AF318B8C80F}\/pic014.png\")
<\/p>\n![](\"..\/fileadmin\/_temp_\/{0E1E4B15-830D-4E6E-B86A-0AF318B8C80F}\/pic015.png\")
<\/p>\n![](\"..\/fileadmin\/_temp_\/{0E1E4B15-830D-4E6E-B86A-0AF318B8C80F}\/pic016.png\")
<\/p>\nDatenherkunft<\/h3>\n
Das Kombinationsfeld zur Auswahl der Anrede<\/h3>\n
![](\"..\/fileadmin\/_temp_\/{0E1E4B15-830D-4E6E-B86A-0AF318B8C80F}\/pic017.png\")
<\/p>\nAusgewählte Eigenschaftseinstellung<\/h3>\n
Datenherkunft<\/h3>\n
![](\"..\/fileadmin\/_temp_\/{0E1E4B15-830D-4E6E-B86A-0AF318B8C80F}\/pic018.png\")
<\/p>\n![](\"..\/fileadmin\/_temp_\/{0E1E4B15-830D-4E6E-B86A-0AF318B8C80F}\/pic019.png\")
<\/p>\nVerknüpfung zum Hauptformular <\/h3>\n
Die Eigenschaften des Listenfelds<\/h3>\n
Empfänger: [txtNachname] & \" \" & [txtVorname]<\/pre>\n
![](\"..\/fileadmin\/_temp_\/{0E1E4B15-830D-4E6E-B86A-0AF318B8C80F}\/pic020.png\")
<\/p>\n![](\"..\/fileadmin\/_temp_\/{0E1E4B15-830D-4E6E-B86A-0AF318B8C80F}\/pic021.png\")
<\/p>\nDie Funktionalität des Auswahlformulars<\/h3>\n
AdressenID = 2 OR Adressen = 5<\/pre>\n
Neue Mailnachricht erstellen<\/h3>\n
'' ...\r\nDim Element As Variant\r\nDim AdressenID As Variant\r\n'' Ist überhaupt ein Eintrag markiert\r\nIf Forms!frmFEmpfänger!lstEmpfänger.ItemsSelected.Count = 0 Then Exit Sub\r\n'' Bedingung zusammenstellen\r\nFor Each Element In Forms!frmFEmpfänger!lstEmpfänger.ItemsSelected\r\n AdressenID = Forms!frmFEmpfänger!lstEmpfänger.ItemData(Element)\r\n strBedingung = strBedingung & _\r\n \"AdressenID = \" & AdressenID & \" OR \"\r\nNext Element\r\n'' Rechtes OR abschneiden, damit der übergebene String kein\r\n'' alleinstehendes OR enthält\r\nstrBedingung = Left(strBedingung, Len(strBedingung) - 4)\r\nQuellcode 1\r\nPrivate Sub ctlBetreff_AfterUpdate()\r\n Dim f$, SQL$\r\n On Error Resume Next\r\n f$ = Me.ctlBetreff\r\n If Err <> 0 Then Exit Sub\r\n SQL$ = \"SELECT * FROM [tblMailings] WHERE [txtBetreff]= ''\" & f$ _ & \"'' ORDER BY txtBetreff;\"\r\n Me.RecordSource = SQL$\r\nEnd Sub\r\nQuellcode 2<\/pre>\n
DoCmd.GoToRecord , , acNewRec<\/pre>\n
Auswahl und Bearbeitung des E-Mail-Betreffs<\/h3>\n
Private Sub Form_AfterUpdate()\r\n ''Aktualisiert das Kombinationsfeld ''ctlBetreff\r\n Me.ctlBetreff.Requery\r\nEnd Sub<\/pre>\n
Schließen des Formulars<\/h3>\n
Private Sub BtnEnde_Click()\r\n On Error Resume Next\r\n DoCmd.Close\r\nEnd Sub<\/pre>\n
Private Sub BtnAuswahl_Click()\r\n On Error Resume Next\r\n DoCmd.OpenForm \"frmFEmpfänger\"\r\nEnd Sub<\/pre>\n
![](\"..\/fileadmin\/_temp_\/{0E1E4B15-830D-4E6E-B86A-0AF318B8C80F}\/pic022.png\")
<\/p>\n![](\"..\/fileadmin\/_temp_\/{0E1E4B15-830D-4E6E-B86A-0AF318B8C80F}\/pic023.png\")
<\/p>\nDoCmd.Close acForm, \"frmFEmpfänger\"\r\nDoCmd.SelectObject acForm, \"frmFAdressen\", False\r\nDoCmd.ApplyFilter , \"\" & strBedingung & \"\"\r\nDoCmd.OpenForm \"frmFMailings\"<\/pre>\n
AdressenID = 2 OR Adressen = 5 OR AdressenID = 1<\/pre>\n
Praxis-Tipp<\/h3>\n
Ausgewählte E-Mails direkt versenden oder zuerst anzeigen<\/h3>\n
If Me!optMailing = 1 Then\r\n intSendeStatus = 1 ''anzeigen\r\nElse\r\n intSendeStatus = 2 ''direkt versenden\r\nEnd If<\/pre>\n
Verarbeitung einer neu angelegten E-Mail-Nachricht ermöglichen<\/h3>\n
If Me.Dirty Then\r\n DoCmd.RunCommand acCmdSaveRecord\r\nEnd If\r\nQuellcode 4\r\nDim lngAdressenID As Long\r\nDim DB As DAO.Database\r\nDim RS1, RS2 As DAO.Recordset\r\nDim olNewMail As Object\r\nDim olNewItem\r\nDim strSQL1, strSQL2 As String\r\nDim AdrMail As String ''E-Mailadresse\r\nDim SubMail As String ''Subject (Betreff)\r\nDim TxtMail ''E-Mailtext\r\nSet DB = CurrentDb\r\nSet olNewMail = CreateObject(\"Outlook.Application\")\r\nstrSQL2 = \"SELECT * FROM tblMailings WHERE MailingID = \" & lngMailingID\r\nSet RS2 = DB.OpenRecordset(strSQL2)\r\nSubMail = RS2!txtBetreff\r\nTxtMail = RS2!memMailing\r\nstrSQL1 = \"SELECT * FROM tblAdressen WHERE \" _ & strBedingung & \"\"\r\nSet RS1 = DB.OpenRecordset(strSQL1)\r\nRS1.MoveLast\r\n If RS1.RecordCount >= 1 Then\r\n RS1.MoveFirst\r\n Do While Not RS1.EOF\r\n AdrMail = RS1!txtE-Mail\r\n lngAdressenID = RS1!AdressenID\r\n Set olNewItem = olNewMail.CreateItem(0)\r\n olNewItem.Recipients.Add RS1!txtE-Mail\r\n olNewItem.Subject = SubMail\r\n olNewItem.Body = RS1!txtAnrede & \" \" _ & RS1!txtNachname & \",\" & vbCrLf & vbCrLf _ & TxtMail & vbCrLf\r\n'' ...\r\n RS1.Move Next\r\n Loop<\/pre>\n
Erfassen der aktuellenE-Mail-Nachricht<\/h3>\n
Dim lngMailingID As Long\r\nlngMailingID = _ Screen.ActiveForm! _ [MailingID]<\/pre>\n
Betreff und Inhalt derE-Mail-Nachricht auslesen<\/h3>\n
![](\"..\/fileadmin\/_temp_\/{0E1E4B15-830D-4E6E-B86A-0AF318B8C80F}\/pic024.png\")
<\/p>\n![](\"..\/fileadmin\/_temp_\/{0E1E4B15-830D-4E6E-B86A-0AF318B8C80F}\/pic025.png\")
<\/p>\nAusgewählte Empfänger auslesen<\/h3>\n
E-Mail-Nachricht zusammenstellen<\/h3>\n
Reaktion auf den Sendestatus<\/h3>\n
If intSendeStatus = 1 Then\r\n olNewItem.Display ''anzeigen\r\nElse\r\n olNewItem.Send ''direkt versenden\r\nEnd If<\/pre>\n
Aktualisierung der Verknüpfungstabelle<\/h3>\n
DoCmd.SetWarnings False\r\nDoCmd.RunSQL \"INSERT INTO tblAdrMail \" _ & \"AdressenID, MailingID) VALUES (\" _ & lngAdressenID & \", \" _ & lngMailingID & \")\"\r\nDoCmd.SetWarnings True<\/pre>\n
Datumsfeld in der Tabelle tblMailing für die Mailinghistorie aktualisieren<\/h3>\n
DoCmd.SetWarnings False\r\n DoCmd.RunSQL \"Update [tblMailings] \" _ & \"Set [datSendMail] = Now where \" _ & \" [MailingID] =\" & lngMailingID\r\nDoCmd.SetWarnings True<\/pre>\n
Recordsets schließen und Objektvariablen freigeben<\/h3>\n
RS1.Close\r\nRS2.Close\r\nDB.Close\r\nSet olNewMail = Nothing\r\nSet olNewItem = Nothing<\/pre>\n
Abschließende Aktionen<\/h3>\n
![](\"..\/fileadmin\/_temp_\/{0E1E4B15-830D-4E6E-B86A-0AF318B8C80F}\/pic026.png\")
<\/p>\n