邮件 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

共有3103人关注过本帖树形打印复制链接主题：邮件

qianqian1530

小大 1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

等级：三尾狐帖子：746 积分：5567 威望：0 精华：0 注册：2013/12/4 8:56:00

邮件

Post By：2014/4/17 20:46:00 [只看该作者]

'''

Dim m As New MailSender

m.Host = e.Form.Controls("TextBox1").text

m.Port = e.Form.Controls("TextBox6").text

m.Account = e.Form.Controls("TextBox2").text

m.Password = e.Form.Controls("TextBox3").text

m.From = e.Form.Controls("TextBox7").text & "<" & e.Form.Controls("TextBox4").text & ">"

m.AddReceiver(e.Form.Controls("TextBox5").text)

m.Title = "测试"

m.C

m.SendAsync()

MessageBox.Show("测试!")

一个个甜的话可以正常发送，但是变成上面的代码，就无法收到了，这是为什么呢？

有点甜

小大 2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

等级：版主帖子：85326 积分：427815 威望：0 精华：5 注册：2012/10/18 22:13:00

Post By：2014/4/17 20:56:00 [只看该作者]

肯定是对应的值写错了吧？

你加入这句代码 msgbox(m.Host & "|" & m.Port & "|" & m.Account & "|" & m.Password & "|" & m.From) 看看对应的值是否正确

主题：邮件