易语言调用系统邮件程序源码
.版本 2
.程序集 窗口程序集1
.子程序 _按钮1_被单击
调试输出 (运行_ (取窗口句柄 (), “mailto:[email protected]”, , ))
.子程序 运行_, 整数型
.参数 窗口句柄, 整数型
.参数 文件名, 文本型
.参数 运行参数, 文本型, 可空
.参数 被运行程序窗口显示方式, 整数型, 可空, 0、#隐藏窗口; 1、#普通激活; 2、#最小化激活; 3、#最大化激活; 8、#普通不激活;默认为“普通激活”方式
.局部变量 设定执行文件信息, 设定执行文件信息_
.局部变量 文件信息, 整数型
.局部变量 返回值, 整数型
设定执行文件信息.结构大小 = 取结构尺寸 (设定执行文件信息)
设定执行文件信息.标志 = #SEE_MASK_NOCLOSEPROCESS
设定执行文件信息.窗口句柄 = 窗口句柄
设定执行文件信息.应用程序参数 = 运行参数
设定执行文件信息.操作命令 = “open”
设定执行文件信息.文件名 = 文件名
设定执行文件信息.显示标志 = 被运行程序窗口显示方式
.如果真 (是否为空 (被运行程序窗口显示方式))
设定执行文件信息.显示标志 = 1
.如果真结束
文件信息 = 设定执行文件_ (设定执行文件信息)
返回 (设定执行文件信息.实例句柄)
一句代码搞掂的事,弄这么复杂干嘛?
运行 (“explorer mailto:[email protected]”, 假, 2)
易语言+直接调用邮件代码