主题：139邮箱发送邮件的问题

Dim m As New MailSender

Dim client As New System.Net.Mail.SmtpClient()

client.Host = "smtp.139.com" '邮箱服务器地址

client.Port = 25 '//指定 smtp 服务器的端口,默认是25,如果采用默认端口,可省去

client.Credentials = New System.Net.NetworkCredential("18312610086", "mmgk20190618") '邮箱登陆帐号密码18312610086 mmgk20190618

client.DeliveryMethod = System.Net.Mail.SmtpDeliveryMethod.Network  '//将smtp的出站方式设为 Network

Dim message As New System.Net.Mail.MailMessage

message.From = new System.Net.Mail.MailAddress("18312610086@139.com")'发件人邮箱地址

message.To.Add("13653049456@139.com")'主送收件人

message.cc.Add("13653049456@139.com")'抄送收件人

message.Subject = "邮件主题"

message.Body = "邮件内容"

Try

    client.Send(message)

    Output.Show("发送成功")

    Functions.Execute("logText","发送成功")

Catch ex As Exception

    Output.Show("发送失败:" & ex.message)

    Functions.Execute("logText","发送失败:" & ex.message)

finally

    message.Dispose()

End Try