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

EALA FREYA FRESENA

 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 MandantToolStripMenuItem_Click(sender As System.Object, e As _
      System.EventArgs) Handles MandantToolStripMenuItem.Click
        Dim objOL As New Outlook.Application
        Dim objMail As Outlook.MailItem
        Dim Signature As String
        Dim oAccount As Outlook.Account
 
 
        For Each oAccount In objOL.Session.Accounts
 
            'Wenn besonderer Account verwendet werden soll
            If oAccount.DisplayName = "meine.Mailadresse@beispiel.de" Then
                Signature = GetMailSignatur()
 
                'lokale Mailvorlage
                'objMail = CType(objOL.CreateItemFromTemplate( 
                ' My.Computer.FileSystem.SpecialDirectories.MyDocuments & 
                ' "\MeineVorlage.oft"), Outlook.MailItem)
 
                'normale Email
                objMail = CType(objOL.CreateItem( _
                  Outlook.OlItemType.olMailItem), Outlook.MailItem)
                With objMail
                    If txtEmailadresse.Text.Length > 0 Then .Recipients.Add( _
                      txtEmailaddresse.Text)
                    objMail.SendUsingAccount = oAccount
                    .BodyFormat = Outlook.OlBodyFormat.olFormatHTML
                    .Display()
                End With
            End If
        Next
    End Sub

Dim MyOL_Mail As Microsoft.Office.Interop.Outlook.MailItem
Dim objOutlook As Microsoft.Office.Interop.Outlook._Application
objOutlook = New Microsoft.Office.Interop.Outlook.Application
 
MyOL_Mail = CType(objOutlook.ActiveInspector.CurrentItem, _
  Microsoft.Office.Interop.Outlook.MailItem)
MyOL_Mail.To ="meine.mailadresse@gmx.de"

Process.Start("Mailto: " & TextBox2.Text.ToString())