1

私に電子メールを送信するための非常に基本的なプログラムを取得しようとしています。私は3つのテキストボックスを持っています。

TextBox1 は私のメールが入った読み取り専用の TextBox です TextBox2 は「あなたのメール」用です TextBox3 はあなたのメッセージ用です

そして、「送信」と言うボタン（Button1）があります

これが私のプロジェクト全体のコードです。セキュリティ上の理由から、この質問のメールアドレスとパスワードを削除しました。

プログラムを実行し、TextBox2 に「Test1234@live.com」、TextBox3 に「TestEmail1234」と入力して [送信] を押すと、コーディング ページに戻り、「SmtpException was unhandled. Failure sent mail」と表示されます。

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
4

1 に答える 1

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
于 2012-12-06T00:10:13.400 に答える