Microsoft Office Access 2007-Programmierung - Das Handbuch

HINWEIS

Sollten Sie die Anzeige des Interfaces nicht aktivieren, wird Sie Microsoft Outlook mit folgender Sicher-

heitsabfrage nerven:

Abbildung 14.12 Sicherheitsabfrage durch Outlook

Sowohl über den obigen Dialog (Schaltfläche Verweigern) als auch durch den Abbruch des Sendevorgangs in

Microsoft Outlook tritt ein Laufzeitfehler auf, den Sie in Ihrem Programm behandeln müssen.

Mailversand über OLE-Automation

Bei dieser Variante steuern Sie Microsoft Outlook per OLE-Automation. Ihnen stehen also (fast) alle Featu-

res von Outlook uneingeschränkt zur Verfügung (Versand beliebiger Dateien etc.). Auf die Verwendung

von API-Funktionen können wir dank der komfortablen OLE-Schnittstelle gänzlich verzichten. Lediglich

eine Konstante müssen wir in Erfahrung bringen (binden Sie dazu einfach kurzzeitig die MS-Outlook-

Library ein).

Private Const olMailItem = 0

Danach können wir auf die Library verzichten, löschen also den Verweis wieder.

Nach dem Klick auf die Schaltfläche erstellen wir zuerst eine Instanz des MS Outlook-Objekts und ein neues

Mail-Objekt:

Private Sub Befehl6_Click()

Dim myOutlook As Object

Dim mailitem As Object

Set myOutlook = CreateObject("Outlook.Application")

Set mailitem = myOutlook.CreateItem(olMailItem)

Nachfolgend weisen wir einfach die entsprechenden Eigenschaften zu:

With mailitem

.Subject = Text7.Value

.To = Text0.Value

.Body = Text2.Value

Vergessen Sie nicht, die Mail auch in den Postkasten zu werfen, andernfalls war die Arbeit umsonst:

.Send

End With

End Sub

917

Zusammenarbeit mit E-Mail-Programmen