Foxtable(狐表)用户栏目专家坐堂 → [求助]企业邮箱设置发生无反应


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

主题:[求助]企业邮箱设置发生无反应

美女呀,离线,留言给我吧!
joe_xgp
  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:幼狐 帖子:151 积分:1306 威望:0 精华:0 注册:2013/5/13 13:28:00
[求助]企业邮箱设置发生无反应  发帖心情 Post By:2018/12/7 15:02:00 [显示全部帖子]

老师们,对企业邮箱发送,我的设置代码如下,程序运行后到消息发送,但邮件发送无反应,请大侠老师们指导,感激不尽!!!

Dim m As New MailSender
m.Host = "smtp.wxjthe.com"
m.Account = "xuguiping"
m.Password = "wxjthe-12"
m.From = "xuguiping@wxjthe.com"
m.To = "xuguiping@wxjthe.com"
m.Title = "测试"
m.content=“测试邮箱”
m.SendAsync()
messagebox.show( "邮件发送完毕!!!")
[此贴子已经被作者于2018/12/7 15:12:27编辑过]

 回到顶部
美女呀,离线,留言给我吧!
joe_xgp
  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:幼狐 帖子:151 积分:1306 威望:0 精华:0 注册:2013/5/13 13:28:00
  发帖心情 Post By:2018/12/7 16:40:00 [显示全部帖子]

有点甜老师您好,按照您的意见,我修改为m.send,结果提示发送失败。
我们的服务器信息如下,请老师指教,万分感激!!!
图片点击可在新窗口打开查看此主题相关图片如下:微信截图_20181207154235.png
图片点击可在新窗口打开查看

 回到顶部
美女呀,离线,留言给我吧!
joe_xgp
  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:幼狐 帖子:151 积分:1306 威望:0 精华:0 注册:2013/5/13 13:28:00
  发帖心情 Post By:2018/12/7 17:08:00 [显示全部帖子]

老师,我用的是foxmail软件发送的邮件,感谢!

 回到顶部
美女呀,离线,留言给我吧!
joe_xgp
  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:幼狐 帖子:151 积分:1306 威望:0 精华:0 注册:2013/5/13 13:28:00
  发帖心情 Post By:2018/12/7 20:31:00 [显示全部帖子]

有点甜老师,

贴上Foxmail的设置,代码和错误提示,万分感谢!
Dim m As New MailSender
m.Host = "smtp.wxjthe.com"
m.Account = "xuguiping"
m.Password = "wxjthe-12345"
m.From = "xuguiping@wxjthe.com"
m.To = "26389120@qq.com"
m.Title = "测试"
m.c
m.Send()

messagebox.show( "邮件发送完毕!!!")


图片点击可在新窗口打开查看此主题相关图片如下:13.jpg
图片点击可在新窗口打开查看



图片点击可在新窗口打开查看此主题相关图片如下:12.jpg
图片点击可在新窗口打开查看



图片点击可在新窗口打开查看此主题相关图片如下:11.jpg
图片点击可在新窗口打开查看
[此贴子已经被作者于2018/12/7 20:54:33编辑过]

 回到顶部
美女呀,离线,留言给我吧!
joe_xgp
  5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:幼狐 帖子:151 积分:1306 威望:0 精华:0 注册:2013/5/13 13:28:00
  发帖心情 Post By:2018/12/7 21:00:00 [显示全部帖子]

非常感谢,成功了,谢谢

 回到顶部
美女呀,离线,留言给我吧!
joe_xgp
  6楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:幼狐 帖子:151 积分:1306 威望:0 精华:0 注册:2013/5/13 13:28:00
  发帖心情 Post By:2018/12/7 21:05:00 [显示全部帖子]

有点甜老师,把账号修改“xuguiping@wxjthe.com”, 就成功了。

非常非常感谢老师的耐心指导!!!

 回到顶部
美女呀,离线,留言给我吧!
joe_xgp
  7楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:幼狐 帖子:151 积分:1306 威望:0 精华:0 注册:2013/5/13 13:28:00
  发帖心情 Post By:2018/12/7 21:12:00 [显示全部帖子]

有点蓝老师,刚才收到的是您发出的邮件呀,我以为我测试成功,万分感谢!

无私的老师们!!!

 回到顶部
美女呀,离线,留言给我吧!
joe_xgp
  8楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:幼狐 帖子:151 积分:1306 威望:0 精华:0 注册:2013/5/13 13:28:00
  发帖心情 Post By:2018/12/7 21:16:00 [显示全部帖子]

有点蓝老师,我用您的代码,运行出现如下错误,请指教,感谢!

图片点击可在新窗口打开查看此主题相关图片如下:14.jpg
图片点击可在新窗口打开查看


 回到顶部
美女呀,离线,留言给我吧!
joe_xgp
  9楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:幼狐 帖子:151 积分:1306 威望:0 精华:0 注册:2013/5/13 13:28:00
  发帖心情 Post By:2018/12/7 21:26:00 [显示全部帖子]

有点蓝老师,原来的方法也我用没成功,您的方法也没成功。 

我邮箱有个测试成功的邮件,不知是否是您测试发过来的。我以为我测试成功了!不知道哪里问题

 回到顶部
美女呀,离线,留言给我吧!
joe_xgp
  10楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:幼狐 帖子:151 积分:1306 威望:0 精华:0 注册:2013/5/13 13:28:00
  发帖心情 Post By:2018/12/7 21:45:00 [显示全部帖子]

有点蓝老师,我用你的代码运行,提升如下图片所示。


图片点击可在新窗口打开查看此主题相关图片如下:15.jpg
图片点击可在新窗口打开查看

我用下面代码运行,无提升,但接收邮箱没有收到邮件。
Dim m As New MailSender
m.Host = "smtp.wxjthe.com"
m.Account = "xuguiping"
'm.Account = "xuguiping"
m.Password = "wxjthe-12345"
m.From = "xuguiping@wxjthe.com"
m.To = "26389120@qq.com"
m.Title = "测试222"
m.c
m.SendAsync()

[此贴子已经被作者于2018/12/7 21:46:27编辑过]

 回到顶部
总数 14 1 2 下一页