Private Sub b_vorlage2_Click(sender As Object, e As EventArgs) Handles _
   b_vorlage2.Click
        Dim Outlook As New System.Diagnostics.Process()
        Outlook.StartInfo.Arguments = "/f " & """" & filename & _
          "C:\TEST\DOT\Test2.msg"
        Outlook.StartInfo.FileName = "OUTLOOK.exe"
        Process.Start("Mailto: " & TextBox2.Text.ToString() & "Body:" _
          TextBox3.Text.ToString)
        Outlook.Dispose()