![\"Erstellen](\"..\/tl_files\/images\/pic_205_001.png\")
<\/a><\/p>\nBild 1: Erstellen einer E-Mail per VBA und Anzeige in der Outlook-Vorschau<\/p>\n
Betreff und Inhalt der E-Mail sowie weitere Eigenschaften wurden bereits in einem Access-Formular eingegeben, die Anzeige der Outlook-Mail vor dem Versenden soll lediglich der Kontrolle dienen.<\/p>\n
Es sind jedoch auch noch andere Szenarien denkbar: Beispielsweise könnten Sie aus einem Kundenformular heraus eine E-Mail an den aktuell angezeigten Kunden erstellen. Sie würden dann direkt die E-Mail mit Outlook anzeigen und nicht erst ein Access-Formular erstellen, dass prinzipiell die gleichen Felder wie Outlook anzeigt. Der Benutzer trägt dann Betreff und Inhalt der E-Mail ein und versendet diese.<\/p>\n
Im Gegensatz zur vorherigen Variante, wo wir die E-Mail bereits in einem Access-Formular erstellt und dabei gleichzeitig die Inhalt in der an das Formular gebundenen Tabelle gespeichert haben, werden Betreff, Inhalt et cetera nun nicht in der Datenbank gespeichert.<\/p>\n
Aber auch bei der Variante, bei der die Mail im Formular erstellt und in der Tabelle gespeichert wird, kann der Benutzer ja noch änderungen an der E-Mail vornehmen, wenn diese vor dem Versenden noch in Outlook angezeigt wird. Das heißt, dass die Tabelle mit den E-Mails unter Umständen gar nicht den tatsächlich gesendeten Inhalt enthält.<\/p>\n
Es wäre also für beide Fälle interessant, vor dem Versenden der E-Mail über die Senden<\/b>-Schaltfläche der E-Mail in Outlook noch einmal den Inhalt einzulesen und in die Datenbank zu übertragen.<\/p>\n
Wie aber können wir dies bewerkstelligen Hilfe bietet das Objektmodell von Outlook ab der Version 2007. Genau wie die Access-Objekte wie Formulare, Steuerelemente oder Berichte bieten auch die Outlook-Objekte Ereignisse an, für die Sie Ereignisprozeduren implementieren können. Diese werden durch Ereignisse wie Open<\/b>, Send <\/b>et cetera ausgelöst. Eine übersicht etwa aller Ereignisse des MailItem<\/b>-Objekts liefert der Objektkatalog, den Sie mit F2 <\/b>einblenden.<\/p>\n
Dort wählen Sie die Bibliothek Outlook <\/b>aus und selektieren in der Liste links das zu untersuchende Objekt. Auf der rechten Seite finden Sie dann alle Eigenschaften, Methoden und Ereignisse des jeweiligen Objekts (siehe Bild 2). Wenn Sie dort im Kontextmenü den Eintrag Elemente gruppieren <\/b>aktivieren, gruppiert der Dialog die Einträge nach Eigenschaften, Methoden und Ereignissen.<\/p>\n
Bild 2: Ereignisse des MailItem-Objekts in Outlook<\/p>\n Wenn wir, wie oben beschrieben, eine E-Mail vor dem Senden noch auslesen und Informationen wie den Betreff oder den Inhalt in einer Tabelle der Datenbank speichern möchten, müssen wir das Ereignis Send <\/b>des MailItem<\/b>-Objekts implementieren.<\/p>\n Die Beispiele zu den folgenden Abschnitten finden Sie übrigens im Formular frmMail <\/b>und im dazugehörigen Klassenmodul Form_frmMail<\/b>.<\/p>\n Grundlagen zum Implementieren von Ereignissen aus anderen Objekten wie Formularen, Steuerelementen oder auch externen Objekten wie hier von Outlook finden Sie im Artikel Ereignisse abgreifen <\/b>in dieser Ausgabe von Access [basics]<\/b>.<\/p>\n Wir möchten das Send<\/b>-Ereignis dazu nutzen, die gegebenenfalls vom Nutzer in der Outlook-Mail geänderten Daten wie den Betreff oder den Inhalt in die entsprechenden Textfelder des Formulars zu übertragen, in dem die Mailinhalte ursprünglich zusammengestellt wurden.<\/p>\n Dazu deklarieren Sie im Klassenmodul des Formulars zunächst eine Objektvariable für das Objekt, dessen Ereignisse wir implementieren möchten – also im Klassenmodul Form_frmMail<\/b>.<\/p>\n Die Deklaration sieht wie folgt aus:<\/p>\n Wichtig ist hier das Schlüsselwort With-Events<\/b>. Dieses gibt an, dass im aktuelllen Klassenmodul Ereignisprozeduren für das mit dieser Variablen referenzierte Objekt vorhanden sein könnten.<\/p>\n Da wir die Deklaration nun im Kopf des Klassenmoduls untergebracht haben, müssen wir die entsprechende Zeile aus der Prozedur cmdMailSenden_Click <\/b>entfernen (siehe Listing 1). Anderenfalls deklariert und instanziert die Prozedur ihre eigene Objektvariable mit Verweis auf die E-Mail und verwendet diese auch.<\/p>\n Listing 1: Mail füllen und vor dem Versenden anzeigen<\/p>\n Möchten Sie weiterlesen? Dann lösen Sie Ihr Ticket!<\/span><\/a><\/p>\nEreignis beim Senden einer E-Mail<\/h2>\n
Dim <\/span>WithEvents objMail As <\/span>Outlook.MailItem<\/pre>\nPrivate Sub <\/span>cmdMailSenden_Click()\r\n Dim <\/span>objOutlook As <\/span>Outlook.Application\r\n 'nächste Zeile auskommentieren\r\n 'Dim objMail As <\/span>Outlook.MailItem\r\n Dim <\/span>i As Integer<\/span>\r\n Dim <\/span>strAnhaenge() As String<\/span>\r\n Set<\/span> objOutlook = New<\/span> Outlook.Application\r\n Set<\/span> objMail = objOutlook.CreateItem(olMailItem)\r\n With<\/span> objMail\r\n '...\r\n .Display\r\n '.Send\r\n End With<\/span>\r\nEnd Sub<\/span><\/pre>\n
\nHier geht es zur Bestellung des Jahresabonnements des Magazins Access [basics]<\/strong>:<\/span>
\nZur Bestellung ...<\/a><\/span>
\nDanach greifen Sie sofort auf alle rund 400 Artikel<\/strong> unseres Angebots zu - auch auf diesen hier!<\/span>
\nOder haben Sie bereits Zugangsdaten? Dann loggen Sie sich gleich hier ein:<\/span><\/p>\n<\/div>\n\n\t\n\t