Foxtable(狐表)用户栏目专家坐堂 → 邮件发送


  共有2358人关注过本帖树形打印复制链接

主题:邮件发送

帅哥哟,离线,有人找我吗?
熊正义
  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:婴狐 帖子:19 积分:311 威望:0 精华:0 注册:2016/3/29 16:35:00
邮件发送  发帖心情 Post By:2019/4/4 9:42:00 [显示全部帖子]


[此贴子已经被作者于2019/4/4 9:43:52编辑过]

 回到顶部
帅哥哟,离线,有人找我吗?
熊正义
  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:婴狐 帖子:19 积分:311 威望:0 精华:0 注册:2016/3/29 16:35:00
  发帖心情 Post By:2019/4/4 9:43:00 [显示全部帖子]


此主题相关图片如下:1.png
按此在新窗口浏览图片
按帮助操作要求,我设置了如下 代码,为什么邮件发送不出去了?也没有报错
用的是腾讯云邮箱,现在是IMAP,这个怎么设置呢?我直接加了一个m.Port="465",也发不出
截图如下:
此主题相关图片如下:2.png
按此在新窗口浏览图片

 回到顶部
帅哥哟,离线,有人找我吗?
熊正义
  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:婴狐 帖子:19 积分:311 威望:0 精华:0 注册:2016/3/29 16:35:00
  发帖心情 Post By:2019/4/4 12:22:00 [显示全部帖子]

把sendasync改成send后报错
图片点击可在新窗口打开查看此主题相关图片如下:3.png
图片点击可在新窗口打开查看

 回到顶部
帅哥哟,离线,有人找我吗?
熊正义
  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:婴狐 帖子:19 积分:311 威望:0 精华:0 注册:2016/3/29 16:35:00
  发帖心情 Post By:2019/4/4 13:51:00 [显示全部帖子]

我用的不是QQ邮箱发送邮件哦

 回到顶部
帅哥哟,离线,有人找我吗?
熊正义
  5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:婴狐 帖子:19 积分:311 威望:0 精华:0 注册:2016/3/29 16:35:00
  发帖心情 Post By:2019/4/4 14:04:00 [显示全部帖子]

嘿嘿,你怎么老是让我设置QQ邮箱,我不打算用QQ邮箱发邮件

 回到顶部
帅哥哟,离线,有人找我吗?
熊正义
  6楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:婴狐 帖子:19 积分:311 威望:0 精华:0 注册:2016/3/29 16:35:00
  发帖心情 Post By:2019/4/8 13:49:00 [显示全部帖子]

我的代码如下:
Dim m As New MailSender
m.Host = "smtp.123456789.com"     '指定主机地址可以是域名,也可以是IP址
m.EnableSsl = True 
m.Account = "123456"                      '指定登录邮件服务器账号
m.Password = "8888888888"            '指定登录邮件服务器的密码
m.From = "postmaster@cpxmt.cn"    '指定发件的人邮箱地址
m.To = "xiongzy@cpnm.cn"               '指定收件人的邮箱地址
m.Title = "《交货需求计划表》"             '指定邮件的的标题
m.C         '指定邮件的正文内容
m.Send()
执行以上代码后出现错误如下截图
图片点击可在新窗口打开查看此主题相关图片如下:111.png
图片点击可在新窗口打开查看


 回到顶部