| 以文本方式查看主题 - Foxtable(狐表) (http://foxtable.com/bbs/index.asp) -- 专家坐堂 (http://foxtable.com/bbs/list.asp?boardid=2) ---- 邮件 (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=49437) |
| -- 作者：qianqian1530 -- 发布时间：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("测试!") 一个个甜的话可以正常发送， 但是 变成上面的代码， 就无法收到了， 这是为什么呢？
|
| -- 作者：有点甜 -- 发布时间：2014/4/17 20:56:00 -- 肯定是对应的值写错了吧？
你加入这句代码 msgbox(m.Host & "|" & m.Port & "|" & m.Account & "|" & m.Password & "|" & m.From) 看看对应的值是否正确 |