Public Class frm_1
 
 
    Private Sub NeueNachricht(ByVal sRecipient As String,
      Optional ByVal sSubject As String = "",
      Optional ByVal sBody As String = "")
 
        Dim sParam As String
 
        ' Betreff
        If sSubject.Length > 0 Then AddMailParam(sParam, "subject=" & sSubject)
 
        ' Nachrichtentext
        If sBody.Length > 0 Then AddMailParam(sParam, "body=" &
          sBody.Replace(Chr(10), "%0d").Replace(Chr(13), "%0a"))
 
        ' Fenster "Neue Nachricht" öffnen
        Process.Start("mailto: " & sRecipient & sParam)
 
    End Sub
 
    ' Hilfsfunktion: EMail-Parameter zusammenstellen
    Private Sub AddMailParam(ByRef sAllParam As String, ByVal sParam As String)
        If sAllParam = String.Empty Then
            sAllParam = "?" & sParam
        Else
            sAllParam &= "&" & sParam
        End If
    End Sub
 
 
 
    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles _
      b_cl1.Click
        Dim fileReader As String
        fileReader = My.Computer.FileSystem.ReadAllText("C:\Test.txt",
   System.Text.Encoding.ASCII)
        MsgBox(fileReader)
 
        '        NeueNachricht("Name@domäne.de", "Anfrage",
        ' "Sehr geehrte Damen und Herren," & vbCrLf & vbCrLf &
        '"vielen Dank für Ihr Interesse..." & vbCrLf &
        ' "......." & vbCrLf &
        ' ".......")
    End Sub
 
    Private Sub b_cl2_Click(sender As Object, e As EventArgs) Handles _
      b_cl2.Click
        Me.Close()
    End Sub
    Dim File As New OpenFileDialog
    Dim filename As String
    Private Sub b_vorlage_Click(sender As Object, e As EventArgs) Handles _
      b_vorlage.Click
        Dim Outlook As New System.Diagnostics.Process()
        Outlook.StartInfo.Arguments = "/f " & """" & filename & _
          "C:\HoRes8\Hotel\DOT\Test1.msg"
        Outlook.StartInfo.FileName = "OUTLOOK.exe"
 
        Outlook.Start()
        Outlook.Dispose()
    End Sub
 
    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:\HoRes8\Hotel\DOT\Test2.msg"
        Outlook.StartInfo.FileName = "OUTLOOK.exe"
 
        Outlook.Start()
        Outlook.Dispose()
    End Sub
 
    Private Sub b_vorlage3_Click(sender As Object, e As EventArgs) Handles _
      b_vorlage3.Click
        Dim Outlook As New System.Diagnostics.Process()
        Outlook.StartInfo.Arguments = "/f " & """" & filename & _
          "C:\HoRes8\Hotel\DOT\Test3.msg"
        Outlook.StartInfo.FileName = "OUTLOOK.exe"
 
        Outlook.Start()
        Outlook.Dispose()
    End Sub
End Class