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