0

これが私のコードです（はい、メール/パスワードを検閲しました）（ボタンをクリックしたとき）

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

SMTPサーバーに安全な接続が必要であるか、クライアントが認証されていません。サーバーの応答は次のとおりです。5.5.1認証が必要です。詳細については、（役に立たないリンク）をご覧ください。

4

2 に答える 2

1

解決しました！私は決して推測しなかったでしょう。アカウントがハッキングされたため、Googleは私のアカウントの使用を許可しませんでした。コードを書いているときにハッキングされたようです...

于 2012-11-29T00:42:12.777 に答える
0

参考までに、より安全なバージョンは

    Using mail As MailMessage = New MailMessage
        mail.Subject = "test email"
        mail.To.Add("*****")
        mail.From = New MailAddress("*****") '
        mail.Body = "This is an email!"
        Using smtp As New SmtpClient("smtp.gmail.com")
            smtp.EnableSsl = True
            smtp.Credentials = New System.Net.NetworkCredential("*****", "*****")
            smtp.Port = 587
            smtp.Send(mail)
        End Using
    End Using
    MsgBox("Sent Successfully")

これにより、例外が発生したかどうかに関係なく、オブジェクトが確実にクリーンアップされmailます。smtp

于 2012-11-28T03:46:23.210 に答える