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
        Try
            rep.Export()
            Return True
            Exit Function
        Catch ex As Exception
            Return False
        End Try