在vb 2010中發送郵件失敗

Question

嘗試獲取一個非常基本的程序向我發送電子郵件。 我有3個文本框。

TextBox1是一個ReadOnly TextBox，其中包含我的電子郵件TextBox2用於“您的電子郵件” TextBox3用於您的消息

還有一個按鈕（Button1），上面寫着“發送”

這是我整個項目的代碼。 為了安全起見，我刪除了此問題中的電子郵件和密碼。

當我運行程序並在TextBox2中鍵入“ Test1234@live.com”，在TextBox3中鍵入“ TestEmail1234”並按send時，它將帶我回到編碼頁面並說“未處理SmtpException。發送郵件失敗”

Imports System.Net.Mail

Public Class Form1

    Private Sub Button1_Click(sender As System.Object, e As System.EventArgs) Handles Button1.Click
        Dim smtpServer As New SmtpClient()
        Dim mail As New MailMessage()

        smtpServer.Credentials = New Net.NetworkCredential("myemail@gmail.com", "mypassword")
        'using Gmail
        smtpServer.Port = 587
        smtpServer.Host = "smtp.gmail.com"
        smtpServer.EnableSsl = True

        mail = New MailMessage()
        mail.From = New MailAddress("my email@gmail.com", TextBox1.Text)
        mail.To.Add(TextBox1.Text)
        mail.Subject = TextBox2.Text
        mail.Body = TextBox3.Text

        smtpServer.Send(mail)

    End Sub
End Class

Answer 1

有一些問題，我只給您一個工作腳本

Imports System.Net.Mail
Public Class Form1
Dim message As New MailMessage
Dim smtp As New SmtpClient
Dim instance As IDisposable


Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

    Dim Mail As New MailMessage
    Mail.Subject = "test email"
    Mail.To.Add("recieveradress@gmail.com")
    Mail.From = New MailAddress("senderadress@gmail.com")
    Mail.Body = "This is an email!"
    Dim SMTP As New SmtpClient("smtp.gmail.com")
    SMTP.EnableSsl = True
    SMTP.Credentials = New System.Net.NetworkCredential("senderaddress@gmail.com", "password")
    SMTP.Port = 587
    SMTP.Send(Mail)
    MsgBox("Sent Successfully")

End Sub
End Class