.版本 2 .支持库 spec .程序集 窗口程序集 .程序集变量 Smtp, 发件类 .子程序 _发送_被单击 .局部变量 数据返回, 文本型 .如果 (Smtp.连接 (编辑框_服务器.内容, 到整数 (编辑框_端口.内容), 编辑框_帐号.内容, 编辑框_密码.内容)) 日志.加入文本 (“Smtp 服务端连接成功！” ＋ #换行符) 数据返回 ＝ Smtp.发送邮件 (邮件标题.内容, 邮件内容.内容, 编辑框_收件人地址.内容, 编辑框_抄送人地址.内容, 编辑框_暗送人地址.内容, 编辑框_发信人地址.内容, 编辑框_回复人地址.内容) .如果 (数据返回 ＝ “”) 日志.加入文本 (“发送邮件成功！” ＋ #换行符) .否则 日志.加入文本 (“发送邮件失败：” ＋ 数据返回 ＋ #换行符) .如果结束 日志.加入文本 (“**************************************”) Smtp.关闭 () .否则 日志.加入文本 (“Smtp 服务端连接失败！” ＋ #换行符) .如果结束 .子程序 _添加附件按钮_被单击 .如果真 (通用对话框.打开 () ＝ 真) ' 打开通用对话框 Smtp.添加附件文件 (通用对话框.文件名) 列表框_附件.加入项目 (通用对话框.文件名, ) .如果真结束 .子程序 _清除附件按钮_被单击 列表框_附件.清空 () Smtp.清空附件 () .子程序 __启动窗口_创建完毕 调试输出 (到文本 (Base64解码 (“t6LTyrz+suLK1A==”)))