易语言发送邮件怎样添加附件 会的发截图来 不会的绕道

发个自己写过的一个 exe 图， 不过这个也是 易语言 官网 有的 参考，

我只是给了一点点，如果看不懂   也不要问了，当能发邮件时，你的邮件 要开启了SMTP

.版本 2

.支持库 internet

.程序集 启动窗口程序集

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

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

.如果真 (附加对话框.打开 () ＝ 真)  ' 打开通用对话框

    .如果 (添加附件文件 (附加对话框.文件名) ＝ 真)  ' 选择要附加的文件

        当前附件数目 ＝ 当前附件数目 ＋ 1

        附件标签.标题 ＝ 到文本 (当前附件数目)

    .否则

        信息框 (“添加附件失败！”, #错误图标, “失败”)

    .如果结束

.如果真结束

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

清除所有附件 ()

当前附件数目 ＝ 0

附件标签.标题 ＝ “”

.子程序 _发送邮件按钮_被单击

.局部变量 发送结果, 文本型

状态标签.标题 ＝ “正在连接发信服务器”

状态标签.刷新显示 ()

.如果 (连接发信服务器 (邮件服务器地址编辑框.内容, 25, “用户名”, “密码”, ) ＝ 假)  ' 连接服务器 这里用户名和密码，我删除掉了

    状态标签.标题 ＝ “连接邮件服务器失败!”

    返回 ()

.否则

    状态标签.标题 ＝ “连接邮件服务器成功,正在发送邮件”

    状态标签.刷新显示 ()

.如果结束

发送结果 ＝ 发送邮件 (邮件标题编辑框.内容, 邮件内容编辑框.内容, 收信人邮件地址编辑框.内容, 抄送邮件地址编辑框.内容, 暗送邮件地址编辑框.内容, 发信人邮件地址编辑框.内容, )  ' 发送邮件

.如果 (发送结果 ＝ “”)

    状态标签.标题 ＝ “发送邮件成功!”

.否则

    状态标签.标题 ＝ 发送结果

.如果结束

2

.支持库

internet

连接发信服务器

(“发信服务器”,端口

,

“邮箱账号”,

“邮箱密码”,

)

.如果真

(真

＝

添加附件文件

(附件文本型地址))

处理事件()

发送邮件

(“邮件标题“,“邮件内容”,

收信人邮件地址,

抄送邮件地址,

暗送邮件地址,

发信人邮件地址,回复邮件地址)

.如果真结束

大概就是这样的，希望帮到你！