Daten an Outlook-Mails ⁿbergeben

Aus Access 2000 heraus m÷chte ich Daten an Outlook ⁿbergeben; von Access zu Word funktioniert dies ausgezeichnet. Dabei soll es sich bei dem ⁿbergebenen Wert um eine E-Mail-Adresse sowie eine Betreff-Zeile handeln. K÷nnen Sie mir helfen?

Die L÷sung demonstriert die Beispieldatenbank ACCOUTL.MDB auf der Heft-CD: CHIP-Code ACCOUTL In dieser Datenbank existiert das Formular ╗MailVersand½ mit den beiden Textfeldern ╗Adresse½ und ╗Betreff½, in denen Sie spΣter die Daten zur ▄bergabe an Outlook eingeben. Neben den Textfeldern sehen Sie in diesem Formular noch den Button ╗Mail senden½. Wenn Sie darauf klicken, erzeugt Outlook eine Mail mit EmpfΣnger aus dem Feld ╗Adresse½ und einem Betreff aus dem zweiten Feld. M÷chten Sie lieber selbst programmieren, gehen Sie so vor: Entwerfen Sie ein Formular und klicken Sie in der Entwurfsansicht mit der rechten Maustaste auf ╗Mail senden½. WΣhlen Sie ╗Eigenschaften½. Im Register ╗Ereignis½ klicken Sie auf den Button neben der Eigenschaft ╗Beim Klicken½. WΣhlen Sie den ╗Code-Generator½ und bestΣtigen Sie mit ╗OK½. Der Visual-Basic-Editor ÷ffnet sich und zeigt die Prozedur ╗Mail_senden_Click()½. Zuerst erzeugen Sie einen Verweis auf die Objektbibliothek von Outlook, um auf die Objekte und Funktionen von Outlook 2000 zugreifen zu k÷nnen: Rufen Sie den Menⁿbefehl ╗Extras | Verweise½ auf und aktivieren Sie den Eintrag ╗Microsoft Outlook 9.0 Object Library½. BestΣtigen Sie mit ╗OK½ und fⁿgen Sie folgenden Code ein:

Dim App As New

Outlook.Application

Dim Mail As Outlook.MailItem

Set Mail =

App.CreateItem (olMailItem)

Mail.To = Me![Adresse]

Mail.Subject = Me![Betreff]

Mail.Display