易语言发送图片

来源:百度知道 编辑:UC知道 时间:2024/05/09 03:44:14
用易语言写个发信代码,可怎么用这个发信代码发送图片呢
不好意思,我做的是易语言发信(易语言邮箱发信)

连接发信服务器(发信邮件服务器地址,〔端口号〕,〔用户名〕,〔密码〕,〔最长等待时间〕)

添加附件文件(欲添加的附件文件)

文本型 发送邮件(主题,正文,收信人邮件地址,〔抄送邮件地址〕,〔暗送邮件地址〕,发信人邮件地址,〔回复邮件地址〕)

三个命令前加上如果真来判断,都是返回逻辑型数据,真或假,如有不懂可以问我
33430685

.版本 2

.程序集 窗口程序集1
.程序集变量 文件号
.程序集变量 客户, 文本型
.程序集变量 头, 字节集
.程序集变量 文件大小

.子程序 _按钮1_被单击
.局部变量 临时, 文本型, , "0"
.局部变量 文件名, 文本型
.局部变量 文件名长

文件号 = 打开文件 (编辑框1.内容, #读入, )
临时 = 分割文本 (编辑框1.内容, “\”, )
文件名 = 临时 [取数组成员数 (临时)]
文件名长 = 取字节集长度 (到字节集 (文件名))
文件大小 = 取文件长度 (文件号)
移到文件首 (文件号)
头 = 到字节集 (“^&*”)
输出调试文本 (到文本 (取读写位置 (文件号)))
.判断开始 (取文件长度 (文件号) ≤ 1000)
服务器1.发送数据 (客户, 头 + 到字节集 (取文件长度 (文件号)) + 头 + 到字节集 (文件名长) + 头 + 到字节集 (文件名) + 头 + 读入字节集 (文件号, 取文件长度 (文件号)), )

.判断 (取文件长度 (文件号) - 取读写位置 (文件号) ≥ 1000)
服务器1.发送数据 (客户, 头 + 到字节集 (取文件长度 (文件号)) + 头 + 到字节集 (文件名长) + 头 + 到字节集 (文件名) + 头 + 读入字节集 (文件号, 1000), )

.默认
服务器1.发送数据 (客户, 头 + 到字节集 (取