下面这段代码在没有安装邮件程序的电脑上运行没有按设定提示
TryDim Proc As New Process
Proc.File = "mailto:123@163.com"
Proc.Start()Catch ex As ExceptionMessageBox.Show("电脑上没有Foxmail之类的邮件程序,请自行下载安装","提示",MessageBoxButtons.OK,MessageBoxIcon.Error)End Try