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