Microsoft Office Access 2007-Programmierung - Das Handbuch

Zusammenarbeit mit E-Mail-Programmen

Eine der wichtigsten Kommunikationsmedien ist heutzutage zweifelsfrei die elektronische Post, kurz

E-Mail. Auch Ihre Access-Anwendung kann Daten mit Hilfe von E-Mail-Clients versenden und empfan-

gen. Wir möchten Ihnen im Folgenden verschiedene Varianten vorstellen. Die Oberfläche ist in allen Fällen

gleich: Wir verwenden drei Textfelder für die Adresse, den Betreff-Text sowie für die eigentliche Nachricht:

Abbildung 14.10 Formular in der Entwurfsansicht

Mailversand über das DoCmd-Objekt

Die wohl einfachste Variante zum E-Mail-Versand bietet sich mit der Methode SendObject des DoCmd-

Objekts. Neben dem Versand einfacher Nachrichten kann diese Variante auch für die Übertragung von

Reports, Abfrageergebnissen, Tabellen etc. verwendet werden.

Syntax:

DoCmd.SendObject [Objekttyp][, Objektname][, Ausgabeformat] _

[, Adresse][, cc][, Bcc] _

[, Betreffzeile][, Nachricht][, Nachricht bearbeiten][, Vorlagedatei]

Als Objekttyp kommen die folgenden Möglichkeiten in Betracht:

Konstante Bemerkung

acSendNoObject (Default) Kein angehängtes Objekt

acSendTable Tabelle

acSendQuery Abfrage

acSendDataAccessPage Datenzugriffseite

acSendForm Formular

acSendModule Modul

acSendReport Bericht

Tabelle 14.3 Konstanten für Objekttyp der SendObject-Methode

915

Zusammenarbeit mit E-Mail-Programmen

HINWEIS

BEISPIEL

BEISPIEL

Kapitel 14: Access im Internet/Intranet

Die Konstanten für das Ausgabeformat (acFormatPDF, acFormatHTML, acFormatRTF, acFormatTXT,

acFormatXLS, acFormatXPS, acFormatXLSX ...) dürften selbsterklärend sein.

Das Senden als PDF- oder XPS-Datei ist nur möglich, wenn Sie das entsprechende Add-In installiert haben.

Über Adresse, CC und BCC wählen Sie den/die Empfänger der Nachricht aus.

Wichtig ist die Option Nachricht bearbeiten, diese entscheidet über die Anzeige des E-Mail-Clients vor dem

Versenden der Nachricht.

Versand einer Textnachricht:

Dim ShowInterface As Boolean

ShowInterface = True

DoCmd.SendObject acSendNoObject, , acFormatTXT, Text0.Value, , , Text7.Value, Text2.Value, _

True

Versenden von Tabellendaten mit einem kurzen Mitteilungstext:

...

DoCmd.SendObject acSendTable, "Umsatzdaten", acFormatPDF, Text0.Value, , , Text7.Value, _

Text2.Value, True

Abbildung 14.11 Die erzeugte E-Mail

916