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=“myfriend@hotmail.com“
AttachPath=“c:/sss.txt”
System.Diagnostics.Process.Start(path,“-cIPM.Note/m”&EmailTo.Trim&“&subject=”&subject.Trim&””&AttachPath.Trim)
CatchexAsException

EndTry EndIf

（编辑：李大同）

【声明】本站内容均来自网络，其相关言论仅代表作者个人观点，不代表本站立场。若无意侵犯到您的权利，请及时与联系站长删除相关内容!