'eMail mit Outlook verschicken.
        Set myMail = myOutlApp.CreateItem(olMailItem)
        With myMail
            ' Den Empfänger der Mail festlegen
            .To = rst![EMail]
            ' Den Betreff der Mail festlegen
            .Subject = Me!txtBetreff
            ' Den Text der Mail festlegen
            .Body = Message
            ' Die Attachments zur Mail hinzufügen
            query = "SELECT Pfad FROM tab_Anhänge WHERE EMailID=" & _
              Me.txtEMailID
 
            Set rs = dbs.OpenRecordset(query)
            If (Not (rs.BOF)) Then          'nur wenn ein Anhang vorhanden ist
                While (Not (rs.EOF))        'bis alle Dateien im Anhang 
                ' verarbeitet wurden
                    .Attachments.Add rs![Pfad]
                    rs.MoveNext             'nächsten Anhang lesen
                Wend
            End If
            rs.Close
            ' Die Mail senden
            .Send
        End With