Foxtable(狐表)用户栏目专家坐堂 → 这个有问题


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

主题:这个有问题

帅哥哟,离线,有人找我吗?
goldenfont
  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:小狐 帖子:389 积分:3874 威望:0 精华:0 注册:2016/4/25 17:36:00
这个有问题  发帖心情 Post By:2018/12/10 17:32:00 [只看该作者]

Dim client As New System.Net.Mail.SmtpClient()
client.Host = "smtp.qq.com"
client.Credentials = New System.Net.NetworkCredential("455189993@qq.com", "helen6849338.")
client.DeliveryMethod = System.Net.Mail.SmtpDeliveryMethod.Network
Dim message As New System.Net.Mail.MailMessage()  ----------------这句话错误,啥问题啊?

message.From = new System.Net.Mail.MailAddress("455189993@qq.com")

message.To.Add("2450314695@qq.com")
message.To.Add("2450314695@qq.com")
message.To.Add("2450314695@qq.com")

message.Subject = "邮件测试"
message.BodyEncoding = System.Text.Encoding.UTF8

'message.Bcc.Add("2450314695@qq.com") '密送

'message.cc.Add("2450314695@qq.com") '抄送

Dim content As String

content &= "这是文字" & vbcrlf
content &= "也是文字"

message.Body = content

Try
    client.Send(message)
    msgbox("发送成功")
Catch ex As Exception
    msgbox("发送失败:" & ex.message)
End Try


 回到顶部
帅哥哟,离线,有人找我吗?
goldenfont
  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:小狐 帖子:389 积分:3874 威望:0 精华:0 注册:2016/4/25 17:36:00
  发帖心情 Post By:2018/12/10 17:40:00 [只看该作者]


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

 回到顶部
帅哥哟,离线,有人找我吗?
有点甜
  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:版主 帖子:85326 积分:427815 威望:0 精华:5 注册:2012/10/18 22:13:00
  发帖心情 Post By:2018/12/10 17:47:00 [只看该作者]

这段代码没有问题,请贴出你自己的完整的代码。

 


 回到顶部