Question

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

Answer 1

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

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

.版本 2
.支持库 internet

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

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

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

.如果真结束


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

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

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

状态标签.标题 ＝ “正在连接发信服务器”
状态标签.刷新显示 ()
.如果 (连接发信服务器 (邮件服务器地址编辑框.内容, 25, “用户名”, “密码”, ) ＝ 假)  ' 连接服务器 这里用户名和密码，我删除掉了
    状态标签.标题 ＝ “连接邮件服务器失败!”
    返回 ()
.否则
    状态标签.标题 ＝ “连接邮件服务器成功,正在发送邮件”
    状态标签.刷新显示 ()
.如果结束
发送结果 ＝ 发送邮件 (邮件标题编辑框.内容, 邮件内容编辑框.内容, 收信人邮件地址编辑框.内容, 抄送邮件地址编辑框.内容, 暗送邮件地址编辑框.内容, 发信人邮件地址编辑框.内容, )  ' 发送邮件
.如果 (发送结果 ＝ “”)
    状态标签.标题 ＝ “发送邮件成功!”
.否则
    状态标签.标题 ＝ 发送结果
.如果结束

Answer 2

你好，源码已经发送上来，虽然你已经采纳，但是我帮你完成了这个软件工程，下次有问题欢迎再次提问，谢谢