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

DimrkeyAsMicrosoft.Win32.RegistryKey
DimpathAsstring
DimsubjectAsstring
DimEmailToAsstring
DimAttachPathAsstring

rkey=Microsoft.Win32.Registry.ClassesRoot.OpenSubKey(“mailto/shell/open/command”)‘取得Outlook程序位置
IfrkeyIsNotnothingThen
path=rkey.GetValue(“”).ToString()&”“
path=path.Substring(0,path.IndexOf(”“))
path=path.Replace(“”"”,“”)
rkey.Close()
Try
subject=“hello”
EmailTo=“[e-mail]“
AttachPath=“c:/sss.txt”
System.Diagnostics.Process.Start(path,“-cIPM.Note/m”&EmailTo.Trim&“&subject=”&subject.Trim&””&AttachPath.Trim)
CatchexAsException

EndTry EndIf