VB.NET Email SMTP简单发邮件

使用SMTP非常简单，要加入的头文件

Imports System.Net.Mail
Imports System.Runtime.InteropServices

密码不是邮箱登陆密码！

密码不是邮箱登陆密码！

密码不是邮箱登陆密码！

重要的事情说三遍，登陆个人邮箱，在邮箱管理的STMP开启后，会短信验证发给你密码

用163邮箱 ，QQ邮箱实验通过。不设置端口号，也能发送成功。。。不明不白。。。

记得登陆自己的邮箱，打开SMTP, 并获取密码

Imports System.Net.Mail
Imports System.Runtime.InteropServices
Public Class Form1
    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click

        If InternetConnectionCheck.IsInternetConnected = False Then '
            MessageBox.Show("没连上internet！")
        ElseIf My.Computer.Network.IsAvailable = False Then
            MessageBox.Show("网络错误！")
        Else
            Call SMTPemail() ' () ’SendMail
        End If

    End Sub
    Private Sub SMTPemail()
        Dim e_mail As New MailMessage()
        Try
            Dim Smtp_Server As New SmtpClient

            Smtp_Server.UseDefaultCredentials = False
            Smtp_Server.Credentials = New Net.NetworkCredential("[email protected]", "你自己的STMP密码") '
            Smtp_Server.Port = 25
            Smtp_Server.EnableSsl = True
            Smtp_Server.Host = "smt