- Foxtable(狐表) (http://foxtable.com/bbs/index.asp)
-- 专家坐堂 (http://foxtable.com/bbs/list.asp?boardid=2)
---- [求助]企业邮箱设置发生无反应 (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=128459)
-- 发布时间：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编辑过]
-- 发布时间：2018/12/7 15:31:00
--
1、改成 m.send 看弹出什么错误？
2、我测试是你有效没有开启邮箱的smtp等服务吧？
-- 发布时间：2018/12/7 15:33:00
--
如果你的邮箱是可以配置foxmail等客户端发送的，请贴出对应的配置信息。
-- 发布时间：2018/12/7 16:40:00
--
有点甜老师您好，按照您的意见，我修改为m.send，结果提示发送失败。
我们的服务器信息如下，请老师指教，万分感激！！！
此主题相关图片如下：微信截图_20181207154235.png
此主题相关图片如下：微信截图_20181207154235.png-- 发布时间：2018/12/7 16:57:00
--
1、你用foxmail或者outlook或者其余什么软件可以发送邮件吗？
2、询问一下你公司的技术，是否支持客户端配置发送邮件。
-- 发布时间：2018/12/7 17:08:00
--
老师，我用的是foxmail软件发送的邮件，感谢！
-- 发布时间：2018/12/7 17:12:00
--
1、账号、密码贴出来；
2、foxmail里面的所有设置贴出来。
-- 发布时间：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编辑过]
-- 发布时间：2018/12/7 20:54:00
--
m.Account = "xuguiping" 这个填写 邮箱账号全称看看 xuguiping@wxjthe.com
-- 发布时间：2018/12/7 21:00:00
--
这种方式发送
Dim client As New System.Net.Mail.SmtpClient("smtp.wxjthe.com") \'或者465
client.Credentials = New System.Net.NetworkCredential("xuguiping@wxjthe.com", "wxjthe-12345")
client.DeliveryMethod = System.Net.Mail.SmtpDeliveryMethod.Network
Dim message As New System.Net.Mail.MailMessage()
message.From = new System.Net.Mail.MailAddress("xuguiping@wxjthe.com","xuguiping")
\'message.To.Add(new System.Net.Mail.MailAddress("2450314695@qq.com","人名"))
message.To.Add("26389120@qq.com")
message.Subject = "邮件测试"
message.BodyEncoding = System.Text.Encoding.UTF8
Dim content As String = "邮件测试"
message.Body = content
Try
client.Send(message)
msgbox("发送成功")
Catch ex As Exception
msgbox("发送失败:" & ex.message)
End Try