VB.net 调用OutLook发邮件(程序自动添加附件)

        Dim rkey As Microsoft.Win32.RegistryKey
        Dim path As String
        Dim subject As String
        Dim EmailTo As String
        Dim AttachPath As String

        rkey = Microsoft.Win32.Registry.ClassesRoot.OpenSubKey("mailto/shell/open/command")  '取得Outlook程序位置
        If rkey IsNot Nothing Then
            path = rkey.GetValue("").ToString() & " "
            path = path.Substring(0, path.IndexOf(" "))
            path = path.Replace("""", "")
            rkey.Close()
            Try
                subject = "hello"
                EmailTo = "myfriend@hotmail.com"
                AttachPath = "c:/sss.txt"
                System.Diagnostics.Process.Start(path, "-c IPM.Note /m " & EmailTo.Trim & "&subject=" & subject.Trim & " " & AttachPath.Trim)
            Catch ex As Exception

            End Try
        End If