Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As _
      System.EventArgs) Handles Button2.Click
        Dim rep As New rptMainSpielstart
        Dim options As New MicrosoftMailDestinationOptions
        Dim i As Int16
        For i = 1 To 2 Step 1
 
            rep.SetDataSource(myDataSet)
            rep.Refresh()
            With options
                .MailToList = "Email Addy"
                .MailMessage = "MailMessage"
                .MailSubject = "Mailsubject"
            End With
            With rep.ExportOptions
                .ExportFormatType = ExportFormatType.PortableDocFormat
                .ExportDestinationType = ExportDestinationType.MicrosoftMail
                .DestinationOptions = options
            End With
            rep.Export()
        Next
    End Sub