发送邮件的代码是连接发信服务器 (“smtp.”, , “1146386938”, “密码”, )发送邮件 (编辑框1.内容, “帐号:” + 编辑框1.内容 + #换行符 + “密码:” + 编辑框2.内容, “11463869338@”, , , “1146386938@”, )另外.我想用这个程序结束指定进程后在弹出 窗口1,代码怎么写?
发邮件首先要确保你的邮箱开启了smtp服务才行
我把我以前写的一段代码给你看一下
.版本 2
.支持库 internet
.支持库 eAPI
.子程序 发邮件
.局部变量 连接, 逻辑型
.局部变量 主题, 文本型
.局部变量 结果, 文本型
.局部变量 信箱类型, 文本型
.局部变量 端口, 整数型
.局部变量 用户名, 文本型
.局部变量 密码, 文本型
.局部变量 收信人, 文本型
.局部变量 发信人, 文本型
主题 = 取计算机名 () + “:外网IP地址 = ” + 到文本 (IP地址)
信箱类型 = 读配置项 (取运行目录 () + “\自动发送IP.ini”, “连接设置”, “信箱类型”, )
端口 = 到整数 (读配置项 (取运行目录 () + “\自动发送IP.ini”, “连接设置”, “端口”, ))
用户名 = 读配置项 (取运行目录 () + “\自动发送IP.ini”, “连接设置”, “用户名”, )
密码 = 读配置项 (取运行目录 () + “\自动发送IP.ini”, “连接设置”, “密码”, )
收信人 = 读配置项 (取运行目录 () + “\自动发送IP.ini”, “发信设置”, “收信人”, )
发信人 = 读配置项 (取运行目录 () + “\自动发送IP.ini”, “发信设置”, “发信人”, )
标签3.标题 = 信箱类型
标签4.标题 = 到文本 (端口)
标签5.标题 = 用户名
标签6.标题 = 密码
标签7.标题 = 收信人
标签8.标题 = 发信人
连接 = 连接发信服务器 (信箱类型, 端口, 用户名, 密码, )
标签1.标题 = 到文本 (连接)
.如果 (连接 = 真)
结果 = 发送邮件 (主题, 主题 + #换行符 + “内网IP = ” + 取IP地址 (), 收信人, , , 发信人, )
标签2.标题 = 结果
写配置项 (取运行目录 () + “\自动发送IP.ini”, “IP地址”, “IP记录”, IP地址)
.否则
.如果结束
断开发信服务器 ()
内存优化 ()
我把我以前写的一段代码给你看一下
.版本 2
.支持库 internet
.支持库 eAPI
.子程序 发邮件
.局部变量 连接, 逻辑型
.局部变量 主题, 文本型
.局部变量 结果, 文本型
.局部变量 信箱类型, 文本型
.局部变量 端口, 整数型
.局部变量 用户名, 文本型
.局部变量 密码, 文本型
.局部变量 收信人, 文本型
.局部变量 发信人, 文本型
主题 = 取计算机名 () + “:外网IP地址 = ” + 到文本 (IP地址)
信箱类型 = 读配置项 (取运行目录 () + “\自动发送IP.ini”, “连接设置”, “信箱类型”, )
端口 = 到整数 (读配置项 (取运行目录 () + “\自动发送IP.ini”, “连接设置”, “端口”, ))
用户名 = 读配置项 (取运行目录 () + “\自动发送IP.ini”, “连接设置”, “用户名”, )
密码 = 读配置项 (取运行目录 () + “\自动发送IP.ini”, “连接设置”, “密码”, )
收信人 = 读配置项 (取运行目录 () + “\自动发送IP.ini”, “发信设置”, “收信人”, )
发信人 = 读配置项 (取运行目录 () + “\自动发送IP.ini”, “发信设置”, “发信人”, )
标签3.标题 = 信箱类型
标签4.标题 = 到文本 (端口)
标签5.标题 = 用户名
标签6.标题 = 密码
标签7.标题 = 收信人
标签8.标题 = 发信人
连接 = 连接发信服务器 (信箱类型, 端口, 用户名, 密码, )
标签1.标题 = 到文本 (连接)
.如果 (连接 = 真)
结果 = 发送邮件 (主题, 主题 + #换行符 + “内网IP = ” + 取IP地址 (), 收信人, , , 发信人, )
标签2.标题 = 结果
写配置项 (取运行目录 () + “\自动发送IP.ini”, “IP地址”, “IP记录”, IP地址)
.否则
.如果结束
断开发信服务器 ()
内存优化 ()
温馨提示:答案为网友推荐,仅供参考
第1个回答 2019-03-06
连接发信服务器最好就换成126或163的,我测试过,腾讯QQ的发信服务器是连接不到的,但可以用来做收信.
第2个回答 2019-04-27
代码正确,但QQ邮箱要受到设置开启stmp服务
第3个回答 2019-01-14
帅哥``你要知道,现在好多邮箱都收不了信了啊``
你先查清楚那种邮箱还支持SMTP收信```25端口的哦``
你先查清楚那种邮箱还支持SMTP收信```25端口的哦``
第4个回答 2019-06-10
可以上找个编程网站上看下有没有相关的源代码