.版本 2 .支持库 internet .程序集 程序集1 .子程序 _启动子程序, 整数型, , 请在本子程序中放置易模块初始化代码 _临时子程序 () ' 在初始化代码执行完毕后调用测试代码 返回 (0) ' 可以根据您的需要返回任意数值 .子程序 _临时子程序 .局部变量 邮箱帐号, 文本型, , , 163邮箱帐号，不需要后缀 【.com】 .局部变量 授权码, 文本型, , , 163邮箱的授权码，不是登录密码，在163邮箱--设置--左边--客户端授权密码。 ' 本名称子程序用作测试程序用，仅在开发及调试环境中有效，编译发布程序前将被系统自动清空，请将所有用作测试的临时代码放在本子程序中。 ***注意不要修改本子程序的名称、参数及返回值类型。 邮箱帐号 ＝ “11” 授权码 ＝ “11” 输出调试文本 (开始发邮件 (邮箱帐号, 授权码, “标题001”, “正文001”, “[email protected]”, , )) .子程序 开始发邮件, 文本型, 公开, 帐号，授权码，标题，正文，收件人，抄送地址【可空】,暗送地址【可空】 .参数 邮箱帐号, 文本型, , 163邮箱帐号，不需要后缀 【.com】 .参数 授权码, 文本型, , 163邮箱的授权码，不是登录密码，在163邮箱--设置--左边--客户端授权密码。 .参数 邮件标题, 文本型, , 邮件的标题 .参数 邮件正文, 文本型, , 你发送的内容 .参数 收件地址, 文本型, , 发邮件给谁 .参数 抄送地址, 文本型, 可空, 可空 .参数 暗送地址, 文本型, 可空, 可空 .局部变量 进度, 文本型 .局部变量 连接情况, 文本型 .局部变量 发送情况, 文本型 .如果 (连接发信服务器 (“smtp.163.com”, 25, 邮箱帐号, 授权码, ) ＝ 真) 连接情况 ＝ “连接成功” ' ’发送邮件 (“GT网吧测试邮件”, “警告信息内容”, 收件地址, 抄送地址, 暗送地址, 发信地址, ) .如果 (发送邮件 (邮件标题, 邮件正文, 收件地址, 抄送地址, 暗送地址, 邮箱帐号 ＋ “@163.com”, ) ＝ “”) 发送情况 ＝ “发送成功” .否则 发送情况 ＝ “发送失败” .如果结束 .否则 连接情况 ＝ “连接失败” .如果结束 返回 (连接情况 ＋ “|” ＋ 发送情况)