![\"Datenmodell](\"..\/fileadmin\/_temp_\/2025_03\/pic_466_001.png\")
<\/p>\nIm Artikel “Microsoft 365 E-Mails mit Make per Klasse senden” (www.vbentwickler.de\/465) und den dort referenzierten Artikeln haben wir am Beispiel von Microsoft 365 und Make.com gezeigt, wie wir per VBA E-Mails versenden können. Dazu haben wir eine Klasse programmiert, mit der wir leicht die notwendigen Daten für die E-Mail übergeben können. Im vorliegenden Artikel stellen wir nun ein Formular vor, mit dem wir leicht die Daten für eine solche E-Mail eingeben und diese schließlich absenden können. Die dazu eingegebenen Daten speichern wir in entsprechenden Tabellen, sodass wir diese später einsehen können.<\/b><\/p>\n
Wenn man eine kleine Access-Anwendung zum Versenden von E-Mails programmieren möchte, denkt man zunächst, man würde mit einigen wenigen Tabellen auskommen. Eine zum Speichern von E-Mails und vielleicht noch eine für die Kontakte. Tatsächlich haben wir auch so angefangen, allerdings wuchs das Datenmodell dann schnell an.<\/p>\n
Wir schauen uns das Datenmodell zunächst in der Übersicht an und gehen später ins Detail (siehe Bild 1). Dass wir eine Haupttabelle zum Verwalten der einzelnen Informationen der E-Mail benötigen, ist logisch (tblEMails<\/b>). Hinzu kommen aber erst einmal zwei Tabellen mit den Werten für den Content-Type (tblContentTypes<\/b>) und für die Priorität (tblImportanceLevels<\/b>). Eine weitere Tabelle benötigen wir für die Adressen, die wir als ReplyTo-Adressen angeben (tblReplyToContacts<\/b>).<\/p>\n
<\/p>\n
Bild 1: Datenmodell der Beispiellösung<\/span><\/b><\/p>\n Außerdem kann jede E-Mail einen oder mehrere To-Adressaten aufweisen und keinen, einen oder mehrere CC- oder BCC-Adressaten. Diese wollen wir komfortabel auswählen können. Also schreiben wir diese in die Tabelle tblEMailContacts<\/b>.<\/p>\n Um diese den verschiedenen Empfängertypen der E-Mail zuordnen zu können, verwenden wir die Tabelle tblEMailsEMailContacts<\/b>. Diese dient als m:n-Verknüpfungstabelle zwischen den Tabellen tblEMailContacts <\/b>und tblEMails<\/b>.<\/p>\n Um festzulegen, ob es sich um einen To-, CC- oder BCC-Empfänger handelt, enthält diese Tabelle außerdem noch ein Auswahlfeld, dessen Werte aus der Tabelle tblEMailContactTypes <\/b>stammen.<\/p>\n Wir starten mit den Lookuptabellen für die Tabelle tblEMails<\/b>. Die erste ist die Tabelle tblContentTypes<\/b>. Sie enthält neben dem Primärschlüsselfeld noch ein Textfeld für die anzuzeigende Bezeichnung und eines für interne Zwecke (siehe Bild 2).<\/p>\n Bild 2: Entwurf der Tabelle tblContentTypes<\/span><\/b><\/p>\n Dieser Tabelle fügen wir die Werte aus Bild 3 hinzu. Mehr benötigen wir hier nicht.<\/p>\n Bild 3: Werte der Tabelle tblContentTypes<\/span><\/b><\/p>\n Die Tabelle tblImportanceLevels <\/b>ist genauso aufgebaut wie die Tabelle tblContentTypes<\/b>. Sie enthält ebenfalls ein Feld für interne Zwecke (ImportanceLevel<\/b>) und eins für die Anzeige (Description<\/b>) – siehe Bild 4.<\/p>\n Bild 4: Entwurf der Tabelle tblImportanceLevels<\/span><\/b><\/p>\n Hier finden wir mit Low<\/b>, Normal <\/b>und High <\/b>beziehungsweise Niedrig<\/b>, Normal <\/b>und Hoch <\/b>drei verschiedene Werte vor (siehe Bild 5).<\/p>\n Bild 5: Werte der Tabelle tblImportanceLevels<\/span><\/b><\/p>\n In der Tabelle tblReplyToContacts <\/b>speichern wir die Kontakte, die wir für das Feld ReplyTo <\/b>verwenden wollen, also als alternative Antwortadresse zu der eigentlichen Absenderadresse. Antwort der Empfänger auf eine E-Mail mit einer Antwortadresse, wird diese entsprechend adressiert.<\/p>\n Die Tabelle aus speichert die E-Mailadresse und den Namen des Kontaktes in zwei getrennten Feldern (siehe Bild 6).<\/p>\n Bild 6: Entwurf der Tabelle tblReplyContacts<\/span><\/b><\/p>\n Für das Feld ContactAddress <\/b>haben wir außerdem einen eindeutigen Index definiert. Auf diese Weise kann ein Kontakt nicht doppelt angelegt werden, was Redundanzen vermeidet.<\/p>\n Damit haben wir den Grundstein für die Beschreibung der Tabelle tblEMails<\/b> gelegt (siehe Bild 7).<\/p>\n Bild 7: Entwurf der Tabelle tblEMails<\/span><\/b><\/p>\n Sie enthält die üblichen Daten für eine E-Mail, also zunächst einmal den Betreff (Subject<\/b>).<\/p>\n Für den Inhalt gibt es zwei Felder, die wir je nach der Einstellung für das Feld ContentTypeID <\/b>beim Versenden heranziehen.<\/p>\n Das Feld BodyPlain <\/b>nimmt den Inhalt für reine Text-E-Mails auf, das Feld BodyHTML <\/b>den für E-Mails mit Markierungen. Damit wir diese Markierungen später im Formular hinzufügen können, haben wir das Feld mit dem Wert Rich-Text <\/b>für die Eigenschaft Textformat <\/b>ausgestattet.<\/p>\n Die übrigen Felder sind Nachschlagefelder für die Daten aus den Tabellen tblContentTypes<\/b>, tblImportanceLevels <\/b>und tblReplyToContacts<\/b>. Diese haben wir jeweils mit den Nachschlage-Assistenten eingerichtet und Beziehungen mit referenzieller Integrität definiert.<\/p>\n Nach dem Anlegen eines Datensatzes sieht die Tabelle wie in Bild 8 aus.<\/p>\n Bild 8: Beispieldatensatz in der Tabelle tblEMails<\/span><\/b><\/p>\n Die Tabelle tblEMailContacts <\/b>ist identisch aufgebaut wie tblReplyToContacts<\/b>. Auch für diese Tabelle haben wir für das Feld ContactAddress <\/b>einen eindeutigen Index definiert (siehe Bild 9).<\/p>\n Bild 9: Entwurf der Tabelle tblEMailContacts<\/span><\/b><\/p>\n Somit können wir jede E-Mail-Adresse nur einmal in dieser Tabelle speichern. Diese sieht mit einigen Daten wie in Bild 10 aus.<\/p>\n Bild 10: Werte der Tabelle tblEMailContacts<\/span><\/b><\/p>\n Bevor wir uns der Verknüpfungstabelle zur Zuordnung von Kontakten zu E-Mails zuwenden, legen wir noch die Tabelle tblEMailContactTypes <\/b>an. Wir wollen später für jede E-Mail nach den unterschiedlichen Empfängertypen filtern können, also nach To<\/b>, CC <\/b>und BCC<\/b>.<\/p>\n Diese Typen holen wir wieder aus einer Lookuptabelle, die wir wie in Bild 11 entwerfen.<\/p>\n Bild 11: Entwurf der Tabelle tblEMailContactTypes<\/span><\/b><\/p>\n Diese enthält die drei Werte To-Empfänger<\/b>, CC-Empfänger <\/b>und BCC-Empfänger <\/b>(siehe Bild 12).<\/p>\n Bild 12: Werte der Tabelle tblEMailContactTypes<\/span><\/b><\/p>\n Damit kommen wir zur letzten Tabelle, welche die Kontakte zu den E-Mails zuordnet und gleichzeitig festlegen, ob es sich um einen To<\/b>-, CC<\/b>– oder BCC<\/b>-Empfänger handelt.<\/p>\n Diese Tabelle enthält neben dem Primärschlüsselfeld jeweils ein Fremdschlüsselfeld mit Beziehung zu den Tabellen tblEMails<\/b>, tblEMailContacts <\/b>und tblEMailContactTypes<\/b> (siehe Bild 13).<\/p>\n Bild 13: Entwurf der Tabelle tblEMailsEMailContacts<\/span><\/b><\/p>\n Für diese Tabelle haben wir außerdem einen zusammengesetzten, eindeutigen Index hinzugefügt, der sicherstellt, dass jeder Kontakt jeder E-Mail nur einmal hinzugefügt werden kann. Dieser umfasst daher die Felder EMailID <\/b>und EMailContactID<\/b>.<\/p>\n Wenn wir eine E-Mail angelegt und dieser Kontakte für die drei Kategorien von Empfängern hinzugefügt haben, liefert die Datenblattansicht der Tabelle die Werte aus Bild 14.<\/p>\n Bild 14: Werte der Tabelle tblEMailsEMailContacts<\/span><\/b><\/p>\n Diese Tabelle speichert die Informationen zu den Dateien, die als Anlage zu einer E-Mail hinzugefügt werden sollen (siehe Bild 15). Sie enthält ein Feld für den vollständigen Pfad sowie eines für den Dateinamen. Dieses Feld dient allein zur Anzeige im Listenfeld der Lösung. Den Pfad verwenden wir schließlich zum Hinzufügen der Datei zur E-Mail.<\/p>\n Bild 15: Entwurf der Tabelle tblAttachments<\/span><\/b><\/p>\n In Bild 16 sehen wir auch noch einige Beispielwerte für diese Tabelle in der Datenblattansicht.<\/p>\n Bild 16: Werte der Tabelle tblAttachments<\/span><\/b><\/p>\n Nun programmieren wir die Formulare, die wir zum Eingeben der Daten einer E-Mail und zum Absenden benötigen. Dazu nutzen wir zwei Formulare.<\/p>\n Wir schauen uns zuerst die Funktionen an, anschließend zeigen wir, wie diese programmiert werden.<\/p>\n Das Hauptformular heißt frmEMails<\/b> und ist in Bild 17 zu sehen. Im obersten Textfeld können wir den Betreff eingeben. Darunter finden wir die Auswahl, ob wir eine reine Text-E-Mail schreiben wollen oder eine HTML-E-Mail. Je nachdem, welcher Eintrag gewählt ist, wird entweder das Feld Inhalt (Nur Text) <\/b>oder Inhalt (HTML) <\/b>aktiviert und das jeweils andere deaktiviert.<\/p>\n Bild 17: Formular zur Eingabe der E-Mail-Daten<\/span><\/b><\/p>\n Im Feld Inhalt (HTML) <\/b>können wir den aktuell markierten Text mit individuellen Formatierungen versehen.<\/p>\n Darunter stellen wir die Wichtigkeit dieser E-Mail ein und wählen dazu einen der Werte Niedrig<\/b>, Normal <\/b>oder Hoch <\/b>aus.<\/p>\n Anschließend folgt der Kontakt, den wir für die Eigenschaft ReplyTo <\/b>hinterlegen wollen. Diesen können wir entweder aus den bestehenden Kontakten der Tabelle tblReplyToContacts <\/b>auswählen oder wir klicken auf die Bearbeiten<\/b>-Schaltfläche, um das Formular frmEditEMailContacts <\/b>zu öffnen.<\/p>\n Dieses sieht wie in Bild 18 aus und zeigt alle E-Mails aus der Tabelle tblReplyToContacts <\/b>an. Wir können hier eine Adresse auswählen und auf die Schaltfläche rechts neben der Liste klicken, um diese hinzuzufügen.<\/p>\n Bild 18: Das Formular frmEditEMailContacts<\/span><\/b><\/p>\n Oder wir geben unten den Namen und die E-Mail-Adresse eines Kontakts ein, den wir der Liste hinzufügen wollen.<\/p>\n Beim Doppelklicken auf einen der Einträge oder beim Betätigen der Schaltfläche rechts neben der Liste wird der aktuelle Eintrag in das Kombinationsfeld übernommen und das Formular geschlossen.<\/p>\n Darunter befinden sich drei Listenfelder, mit denen wir die Empfänger der drei Kategorien To, CC und BCC verwalten können.<\/p>\n Ein Klick auf die Plus-Schaltfläche öffnet den gleichen Dialog wie bei der ReplyTo<\/b>-Adresse, allerdings werden hier nun die Einträge der Tabelle tblEMailContacts <\/b>angezeigt. Hier können wir nun einen oder mehrere Einträge auswählen und mit einem Klick auf die Schaltfläche rechts zum Listenfeld hinzufügen.<\/p>\n Wenn mindestens ein Empfänger vorhanden ist und wir diesen entfernen wollen, können wir diesen markieren und mit einem Klick auf die entsprechende Löschen-Schaltfläche löschen.<\/p>\n Das Gleiche gilt für die beiden weiteren Listenfelder mit den CC- und den BCC-Empfängern.<\/p>\n Auch für die Anlagen einer E-Mail gibt es ein Listenfeld. Durch Anklicken der Plus-Schaltfläche öffnen wir einen Dateiauswahl-Dialog, mit dem wir ein oder mehrere Dateien auswählen können.<\/p>\n Diese Dateien werden anschließend im Listenfeld angezeigt.<\/p>\n Um eine Anlage zu entfernen, markieren wir die gewünschte Anlage und betätigen die Löschen-Schaltfläche.<\/p>\n Schließlich lösen wir mit der Senden<\/b>-Schaltfläche die bereits im Artikel Microsoft 365 E-Mails mit Make per Klasse senden <\/b>(www.vbentwickler.de\/465<\/b>) vorgestellte Prozedur zum Versenden einer E-Mail aus. <\/p>\n Das Formular frmEMails <\/b>legen wir in der Entwurfsansicht wie in Bild 19 an.<\/p>\n Bild 19: Das Formular frmEMails in der Entwurfsansicht<\/span><\/b><\/p>\n Wir gehen nun Schritt für Schritt die für den Einsatz notwendigen Prozeduren durch.<\/p>\n Den Start macht die Ereignisprozedur Beim Anzeigen<\/b>. Sie löst diese Prozedur aus:<\/p>\n Die erste aufgerufene Prozedur RequeryBodyFields <\/b>aus Listing 2 prüft den Wert des Feldes ContentType<\/b>.<\/p>\n Listing 1: Diese Prozedur aktualisiert die Steuerelemente zum Eingeben des Inhalts der E-Mail.<\/span><\/b><\/p>\n Hat dieser den Wert 1<\/b>, wird das Textfeld BodyPlain <\/b>für reine Text-E-Mails aktiviert und das Feld BodyHTML <\/b>deaktiviert.<\/p>\n Außerdem wird VerticalAnchor <\/b>für BodyPlain <\/b>auf acVerticalAnchorBoth <\/b>eingestellt, was bedeutet, dass dieses Feld nun beim Vergrößern des Formulars in der Höhe ebenfalls vergrößert wird. Damit dies beim Feld BodyPlain <\/b>nicht ebenfalls geschieht, stellen wir hier VerticalAnchor <\/b>auf acVerticalAnchorBottom <\/b>ein.<\/p>\n Ist ContentType <\/b>hingegen auf 2 <\/b>eingestellt, wird BodyPlain <\/b>deaktiviert und BodyHTML <\/b>aktiviert und BodyHTML <\/b>passt sich nun in der Höhe an das Formular an.<\/p>\n Die zweite in Form_Current <\/b>aufgerufene Funktion UpdateListboxes<\/b> sehen wir in Listing 1.<\/p>\n Listing 2: Diese Prozedur aktualisiert die Listenfelder.<\/span><\/b><\/p>\n Sie stellt in strSQL <\/b>eine SQL-Anweisung zusammen, die alle E-Mail-Kontakte liefert, die zu der aktuell angezeigten E-Mail gehören und hängt hinten noch ein unvollständiges Kriterium für EMailContactTypeID <\/b>an.<\/p>\n Diesem fehlt noch der Vergleichswert, den wir beim Zuweisen von strSQL <\/b>zur jeweiligen Datensatzherkunft der Listenfelder lstTo<\/b>, lstCC <\/b>und lstBCC <\/b>noch hinzufügen.<\/p>\n Außerdem weisen wir hier die Datensatzherkunft für das Listenfeld lstAttachments <\/b>zu, das alle Anlagen aus der Tabelle tblAttachments <\/b>liefert, die zur aktuellen E-Mail gehören.<\/p>\n Die dritte Anweisung in Form_Current <\/b>stellt den Fokus auf das Feld Betreff <\/b>ein, damit der Benutzer hier als Erstes einen Text eintragen kann.<\/p>\n Wenn der Benutzer einen anderen Eintrag im Feld ContentType <\/b>auswählt, sollen die beiden Felder BodyPlain <\/b>und BodyHTML <\/b>angepasst werden.<\/p>\n Deshalb rufen wir in der Prozedur, die durch das Ereignis Nach Aktualisierung <\/b>aufgerufen wird, erneut die Routine RequeryBodyFields <\/b>auf:<\/p>\n Es kann sein, dass der Benutzer das Kombinationsfeld leert. Dies prüft die Ereignisprozedur Vor Aktualisierung <\/b>wie folgt und gibt gegebenenfalls eine Meldung aus, dass ein Contenttyp eingestellt werden muss:<\/p>\n Auf ähnliche Weise sorgt die folgende Prozedur, die durch das Ereignis Vor Aktualisierung<\/b> des Feldes ImportanceLevelID<\/b> ausgelöst wird, dafür, dass dieses Feld nicht geleert wird:<\/p>\n Wenn der Benutzer die Schaltfläche zum Bearbeiten der ReplyTo-Kontakte cmdEditReplyTo <\/b>anklickt, löst er die folgende Prozedur aus:<\/p>\n Diese ruft zuerst die Funktion CheckNewRecord <\/b>auf. War der Aufruf erfolgreich öffnet sie das Formular frmEditMailContacts<\/b> und übergibt als Öffnungsargument eine Zeichenkette bestehend aus der Zahl 4<\/b>, einem Pipe-Zeichen (|<\/b>) und der aktuellen EMailID<\/b>.<\/p>\n Dort werden die Kontakte bearbeitet und nach dem Schließen des Formulars wird das Kombinationsfeld ReplyToID <\/b>aktualisiert. Wie das im Detail aussieht, sehen wir weiter unten bei der Beschreibung des Formulars frmEditEMailContacts<\/b>.<\/p>\n Wenn wir einen neuen Kontakt zu der aktuellen E-Mail hinzufügen wollen, öffnen wir dazu das Formular frmEditEMailContacts<\/b>. Hier würden wir im Normalfall mindestens einen Kontakt auswählen, der dann über einen neuen Datensatz in der Tabelle tblEMailsEMailContacts <\/b>der aktuellen E-Mail zugewiesen wird. Das ist jedoch nur möglich, wenn im Hauptformular bereits ein gespeicherter Datensatz mit einer E-Mail vorhanden ist.<\/p>\n Deshalb rufen wir gleich zu Beginn die Funktion CheckNewRecord <\/b>auf (siehe Listing 3). Diese prüft als Erstes, ob es sich bei dem aktuellen Datensatz im Formular frmEMails <\/b>um einen neuen, leeren Datensatz handelt.<\/p>\n Listing 3: Prüfen, ob ein speicherbarer Datensatz vorliegt<\/span><\/b><\/p>\n Falls ja, folgt eine zweite Prüfung, ob dieser bereits in Bearbeitung ist (Me.Dirty = True<\/b>). Ist auch das der Fall, wurde der Datensatz also bereits bearbeitet und wir können diesen speichern (mit Me.Dirty = False<\/b>).<\/p>\n In diesem Fall soll CheckNewRecord <\/b>den Wert True <\/b>zurückliefern.<\/p>\n Ist der Datensatz noch nicht bearbeitet, erscheint die Meldung, dass zunächst ein Betreff angegeben werden muss. Außerdem wird der Fokus auf das Textfeld Subject <\/b>gesetzt und CheckNewRecord <\/b>liefert False <\/b>zurück.<\/p>\n Es kann auch sein, dass wir es mit einem bereits gespeicherten Datensatz zu tun haben – dann speichern wir den Datensatz mit Me.Dirty = False <\/b>und geben CheckNewRecord = True <\/b>zurück.<\/p>\n Die Plus<\/b>-Schaltfläche neben dem Listenfeld lstToRecipients <\/b>ruft zunächst ebenfalls die CheckNewRecord <\/b>auf.<\/p>\n Liefert diese den Wert True <\/b>zurück, öffnet die Prozedur das Formular frmEditEMailContacts <\/b>und übergibt diesmal ein Öffnungsargument, das als ersten Teil den Wert 1 <\/b>und als zweiten die aktuelle EMailID <\/b>enthält. Was in diesem Formular geschieht, beschreiben wir ebenfalls weiter unten. Nach dem Hinzufügen der gewünschten Kontakte über dieses Formular läuft die aufrufende Prozedur weiter und aktualisiert die Anzeige im Listenfeld.<\/p>\n Das Hinzufügen von CC-Empfängern funktioniert auf die gleiche Weise. Diesmal übergeben wir beim Aufrufen des Formulars frmEditEMailContacts <\/b>allerdings als ersten Wert des Öffnungsarguments den Wert 2 <\/b>(für CC<\/b>).<\/p>\n Schließlich fehlt noch das Hinzufügen von BCC-Empfängern, für die wir das Formular mit der folgenden Prozedur öffnen:<\/p>\n Etwas anders sieht die Prozedur aus, mit der wir Anlagen zur Tabelle tblAttachments <\/b>hinzufügen und damit zum Listenfeld lstAttachments<\/b>.<\/p>\n Diese wird durch die Schaltfläche cmdAddAttachment<\/b> ausgelöst und ist in Listing 4 abgebildet. <\/p>\n Listing 4: Hinzufügen eines Attachments<\/span><\/b><\/p>\n In dieser Prozedur nutzen wir die Dateidialoge von Office. Dazu müssen wir dem VBA-Projekt noch einen Verweis auf die Bibliothek Microsoft Office 16.0 Object Library <\/b>hinzufügen.<\/p>\n Damit der Benutzer die hinzuzufügende Datei auswählen kann, deklarieren wir eine Variable des Typs Office.FileDialog<\/b>.<\/p>\n Wie auch bei den übrigen Schaltflächen, mit denen wir Datensätze zu Tabellen hinzufügen, die wir mit dem aktuellen Datensatz der Tabelle tblEMails <\/b>verknüpfen wollen, rufen wir auch hier die Funktion CheckNewRecord <\/b>auf, um zu prüfen, ob bereits ein Datensatz im Formular frmEMails <\/b>vorliegt.<\/p>\n Dann erstellt die Prozedur ein neues FileDialog<\/b>-Objekt mit dem Typ msoFileDialogPicker<\/b> und weist es objFileDialog <\/b>zu.<\/p>\n Für dieses Objekt legen wir den Titel, die Buttonbeschriftung, den initialen Pfad sowie als Filter *.* <\/b>fest. Außerdem stellen wir die Eigenschaft AllowMultiSelect <\/b>auf True <\/b>ein, damit der Benutzer mehrere Dateien gleichzeitig auswählen kann.<\/p>\n Mit der Show<\/b>-Methode rufen wir den Dialog auf und verarbeiten nach dem Schließen seine Auflistung SelectedItems<\/b>. Diese durchlaufen wir in einer For Each<\/b>-Schleife und speichern den aktuellen Pfad jeweils in der Variablen varPath<\/b>.<\/p>\n Aus dem Pfad extrahieren wir den Dateinamen und schreiben anschließend den Pfad und den Dateinamen in die Tabelle tblAttachments<\/b>. Außerdem tragen wir dort noch die ID des aktuellen E-Mail-Datensatzes ein.<\/p>\n Schließlich aktualisieren wir noch das Listenfeld lstAttachments<\/b>, damit neu hinzugefügte Anlagen direkt angezeigt werden.<\/p>\n Zum Entfernen von Anlagen programmieren die Schaltfläche cmdRemoveAttachment<\/b>. Diese löst die Prozedur aus Listing 5 aus.<\/p>\n Listing 5: Entfernen eines Attachments<\/span><\/b><\/p>\n Hier ermitteln wir zunächst den aktuell im Anlagefeld markierten Datensatz und entfernen diesen mit einer DELETE<\/b>-Anweisung.<\/p>\n Auch hier folgt anschließend die Aktualisierung des Listenfeldes, damit die entfernten Anlagen auch hier nicht mehr angezeigt werden.<\/p>\n Für die drei Listenfelder lstTo<\/b>, lstCC <\/b>und lstBCC <\/b>haben wir ebenfalls jeweils eine Schaltfläche zum Entfernen des jeweils markierten Eintrags vorgesehen.<\/p>\n Diese rufen jeweils die Prozedur RemoveRecipients <\/b>auf:<\/p>\n Beim Aufruf wird jeweils der Verweis auf das betroffene Listenfeld an die Prozedur RemoveRecipient <\/b>übergeben.<\/p>\n Die Prozedur RemoveRecipients<\/b> sehen wir in Listing 6. Sie nimmt den Verweis auf das Listenfeld entgegen und ermittelt den aktuell markierten Datensatz mit Nz(lst, 0)<\/b>. Die nachfolgende Bedingung ist nur erfüllt, wenn dabei ein Wert ungleich 0 <\/b>ermittelt werden konnte. In diesem Fall rufen wir eine DELETE<\/b>-Anweisung auf, die den entsprechenden Datensatz aus der Tabelle tblEMailsEMailContacts <\/b>löscht.<\/p>\nDie Tabelle tblContentTypes<\/h2>\n
![\"Entwurf](\"..\/fileadmin\/_temp_\/2025_03\/pic_466_002.png\")
<\/p>\n![\"Werte](\"..\/fileadmin\/_temp_\/2025_03\/pic_466_003.png\")
<\/p>\nDie Tabelle tblImportanceLevels<\/h2>\n
![\"Entwurf](\"..\/fileadmin\/_temp_\/2025_03\/pic_466_004.png\")
<\/p>\n![\"Werte](\"..\/fileadmin\/_temp_\/2025_03\/pic_466_005.png\")
<\/p>\nDie Tabelle tblReplyToContacts<\/h2>\n
![\"Entwurf](\"..\/fileadmin\/_temp_\/2025_03\/pic_466_006.png\")
<\/p>\nDie Haupttabelle tblEMails<\/h2>\n
![\"Entwurf](\"..\/fileadmin\/_temp_\/2025_03\/pic_466_007.png\")
<\/p>\n![\"Beispieldatensatz](\"..\/fileadmin\/_temp_\/2025_03\/pic_466_008.png\")
<\/p>\nDie Tabelle tblEMailContacts<\/h2>\n
![\"Entwurf](\"..\/fileadmin\/_temp_\/2025_03\/pic_466_009.png\")
<\/p>\n![\"Werte](\"..\/fileadmin\/_temp_\/2025_03\/pic_466_010.png\")
<\/p>\nDie Tabelle tblEMailContactTypes<\/h2>\n
![\"Entwurf](\"..\/fileadmin\/_temp_\/2025_03\/pic_466_011.png\")
<\/p>\n![\"Werte](\"..\/fileadmin\/_temp_\/2025_03\/pic_466_012.png\")
<\/p>\nDie Tabelle tblEMailsEMailContacts<\/h2>\n
![\"Entwurf](\"..\/fileadmin\/_temp_\/2025_03\/pic_466_013.png\")
<\/p>\n![\"Werte](\"..\/fileadmin\/_temp_\/2025_03\/pic_466_014.png\")
<\/p>\nDie Tabelle tblAttachments<\/h2>\n
![\"Entwurf](\"..\/fileadmin\/_temp_\/2025_03\/pic_466_018.png\")
<\/p>\n![\"Werte](\"..\/fileadmin\/_temp_\/2025_03\/pic_466_019.png\")
<\/p>\nBenutzeroberfläche zum Eingeben der E-Mail-Daten<\/h2>\n
![\"Formular](\"..\/fileadmin\/_temp_\/2025_03\/pic_466_015.png\")
<\/p>\n![\"Das](\"..\/fileadmin\/_temp_\/2025_03\/pic_466_016.png\")
<\/p>\nEmpfänger auswählen<\/h2>\n
Anlagen hinzufügen<\/h2>\n
Programmieren des Formulars frmEMails<\/h2>\n
![\"Das](\"..\/fileadmin\/_temp_\/2025_03\/pic_466_017.png\")
<\/p>\nLaden des Formulars und Füllen der Listenfelder<\/h2>\n
Private Sub <\/span>Form_Current()\r\n Call<\/span> RequeryBodyfields\r\n Call<\/span> UpdateListboxes\r\n Me.Subject.SetFocus\r\nEnd Sub<\/span><\/pre>\nPrivate Sub <\/span>RequeryBodyfields()\r\n If <\/span>Me.ContentTypeID = 1 Then<\/span>\r\n Me.BodyPlain.Enabled = True<\/span>\r\n Me.BodyHTML.Enabled = False<\/span>\r\n Me.BodyPlain.VerticalAnchor = acVerticalAnchorBoth\r\n Me.BodyHTML.VerticalAnchor = acVerticalAnchorBottom\r\n Else<\/span>\r\n Me.BodyPlain.Enabled = False<\/span>\r\n Me.BodyHTML.Enabled = True<\/span>\r\n Me.BodyPlain.VerticalAnchor = acVerticalAnchorTop\r\n Me.BodyHTML.VerticalAnchor = acVerticalAnchorBoth\r\n End If<\/span>\r\nEnd Sub<\/span><\/pre>\nListenfelder aktualisieren<\/h2>\n
Private Sub <\/span>UpdateListboxes()\r\n Dim <\/span>strSQL As String<\/span>\r\n strSQL = \"SELECT tblEMailsEMailContacts.EMailEMailContactID, [ContactName] & '' <'' & [ContactAddress] _\r\n & ''>'' AS Contact FROM tblEMailContacts INNER JOIN (tblEMails INNER JOIN tblEMailsEMailContacts \" _\r\n & \"ON tblEMails.EMailID = tblEMailsEMailContacts.EMailID) ON tblEMailContacts.EMailContactID = \" _\r\n & \"tblEMailsEMailContacts.EMailContactID WHERE tblEMailsEMailContacts.EMailID = \" & Me.EMailID _\r\n & \" AND tblEMailsEMailContacts.EMailContactTypeID = \"\r\n Me.lstTo.RowSource = strSQL & \" 1\"\r\n Me.lstCC.RowSource = strSQL & \" 2\"\r\n Me.lstBCC.RowSource = strSQL & \" 3\"\r\n Me.lstAttachments.RowSource = \"SELECT AttachmentID, AttachmentFilename FROM tblAttachments WHERE EMailID = \" _\r\n & Me.EMailID\r\nEnd Sub<\/span><\/pre>\nFokus auf das Betreff-Feld setzen<\/h2>\n
ContentType aktualisieren<\/h2>\n
Private Sub <\/span>ContentTypeID_AfterUpdate()\r\n Call<\/span> RequeryBodyfields\r\nEnd Sub<\/span><\/pre>\nPrivate Sub <\/span>ContentTypeID_BeforeUpdate(Cancel As Integer<\/span>)\r\n If <\/span>IsNull(Me.ContentTypeID) Then<\/span>\r\n MsgBox<\/span> \"Bitte einen Contenttype einstellen.\", _\r\n vbOKOnly + vbExclamation, \"Contenttype fehlt.\"\r\n Me.ContentTypeID.Undo\r\n Cancel = True<\/span>\r\n End If<\/span>\r\nEnd Sub<\/span><\/pre>\nVerhindern, dass keine Wichtigkeit angegeben wird<\/h2>\n
Private Sub <\/span>ImportanceLevelID_BeforeUpdate(Cancel _\r\n As Integer<\/span>)\r\n If <\/span>IsNull(Me.ImportanceLevelID) Then<\/span>\r\n MsgBox<\/span> \"Bitte eine Wichtigkeit einstellen.\", _\r\n vbOKOnly + vbExclamation, \"Wichtigkeit fehlt.\"\r\n Me.ImportanceLevelID.Undo\r\n Cancel = True<\/span>\r\n End If<\/span>\r\nEnd Sub<\/span><\/pre>\nReplyTo-Kontakt hinzufügen<\/h2>\n
Private Sub <\/span>cmdEditReplyTo_Click()\r\n If <\/span>CheckNewRecord = False<\/span> Then<\/span> Exit Sub<\/span>\r\n DoCmd.OpenForm \"frmEditEMailContacts\", _\r\n WindowMode:=acDialog, OpenArgs:=\"4|\" & Me.EMailID\r\n Me.ReplyToID.Requery\r\nEnd Sub<\/span><\/pre>\nPrüfen, ob ein neuer Datensatz vorliegt<\/h2>\n
Private Function <\/span>CheckNewRecord() As Boolean<\/span>\r\n If <\/span>Me.NewRecord = True<\/span> Then<\/span>\r\n If <\/span>Me.Dirty = True<\/span> Then<\/span>\r\n Me.Dirty = False<\/span>\r\n CheckNewRecord = True<\/span>\r\n Else<\/span>\r\n MsgBox<\/span> \"Bitte erst einen Betreff angeben.\", vbOKOnly + vbExclamation, \"Betreff fehlt\"\r\n Me.Subject.SetFocus\r\n CheckNewRecord = False<\/span>\r\n End If<\/span>\r\n Else<\/span>\r\n Me.Dirty = False<\/span>\r\n CheckNewRecord = True<\/span>\r\n End If<\/span>\r\nEnd Function<\/span><\/pre>\nTo-Empfänger hinzufügen<\/h2>\n
Private Sub <\/span>cmdAddTo_Click()\r\n If <\/span>CheckNewRecord = False<\/span> Then<\/span> Exit Sub<\/span>\r\n DoCmd.OpenForm \"frmEditEMailContacts\", WindowMode:=acDialog, OpenArgs:=\"1|\" & Me.EMailID\r\n Me.lstTo.Requery\r\nEnd Sub<\/span><\/pre>\nCC-Empfänger hinzufügen<\/h2>\n
Private Sub <\/span>cmdAddCC_Click()\r\n If <\/span>CheckNewRecord = False<\/span> Then<\/span> Exit Sub<\/span>\r\n DoCmd.OpenForm \"frmEditEMailContacts\", _\r\n WindowMode:=acDialog, OpenArgs:=\"2|\" & Me.EMailID\r\n Me.lstCC.Requery\r\nEnd Sub<\/span><\/pre>\nBCC-Empfänger hinzufügen<\/h2>\n
Private Sub <\/span>cmdAddBCC_Click()\r\n If <\/span>CheckNewRecord = False<\/span> Then<\/span> Exit Sub<\/span>\r\n DoCmd.OpenForm \"frmEditEMailContacts\", _\r\n WindowMode:=acDialog, OpenArgs:=\"3|\" & Me.EMailID\r\n Me.lstBCC.Requery\r\nEnd Sub<\/span><\/pre>\nAnlagen hinzufügen<\/h2>\n
Private Sub <\/span>cmdAddAttachment_Click()\r\n Dim <\/span>db As <\/span>DAO.Database\r\n Dim <\/span>objFileDialog As <\/span>Office.FileDialog\r\n Dim <\/span>strTemp As String<\/span>\r\n Dim <\/span>strFilename As String<\/span>\r\n Dim <\/span>varPath As Variant<\/span>\r\n If <\/span>CheckNewRecord = False<\/span> Then<\/span> Exit Sub<\/span>\r\n Set<\/span> objFileDialog = Application.FileDialog(msoFileDialogFilePicker)\r\n Set<\/span> db = CurrentDb\r\n With<\/span> objFileDialog\r\n .Title = \"Anlagen auswählen\"\r\n .ButtonName = \"Auswählen\"\r\n .AllowMultiSelect = True<\/span>\r\n .InitialFileName = CurrentProject.Path & \"\\\"\r\n .Filters.Clear\r\n .Filters.Add \"Alle Dateitypen\", \"*.*\"\r\n If <\/span>.Show = True<\/span> Then<\/span>\r\n For Each varPath In .SelectedItems\r\n strFilename = Mid<\/span>(varPath, InStrRev<\/span>(varPath, \"\\\") + 1)\r\n db.Execute \"INSERT INTO tblAttachments(AttachmentPath, AttachmentFilename, EMailID) VALUES(''\" _\r\n & varPath & \"'', ''\" & strFilename & \"'', \" & Me.EMailID & \")\", dbOpenDynaset\r\n Next<\/span> varPath\r\n End If<\/span>\r\n End With<\/span>\r\n Me.lstAttachments.Requery\r\nEnd Sub<\/span><\/pre>\nAnlagen entfernen<\/h2>\n
Private Sub <\/span>cmdRemoveAttachment_Click()\r\n Dim <\/span>lngID As Long<\/span>\r\n Dim <\/span>db As <\/span>DAO.Database\r\n Set<\/span> db = CurrentDb\r\n lngID = Nz(Me.lstAttachments, 0)\r\n db.Execute \"DELETE FROM tblAttachments WHERE AttachmentID = \" & lngID, dbFailOnError\r\n Me.lstAttachments.Requery\r\nEnd Sub<\/span><\/pre>\nEntfernen von Empfängern<\/h2>\n
Private Sub <\/span>cmdRemoveTo_Click()\r\n RemoveRecipient Me.lstTo\r\nEnd Sub<\/span>\r\nPrivate Sub <\/span>cmdRemoveCC_Click()\r\n RemoveRecipient Me.lstCC\r\nEnd Sub<\/span>\r\nPrivate Sub <\/span>cmdRemoveBCC_Click()\r\n RemoveRecipient Me.lstBCC\r\nEnd Sub<\/span><\/pre>\nPrivate Sub <\/span>RemoveRecipient(lst As <\/span>ListBox)\r\n Dim <\/span>db As <\/span>DAO.Database\r\n