Dim rep As New rptMainSpielstart
        Dim options As New MicrosoftMailDestinationOptions
        Dim i As Int16
 
        rep.SetDataSource(DataSet)
        rep.Refresh()
        With options
            .MailToList = Empfänger
            .MailMessage = Message
            .MailSubject = Subject
        End With
        With rep.ExportOptions
            .ExportFormatType = ExportFormatType.PortableDocFormat
            .ExportDestinationType = ExportDestinationType.MicrosoftMail
            .DestinationOptions = options
        End With
        rep.Export()