Dim m As New MailSender
m.Host = "smtphz.qiye.163.com"
m.EnableSsl = True '必须将EnableSsl属性设置为True
Dim txt As String = e.Form.Controls("TextBox1").Text
Dim txt1 As String = e.Form.Controls("TextBox2").Text
Dim txt2 As String = e.Form.Controls("TextBox3").Text
Dim txt3 As String = e.Form.Controls("TextBox4").Text
m.Account = txt
m.Password = txt1
m.From = txt
m.To = txt2
m.Title = "初稿已经完成"
m.C
For Each u As String In txt3 .split(",")
Dim u1 As String = "d:\" & u
m.AddAttachments(u1)
Next
m.Send()
执行起来没反应，麻烦老师帮忙修改下，谢谢！
加好友 
发短信
Post By：2021/11/22 13:32:00 [显示全部帖子]
