直接用proc模拟运行就好。
Dim Proc As New Process '定义一个新的ProcessProc.File = "mailto:zjtdr@21cn.net" '邮件地址前要加上"mailto:"Proc.Start()
http://www.foxtable.com/help/topics/0353.htm