Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As _
  System.EventArgs) Handles Button1.Click
        Dim processMail As ProcessStartInfo = New ProcessStartInfo( _
        "Outlook.exe")
        Dim compinfo As String
 
        compinfo = My.Computer.Name
 
        processMail.FileName = _
          "mailto:edv@irgendwas.de?subject=EDV-Problem&Body=Rechnername: " & _
          compinfo
 
        Process.Start(processMail)