Im Beitrag „Outlook.com mit Access und VBA: Vorbereitungen“ und weiteren Beiträgen haben wir gezeigt, wie wir eine E-Mail über die Microsoft Graph API versenden. Da dies möglicherweise in der Zukunft die Alternative dazu sein wird, E-Mails einfach über die Fernsteuerung von Outlook zu verwenden, wollen wir gleich noch zeigen, wie unsere neue E-Mail-Funktion von einem Formular aus verwaltet und aufgerufen werden kann. Dabei wollen wir gleich auf Access-Seite die versendeten E-Mails speichern, wozu wir direkt noch ein kleines Datenmodell erstellen.<\/b><\/p>\n
Datenmodell der Beispielanwendung<\/h2>\n
Wir wollen mit der Anwendung Daten über die versendeten E-Mails speichern, um diese anschließend einsehen zu können. Dazu benötigen wir einige Tabellen, die wir nachfolgend beschreiben.<\/p>\n
Zuerst einmal schauen wir uns jedoch an, welche Daten wir eigentlich speichern wollen. Diese hängen maßgeblich von den Daten ab, die wir überhaupt zu unseren E-Mails hinzufügen wollen. Dazu gehören die folgenden:<\/p>\n
Auch wenn dies recht einfach aussieht, benötigen wir verschiedene Tabellen, um diese Daten abzubilden.<\/p>\n
Den Start machen wir mit der Tabelle, welche die eigentlichen E-Mails erfassen soll. Diese sieht in der Entwurfsansicht wie in Bild 1 aus. Hier finden wir jedoch nur einige der genannten Felder. Für diese Felder hinterlegen wir direkt deutsche Bezeichnungen für die Eigenschaft Beschriftung – im Screenshot beispielsweise Absender <\/b>für das Feld Sender<\/b>. Es fehlen beispielsweise die Felder zum Erfassen der To<\/b>-, Cc<\/b>– und Bcc<\/b>-Empfänger. Der Grund ist, dass es je E-Mail einen oder mehrere To<\/b>-Empfänger geben kann und keinen, einen oder mehrere Cc<\/b>– und Bcc<\/b>-Empfänger. Wer schon einmal einen Newsletter versendet hat, weiß auch, dass die Liste der Bcc<\/b>-Empfänger recht lang werden kann. Diese müssten wir irgendwie in einem Tabellenfeld unterbringen, was wir beispielsweise in einer durch Semikola separierten Liste erledigen könnten. Wenn wir aber einmal anfangen, Empfänger in eine E-Mail einzutragen, dann können wir diese auch direkt in einer Tabelle speichern. Der Vorteil ist, dass wir diese dann für weitere E-Mails einfach aus dieser Liste auswählen könnten.<\/p>\n
![\"Basistabelle](\"..\/fileadmin\/_temp_\/2025_01\/Snag_14689401.png\")
<\/p>\n
Bild 1: Basistabelle zum Speichern der E-Mails<\/span><\/b><\/p>\n Deshalb wollen wir die E-Mail-Adressen sowie die Namen der Empfänger in einer eigenen Tabelle unterbringen. Diese gestalten wir wie in Bild 2.<\/p>\n Bild 2: Tabelle zum Erfassen der Kontakte<\/span><\/b><\/p>\n Für das Feld MailAddress <\/b>legen wir einen eindeutigen Index fest, damit jede E-Mail-Adresse nur einmal erfasst werden kann.<\/p>\n Wenn es nur jeweils einen Empfänger für To<\/b>, Cc <\/b>und Bcc <\/b>gäbe, könnten wir diese über eine 1:n-Beziehung und entsprechende Fremdschlüsselfelder der Tabelle tblMails <\/b>zuordnen.<\/p>\n Allerdings können wir jeder Empfängerart mehrere Empfänger zuordnen, und jeder Empfänger soll mehreren E-Mails zugeordnet werden können. Das ist der klassische Fall für eine m:n-Beziehung. Um diese zu realisieren, benötigen wir eine Verknüpfungstabelle. Diese ist wie in Bild 3 aufgebaut.<\/p>\n Bild 3: Tabelle zum Zuordnen von Kontakten zu E-Mails<\/span><\/b><\/p>\n Neben den beiden Fremdschlüsselfeldern zum Zuweisen jeweils eines Eintrags aus der Tabelle tblMails <\/b>und der Tabelle tblContacts <\/b>finden wir hier noch ein weiteres Feld vor, nämlich ReceiverTypeID<\/b>. Dieses Feld ist ebenfalls ein Fremdschlüsselfeld und soll dazu dienen, die Empfängerart festzulegen, also To<\/b>, Cc <\/b>oder Bcc<\/b>.<\/p>\n Damit haben wir drei Fremdschlüsselfelder, von denen wir zwei zu einem eindeutigen Index zusammenfassen wollen. Der Grund ist, dass wir davon ausgehen, dass jeder Kontakt grundsätzlich nur einmal zu jeder E-Mail zugeordnet werden soll. Deshalb erstellen wir wie in einen eindeutigen Index über die Felder MailID <\/b>und ContactID<\/b>.<\/p>\n Dazu nutzen wir den Dialog Indizes: tblMailReceivers<\/b>, dem wir eine neue Zeile mit dem Wert UniqueKey<\/b> in der Spalte Indexname <\/b>hinzufügen. Für diese Zeile fügen wir das Feld MailID <\/b>hinzu und stellen die Eigenschaft Eindeutig <\/b>auf Ja <\/b>ein. In der darunter liegenden Zeile fügen wir keinen Indexnamen, aber das Feld ContactID <\/b>hinzu. Somist der eindeutige Index auf Basis der Felder MailID <\/b>und ContactID <\/b>definiert.<\/p>\n Um die Tabelle tblMailReceivers <\/b>über das Fremdschlüsselfeld MailID <\/b>mit der Tabelle tblMails <\/b>zu verknüpfen, öffnen wir das Beziehungen-Fenster und ziehen die beiden betroffenen Felder aus dem Navigationsbereich dort hinein.<\/p>\n Dann ziehen wir das Feld MailID <\/b>der einen Tabelle auf das gleichnamige Feld der anderen Tabelle. Die Reihenfolge spielt hier keine Rolle, da wir keine 1:1-Beziehung anlegen. Den nun sichtbaren Beziehungspfeil zwischen den beiden Tabellen klicken wir doppelt an und finden den Dialog Beziehungen bearbeiten <\/b>vor. Hier aktivieren wir die Option Mit referentieller Integrität <\/b>und schließen den Dialog wieder (siehe Bild 4).<\/p>\n Bild 4: Herstellen der Beziehung zwischen den Tabellen tblMailReceivers und tblContacts<\/span><\/b><\/p>\n Da wir ohnehin später im Formular die Nachschlagefelder nutzen werden, um die Kontakte zu einer E-Mail hinzuzufügen, können wir dies auch direkt hier in den Tabellen erledigen. Also stellen wir für das Feld ContactID <\/b>den Wert von Zahl <\/b>auf Nachschlage-Assistent <\/b>um.<\/p>\n Hier wählen wir in den einzelnen Schritten folgende Optionen aus:<\/p>\n Bild 5: Einstellungen für das Nachschlagefeld ContactID der Tabelle tblMailReceivers<\/span><\/b><\/p>\n<\/ul>\n Schauen wir uns die Tabellen nun erneut im Beziehungen-Fenster an, sehen wir die vollständige m:n-Beziehung (siehe Bild 6).<\/p>\n Bild 6: Die m:n-Beziehung zwischen den Tabellen tblContacts und tblMails<\/span><\/b><\/p>\n Neben diesen Haupttabellen benötigen wir noch einige Hilfstabellen:<\/p>\n Bild 7: Die Tabelle tblContentTypes<\/span><\/b><\/p>\n Bild 8: Die Tabelle tblImportance<\/span><\/b><\/p>\n Bild 9: Die Tabelle tblReceiverTypes<\/span><\/b><\/p>\n<\/ul>\n Die übrigen Hilfstabellen verknüpfen wir auf ähnliche Weise mit den Haupttabellen der Anwendung, sodass sich das Datenmodell aus Bild 10 ergibt.<\/p>\n Bild 10: Datenmodell der Beispieldatenbank<\/span><\/b><\/p>\n Hier haben wir außerdem noch die Tabelle tblAttachments <\/b>hinzugefügt, welche die folgenden Felder enthält:<\/p>\n Die primäre Funktion dieser Beispielanwendung soll das Versenden von E-Mails sein. Das erledigen wir in einem Formular, das alle dazu notwendigen Daten entgegennimmt und das auch eine Schaltfläche zum Versenden von E-Mails enthält.<\/p>\n Dieses Formular sieht in der Formularansicht wie in Bild 11 aus.<\/p>\n Bild 11: Formular zum Versenden einer E-Mail<\/span><\/b><\/p>\n Es ist über die Eigenschaft Datensatzquelle <\/b>an die Tabelle tblMails <\/b>gebunden und zeigt einige der Felder dieser Tabelle an. Diese sind in der Entwurfsansicht aus Bild 12 zu erkennen.<\/p>\n Bild 12: Formular zum Versenden einer E-Mail in der Entwurfsansicht<\/span><\/b><\/p>\n Neben diesen gebundenen Steuerelementen finden wir hier noch einige weitere Elemente wie zum Beispiel drei Unterformulare für die To<\/b>-, Cc<\/b>– und Bcc<\/b>-Empfänger.<\/p>\n Diese Unterformulare sehen in der Entwurfsansicht harmlos aus (siehe Bild 13). Das Unterformular sfmMailToReceiver <\/b>beispielsweise zeigt lediglich das Feld ContactID <\/b>der Datensatzquelle an.<\/p>\n Bild 13: Unterformular sfmMailsToReceiver<\/span><\/b><\/p>\n Als Datensatzquelle verwendet das Unterformular die Abfrage qryToReceivers<\/b> (siehe Bild 14). Diese basiert auf den beiden Tabellen tblMailReceivers <\/b>und tblContacts <\/b>und enthält alle Felder der ersten und nur das Feld MailAddress <\/b>der zweiten Tabelle. Außerdem ist für das Feld ReceiverTypeID <\/b>der Wert 1 <\/b>als Filterkriterium eingestellt.<\/p>\n Bild 14: Abfrage für die Unterformulare zum Anlegen der Empfänger, hier für die To-Empfänger<\/span><\/b><\/p>\n Dies sorgt dafür, dass diese Abfrage ausschließlich Empfänger der Tabelle tblMailReceivers <\/b>liefert, die den Receivertyp To <\/b>aufweisen. Nun ziehen wir dieses Unterformular in das Hauptformular. Dadurch erkennt Access automatisch, dass die Datensatzquelle des Unterformulars über das Fremdschlüsselfeld MailID <\/b>mit der Datensatzquelle des Hauptformulars verknüpft ist. Dadurch werden die beiden Eigenschaften Verknüpfen von <\/b>und Verknüpfen nach <\/b>automatisch auf den Wert MailID <\/b>eingestellt.<\/p>\n Auf die gleiche Weise verfahren wir mit den beiden anderen Unterformularen, die entsprechend die Einträge der Tabelle tblMailReceivers <\/b>für die Cc<\/b>– und die Bcc<\/b>-Empfänger anzeigen.<\/p>\n Die Unterformulare zeigen jeweils das Feld ContactID <\/b>an, was hier als Kombinationsfeld abgebildet wird. Dadurch wählen wir entweder einen der vorhandenen Datensätze aus der hinter diesem Nachschlagefeld liegenden Tabelle tblContacts <\/b>aus oder wir geben einen noch nicht vorhandenen Datensatz ein. Ist der Eintrag noch nicht vorhanden, soll dies das Ereignis Bei Nicht In Liste <\/b>auslösen. Diese implementieren wir wie in Listing 1.<\/p>\n Listing 1: Hinzufügen von noch nicht vorhandenen Einträgen für die Empfängerliste<\/span><\/b><\/p>\n Hier fragen wir zunächst nach, ob der neue Kontakt angelegt werden soll. Falls ja, fragen wir den Vornamen und den Nachnamen des neuen Kontakts ab und tragen diese Werte zunächst in die Variablen strFirstName <\/b>und strLastName <\/b>ein.<\/p>\n Dann erstellen wir ein Recordset auf Basis der Tabelle tblContacts <\/b>und fügen diesem mit der AddNew<\/b>-Methode einen neuen Datensatz hinzu.<\/p>\n Das Feld MailAddress <\/b>füllen wir mit dem Wert des Parameters NewData<\/b>, also dem neu eingegebenen Wert, und die Felder FirstName <\/b>und LastName <\/b>mit den Inhalten der Variablen strFirstName <\/b>und strLastName<\/b>.<\/p>\n Nach dem Aktualisieren stellen wir noch den Rückgabeparameter Response <\/b>auf den Wert acDataErrAdded<\/b> ein, damit der neue Wert gleich in das Kombinationsfeld übernommen wird.<\/p>\n Möchte der Benutzer den neuen Eintrag nicht übernehmen, setzt die Prozedur das Steuerelement ContactID <\/b>mit der Undo<\/b>-Methode zurück und stellt den Parameter Response <\/b>auf acDataErrContinue <\/b>ein.<\/p>\n Wir wollen verhindern, dass E-Mail-Adressen mehrfach als Empfängeradresse eingetragen werden. Deshalb haben wir, wie weiter oben beschrieben, für die Felder MailID <\/b>und ContactID <\/b>einen zusammengesetzten, eindeutigen Index definiert.<\/p>\n Fügt der Benutzer nun eine Empfängeradresse zum zweiten Mal ein, löst dies den Fehler 3022 <\/b>aus. Um diesen abzufangen, fügen wir dem Formular eine Ereignisprozedur für die Ereigniseigenschaft Bei Fehler <\/b>hinzu (siehe Listing 2).<\/p>\n Listing 2: Diese Prozedur wird bei Formularfehlern ausgelöst.<\/span><\/b><\/p>\n Im Falle dieses Fehlers erscheint eine Meldung, dass eine E-Mail-Adresse zwei Mal zur gleichen E-Mail hinzugefügt wurde und die Auswahl wird mit der Undo<\/b>-Methode zurückgesetzt. Außerdem stellen wir den Rückgabeparameter Response <\/b>auf den Wert acDataErrContinue <\/b>ein.<\/p>\n Um die Anlagen zu definieren, die wir der E-Mail hinzufügen wollen, haben wir die Schaltfläche cmdAddAttachment<\/b> hinzugefügt. Sie löst die Ereignisprozedur aus Listing 3 aus.<\/p>\n Listing 3: Hinzufügen von Attachments zur E-Mail<\/span><\/b><\/p>\n Die Prozedur ruft mit der Funktion ChooseAttachment <\/b>(hier nicht abgebildet) einen Dateiauswahl-Dialog auf, mit dem die hinzuzufügenden Dateien ausgewählt werden. Die durch das Pipe-Zeichen getrennte Liste der Dateipfade durchläuft die Prozedur dann und fügt der Tabelle tblAttachments <\/b>jeweils einen neuen Datensatz hinzu. Dieser wird der jeweiligen MailID <\/b>zugeordnet und sowohl mit dem reinen Dateinamen als auch dem Pfad gefüllt.<\/p>\n Die so zur Tabelle tblAttachments <\/b>hinzugefügten Daten zeigt das Unterformular sfmAttachments <\/b>an.<\/p>\n Damit fehlt noch die letzte Prozedur, die durch die Schaltfläche cmdSenden <\/b>ausgelöst wird (siehe Listing 4). Diese sorgt im Wesentlichen dafür, dass die Daten aus den Tabellen tblMails<\/b>, tblMailReceivers <\/b>und tblAttachments <\/b>in den Eigenschaften des neu erstellten Objekts auf Basis der Klasse clsMail <\/b>eingefügt werden. Schließlich wird die E-Mail mit der Send<\/b>-Methode abgeschickt. Im Erfolgsfall schreibt die Prozedur das Datum und die Uhrzeit in das Feld SentDate<\/b>. Falls der Versand nicht glückt, erscheint eine entsprechende Fehlermeldung.<\/p>\n![\"Tabelle](\"..\/fileadmin\/_temp_\/2025_01\/pic_1536_002.png\")
<\/p>\nZuordnung von Kontakten zu den E-Mails<\/h2>\n
![\"Tabelle](\"..\/fileadmin\/_temp_\/2025_01\/pic_1536_003.png\")
<\/p>\nBeziehung für MailID per Beziehungen-Fenster einrichten<\/h2>\n
![\"Herstellen](\"..\/fileadmin\/_temp_\/2025_01\/pic_1536_005.png\")
<\/p>\nBeziehung für ContactID über Nachschlagefelder einrichten<\/h2>\n
\n
![\"Einstellungen](\"..\/fileadmin\/_temp_\/2025_01\/pic_1536_004.png\")
<\/p>\n![\"Die](\"..\/fileadmin\/_temp_\/2025_01\/pic_1536_006.png\")
<\/p>\nWeitere Hilfstabellen<\/h2>\n
\n
![\"Die](\"..\/fileadmin\/_temp_\/2025_01\/pic_1536_007.png\")
<\/p>\n![\"Die](\"..\/fileadmin\/_temp_\/2025_01\/pic_1536_008.png\")
<\/p>\n![\"Die](\"..\/fileadmin\/_temp_\/2025_01\/pic_1536_009.png\")
<\/p>\n![\"Datenmodell](\"..\/fileadmin\/_temp_\/2025_01\/Snag_148989bf.png\")
<\/p>\n\n
Erstellen des Hauptformulars zum Erstellen einer E-Mail<\/h2>\n
![\"Formular](\"..\/fileadmin\/_temp_\/2025_01\/pic_1536_012.png\")
<\/p>\n![\"Formular](\"..\/fileadmin\/_temp_\/2025_01\/pic_1536_013.png\")
<\/p>\nUnterformulare für die Empfängeradressen<\/h2>\n
![\"Unterformular](\"..\/fileadmin\/_temp_\/2025_01\/pic_1536_014.png\")
<\/p>\n![\"Abfrage](\"..\/fileadmin\/_temp_\/2025_01\/pic_1536_015.png\")
<\/p>\nPrivate Sub <\/span>ContactID_NotInList(NewData As String<\/span>, Response As Integer<\/span>)\r\n Dim <\/span>db As <\/span>DAO.Database, rst As <\/span>DAO.Recordset, strFirstName As String<\/span>, strLastName As String<\/span>\r\n If <\/span>MsgBox<\/span>(\"Neuen Kontakt anlegen?\", vbYesNo + vbExclamation, \"Neuer Kontakt\") = vbYes Then<\/span>\r\n strFirstName = InputBox(\"Vorname: \", \"Vorname eingeben\", \"[Vorname]\")\r\n strLastName = InputBox(\"Nachname: \", \"Nachname eingeben\", \"[Nachname]\")\r\n Set<\/span> db = CurrentDb\r\n Set<\/span> rst = db.OpenRecordset(\"tblContacts\", dbOpenDynaset)\r\n With<\/span> rst\r\n .AddNew<\/span>\r\n !MailAddress = NewData\r\n !FirstName = strFirstName\r\n !LastName = strLastName\r\n .Update\r\n .Close\r\n End With<\/span>\r\n Set<\/span> rst = Nothing\r\n Set<\/span> db = Nothing\r\n Response = acDataErrAdded\r\n Else<\/span>\r\n Me.ContactID.Undo\r\n Response = acDataErrContinue\r\n End If<\/span>\r\nEnd Sub<\/span><\/pre>\nDoppelte Einträge<\/h2>\n
Private Sub <\/span>Form_Error(DataErr As Integer<\/span>, Response As Integer<\/span>)\r\n Select Case DataErr\r\n Case <\/span>3022\r\n MsgBox<\/span> \"Der Empfänger wurde bereits ausgewählt. Die Auswahl wird zurückgesetzt.\", vbOKOnly + _\r\n vbInformation, \"Doppelter Empfänger\"\r\n Me.Undo\r\n Response = acDataErrContinue\r\n Case <\/span>0\r\n Case Else<\/span>\r\n MsgBox<\/span> \"Fehler \" & DataErr & vbCrLf<\/span> & vbCrLf<\/span> & AccessError(DataErr), vbOKOnly + vbAbortRetryIgnore, _\r\n \"Fehler\"\r\n End Select<\/span>\r\nEnd Sub<\/span><\/pre>\nHinzufügen von Anlagen zur E-Mail<\/h2>\n
Private Sub <\/span>cmdAddAttachment_Click()\r\n Dim <\/span>db As <\/span>DAO.Database, rstAttachments As <\/span>DAO.Recordset\r\n Dim <\/span>strFiles() As String<\/span>, strFilepath As String<\/span>, strFilename As String<\/span>\r\n Dim <\/span>i As Integer<\/span>\r\n Set<\/span> db = CurrentDb\r\n Set<\/span> rstAttachments = db.OpenRecordset(\"SELECT * FROM tblAttachments\", dbOpenDynaset)\r\n strFiles = Split<\/span>(ChooseAttachment, \"|\")\r\n For i = LBound<\/span>(strFiles) To UBound<\/span>(strFiles)\r\n strFilepath = strFiles(i)\r\n strFilename = Mid<\/span>(strFilepath, InStrRev<\/span>(strFilepath, \"\\\") + 1)\r\n rstAttachments.AddNew<\/span>\r\n rstAttachments!MailID = Me.MailID\r\n rstAttachments!Filename = strFilename\r\n rstAttachments!Filepath = strFilepath\r\n rstAttachments.Update\r\n Next<\/span> i\r\n Me!sfmAttachments.Form.Requery\r\nEnd Sub<\/span><\/pre>\nErstellen und verschicken der E-Mail<\/h2>\n
Private Sub <\/span>cmdSenden_Click()\r\n Dim <\/span>db As <\/span>DAO.Database, rstMail As <\/span>DAO.Recordset, rstToRecipients As <\/span>DAO.Recordset, rstCcRecipients As <\/span>DAO.Recordset\r\n Dim <\/span>rstBccRecipients As <\/span>DAO.Recordset, objMail As <\/span>New<\/span> clsMail, lngMailID As Long<\/span>, rstAttachments As <\/span>DAO.Recordset\r\n Set<\/span> db = CurrentDb\r\n Set<\/span> rstMail = db.OpenRecordset(\"SELECT * FROM tblMails WHERE MailID = \" & Me.MailID, dbOpenDynaset)\r\n If <\/span>Not<\/span> rstMail.EOF Then<\/span>\r\n objMail.ApplicationID = cStrApplicationID\r\n objMail.SecretID = cStrSecretValue\r\n objMail.TenantID = cStrTenantID\r\n objMail.Username = \"andre@andreminhorstverlag.onmicrosoft.com\"\r\n objMail.From = rstMail!Sender\r\n Set<\/span> rstToRecipients = db.OpenRecordset(\"SELECT * FROM qryToReceivers WHERE MailID = \" & rstMail!MailID)\r\n Do While<\/span> Not<\/span> rstToRecipients.EOF\r\n objMail.ToRecipients.Add CStr(rstToRecipients!MailAddress)\r\n rstToRecipients.MoveNext<\/span>\r\n Loop<\/span>\r\n Set<\/span> rstCcRecipients = db.OpenRecordset(\"SELECT * FROM qryCcReceivers WHERE MailID = \" & rstMail!MailID)\r\n Do While<\/span> Not<\/span> rstCcRecipients.EOF\r\n objMail.CcRecipients.Add CStr(rstToRecipients!MailAddress)\r\n rstCcRecipients.MoveNext<\/span>\r\n Loop<\/span>\r\n Set<\/span> rstBccRecipients = db.OpenRecordset(\"SELECT * FROM qryBccReceivers WHERE MailID = \" & rstMail!MailID)\r\n Do While<\/span> Not<\/span> rstBccRecipients.EOF\r\n objMail.BccRecipients.Add CStr(rstBccRecipients!MailAddress)\r\n rstBccRecipients.MoveNext<\/span>\r\n Loop<\/span>\r\n objMail.Subject = rstMail!Subject\r\n objMail.ContentType = rstMail!ContentTypeID\r\n objMail.TextContent = rstMail!BodyText\r\n objMail.Importance = rstMail!ImportanceID\r\n Set<\/span> rstAttachments = db.OpenRecordset(\"SELECT * FROM tblAttachments WHERE MailID = \" & rstMail!MailID)\r\n Do While<\/span> Not<\/span> rstAttachments.EOF\r\n objMail.Attachments.Add CStr(rstAttachments!Filepath)\r\n rstAttachments.MoveNext<\/span>\r\n Loop<\/span>\r\n If <\/span>objMail.Send = True<\/span> Then<\/span>\r\n rstMail.Edit\r\n rstMail!SentDate = Now\r\n rstMail.Update\r\n Else<\/span>\r\n MsgBox<\/span> \"Senden fehlgeschlagen.\", vbOKOnly + vbInformation, \"Senden fehlgeschlagen\"\r\n End If<\/span>\r\n End If<\/span>\r\nEnd Sub<\/span><\/pre>\n