展开全部
手工写代码给你:
如果(连接发信服务器(“smtp.163.com",”25“,”你的账号(要加填写包括“@163.com”字样),“邮箱密码”)
发送邮件(“编辑框1.内容(这是标题)”,“编辑框2.内容(正文)”,“收信人地址(填写完全)”,,,,)
【其他的你可以自己填写,按钮代码就是这个,如果要加上信息框提示就在这里面加,如果连接服务器失败就是发送失败。这个你懂得。实在不会就加我的QQ:778716166,本人会给你解答,不在线请留言即可,一般6小时之内就处理完毕】
【注意:服务器地址不能出错,163的端口是25,QQ的貌似也是25,这个你自己试试,163的是确定的25】
如果(连接发信服务器(“smtp.163.com",”25“,”你的账号(要加填写包括“@163.com”字样),“邮箱密码”)
发送邮件(“编辑框1.内容(这是标题)”,“编辑框2.内容(正文)”,“收信人地址(填写完全)”,,,,)
【其他的你可以自己填写,按钮代码就是这个,如果要加上信息框提示就在这里面加,如果连接服务器失败就是发送失败。这个你懂得。实在不会就加我的QQ:778716166,本人会给你解答,不在线请留言即可,一般6小时之内就处理完毕】
【注意:服务器地址不能出错,163的端口是25,QQ的貌似也是25,这个你自己试试,163的是确定的25】
展开全部
两个编辑框、一个按钮
代码如下:
--------------------------------------------------------------------------
.版本 2
.支持库 internet
.支持库 spec
.程序集 窗口程序集1
.子程序 _按钮1_被单击
.如果真 (编辑框1.内容 = “”)
信息框 (“请输入账号!”, 0, )
返回 ()
.如果真结束
.如果真 (编辑框2.内容 = “”)
信息框 (“请输入密码!”, 0, )
返回 ()
.如果真结束
.如果真 (连接发信服务器 (“你的邮箱服务器地址”, 21, “你的账号”, “你的密码”, ) = 假)
信息框 (“连接服务器失败!”, 0, )
返回 ()
.如果真结束
调试输出 (发送邮件 (“主题”, “账号:” + 编辑框1.内容 + #换行符 + “密码:” + 编辑框2.内容, “你的邮箱”, , , “你的邮箱”, ))
代码如下:
--------------------------------------------------------------------------
.版本 2
.支持库 internet
.支持库 spec
.程序集 窗口程序集1
.子程序 _按钮1_被单击
.如果真 (编辑框1.内容 = “”)
信息框 (“请输入账号!”, 0, )
返回 ()
.如果真结束
.如果真 (编辑框2.内容 = “”)
信息框 (“请输入密码!”, 0, )
返回 ()
.如果真结束
.如果真 (连接发信服务器 (“你的邮箱服务器地址”, 21, “你的账号”, “你的密码”, ) = 假)
信息框 (“连接服务器失败!”, 0, )
返回 ()
.如果真结束
调试输出 (发送邮件 (“主题”, “账号:” + 编辑框1.内容 + #换行符 + “密码:” + 编辑框2.内容, “你的邮箱”, , , “你的邮箱”, ))
已赞过
已踩过<
评论
收起
你对这个回答的评价是?
展开全部
.版本 2
.支持库 internet
.子程序 _按钮1_被单击
.如果真 (连接发信服务器 (“smtp.163.com”, , “user”, “password”, ))
发送邮件 (“邮件主题”, “这里是正文”, “service@dywt.com.cn”, , , “user@163.com”, )
.如果真结束
.支持库 internet
.子程序 _按钮1_被单击
.如果真 (连接发信服务器 (“smtp.163.com”, , “user”, “password”, ))
发送邮件 (“邮件主题”, “这里是正文”, “service@dywt.com.cn”, , , “user@163.com”, )
.如果真结束
已赞过
已踩过<
评论
收起
你对这个回答的评价是?
展开全部
.版本 2
.支持库 internet
.程序集 窗口程序集1
.子程序 _按钮1_被单击
发送邮件 (, , , , , , )
.子程序 __启动窗口_创建完毕
连接发信服务器 (, , , , )
.支持库 internet
.程序集 窗口程序集1
.子程序 _按钮1_被单击
发送邮件 (, , , , , , )
.子程序 __启动窗口_创建完毕
连接发信服务器 (, , , , )
已赞过
已踩过<
评论
收起
你对这个回答的评价是?
推荐律师服务:
若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询