阿里云没有开放25端口,如何配置smtp 发送邮件
Dim client As New System.Net.Mail.SmtpClient()
client.Host = "120.25.244.201" '发件箱
client.port = 465
client.Credentials = New System.Net.NetworkCredential("xluog","jhy85ggh#") '发件账号和密码
client.DeliveryMethod = System.Net.Mail.SmtpDeliveryMethod.Network
Dim message As New System.Net.Mail.MailMessage
message.From = new System.Net.Mail.MailAddress("mark@anyinet.net") '发件邮箱
message.To.Add("398699@qq.com")
message.Subject = "邮件标题"
message.BodyEncoding = System.Text.Encoding.UTF8
message.IsBodyHtml = True
Dim body As String = "<html><body>内容</body></html>"
Dim content As String = "<a href='http://www.qq.com'>打开
qq</a>"
message.Body = body.Replace("内容", content)
Try
'client.Send(message)
client.SendAsync(message,"dfdfsdfsdf")
MessageBox.Show("成功")
Catch ex As Exception
MessageBox.Show("失败")
End Try