Public Function EMLTemplate(ByVal fileName As String, ByVal mailFrom As String, _
  ByVal mailTo As String, ByVal mailSubject As String, ByVal mailText As _
  String) As Boolean
        Try
            Dim Fs As FileStream = New FileStream(fileName, _
              FileMode.OpenOrCreate, FileAccess.Write, FileShare.None)
            Dim SwFromFile As StreamWriter = New StreamWriter(Fs)
            SwFromFile.WriteLine("From: <" + mailFrom + ">")
            SwFromFile.WriteLine("To: <" + mailTo + ">")
            SwFromFile.WriteLine("Subject: " + mailSubject)
            SwFromFile.WriteLine("Date: " + Now.ToShortDateString.ToString)
            SwFromFile.WriteLine("MIME-Version: 1.0")
            SwFromFile.WriteLine("Content-Type: multipart/mixed;")
            SwFromFile.WriteLine( _
              "	boundary=""----=_NextPart_000_0006_01C482F5.93675E40""")
            SwFromFile.WriteLine("X-Priority: 3")
            SwFromFile.WriteLine("X-MSMail-Priority: Normal")
            SwFromFile.WriteLine("X-Unsent: 1")
            SwFromFile.WriteLine("X-MimeOLE: Test")
            SwFromFile.WriteLine("")
            SwFromFile.WriteLine("This is a multi-part message in MIME format.")
            SwFromFile.WriteLine("")
            SwFromFile.WriteLine("------=_NextPart_000_0006_01C482F5.93675E40")
            SwFromFile.WriteLine("Content-Type: text/plain;")
            SwFromFile.WriteLine("	charset=""iso-8859-1""")
            SwFromFile.WriteLine("Content-Transfer-Encoding: 8bit")
            SwFromFile.WriteLine("")
            SwFromFile.WriteLine(mailText)
            SwFromFile.WriteLine("")
            SwFromFile.WriteLine( _
              "------=_NextPart_000_0006_01C482F5.93675E40--")
            SwFromFile.Flush()
            SwFromFile.Close()
            Fs.Close()
        Catch e As System.SystemException
            MsgBox(e.ToString, MsgBoxStyle.Exclamation, Application.ProductName)
            Return False
        End Try
        Return True
    End Function
 
    Private Sub PictureBox_ExportMail_Click(ByVal sender As System.Object, _
      ByVal e As System.EventArgs) Handles PictureBox_ExportMail.Click
        EMLTemplate("temp.eml", "", "", TextBox1.Text, TextBox2.Text)
        System.Diagnostics.Process.Start("temp.eml")
    End Sub