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

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

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

.版本 2

.支持库 internet

.程序集 启动窗口程序集

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

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

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

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

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

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

    .否则

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

    .如果结束

.如果真结束

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

清除所有附件 ()

当前附件数目 ＝ 0

附件标签.标题 ＝ “”

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

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

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

状态标签.刷新显示 ()

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

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

    返回 ()

.否则

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

    状态标签.刷新显示 ()

.如果结束

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

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

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

.否则

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

.如果结束

连接发信服务器 (“smtp.qq.com”, 26, “123456”, “111”, )

添加附件文件 (“发送的文件地址”)

发送邮件 (“主题”, “正文”, “654321”, , , “123456”, )

望采纳

可以通过菜单栏的“插入”-＞资源-＞“图片或图片组”-＞在d出的页面找到“内容”-＞在“内容”下面的空白按空格-＞d出对话框-＞导入新图片-＞在“文件类型”选择“所有文件（*.*）”-＞双击你要添加的附件-＞加入/修改到程序并关闭对话框

---