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
原文链接：https://www.f2er.com/vb/260684.html