易邮件发送器

想学坏的小孩 · 发表于 2010-1-21 17:30:16

.版本 2
.支持库 internet

.程序集窗口程序集1
.程序集变量当前附件数目, 整数型

.子程序 _添加附件_被单击

.如果真 (通用对话框1.打开 () ＝真)
.如果 (添加附件文件 (通用对话框1.文件名) ＝真)
      当前附件数目＝当前附件数目＋ 1
      附件标签.标题＝到文本 (当前附件数目)
.否则
      信息框 (“添加附件失败！”, #错误图标, “失败”)
.如果结束

.如果真结束

.子程序 _清除附件_被单击

清除所有附件 ()
当前附件数目＝ 0
附件标签.标题＝ “”

.子程序 _发送_被单击
.局部变量发送结果, 文本型

状态标签.标题＝ “正在连接发信服务器”
状态标签.刷新显示 ()  ' 立即显示
.如果真 (连接发信服务器 (邮件服务器地址.内容, 到数值 (邮件服务器端口.内容), 用户名.内容, 密码.内容, ) ＝假)
状态标签.标题＝ “连接邮件服务器失败!”
返回 ()
.如果真结束
状态标签.标题＝ “正在发送邮件”
状态标签.刷新显示 ()  ' 立即显示
发送结果＝发送邮件 (邮件标题.内容, 邮件内容.内容, 发向.内容, 抄送.内容, 暗送.内容, 回复地址.内容, )
.如果 (发送结果＝ “”)
状态标签.标题＝ “发送邮件成功!”
.否则
状态标签.标题＝发送结果
.如果结束
断开发信服务器 ()  ' 实际应用中,连接一次邮件服务器后可以发送多份邮件,不必每次都断开.