发送邮件

Dim emailFrom As Net.Mail.MailAddress = New Net.Mail.MailAddress("要发送邮件的邮箱地址")
        Dim emailTo As Net.Mail.MailAddress = New Net.Mail.MailAddress("要收信的邮箱地址")
        Dim em As Net.Mail.MailMessage = New Net.Mail.MailMessage(emailFrom, emailTo)
        em.ReplyTo = New Net.Mail.MailAddress("要发送邮件的邮箱地址")
        em.Body = "邮件内容"

        em.Subject = "标题"
        em.IsBodyHtml = True
        Dim client As Net.Mail.SmtpClient = New Net.Mail.SmtpClient()
        client.EnableSsl = False
        client.Host = "smtp.188.com" '邮箱网站的smtp
        client.Port = 25
        client.Credentials = New Net.NetworkCredential("要发送邮件的邮箱","密码")
        client.Send(em)

 

注：免费邮箱一般都限制不让此方式发送邮件，收费的vip邮箱一般都能发送成功