Anjani Rawat Ответов: 2

Как отправить почту через SMTP-сервер gmail с помощью VB.NET


Когда я отправляю почту, она выдает ошибку "сбой отправки почты".
Пожалуйста, Помогите !
Я также пытался изменить порт нет, но не работает.
Любой будет оценен по достоинству, заранее спасибо

Что я уже пробовал:

Dim клиент как новый SmtpClient()
Дим, как отправить новый почтовый адрес(обрезать(txtreceiver.Текст))
Дим от А почтовый адрес = новый адрес электронной почты(обрезать(txtUsername.Текст))
Тусклое Сообщение Как Новый MailMessage(from, sendTo)
сообщение.IsBodyHtml = True
сообщение.Тема = отделка(txtsubject.Текст)
сообщение.Тело = отделка(txtrichmsgbody.Текст)
'Используйте ту же учетную запись в приложение.config для проверки подлинности.
клиент.Хост = "smtp.gmail.com"
клиент.EnableSsl = True
Дим basicAuthenticationInfo, так как новая система.Нет.А networkcredential ("Трим" (txtUsername.Текст), отделка(txtPassword.Текст))
клиент.UseDefaultCredentials = False
клиент.Учетные данные = basicAuthenticationInfo
клиент.Порт = 567


Попробуй
клиент.Отправить сообщение)
MsgBox("e-mail Send Successfully", MsgBoxStyle.Информация)
Поймать ex как исключение
MsgBox ("ошибка отправки электронной почты", MsgBoxStyle.Критический)
Конец Попытки

Richard MacCutchan

Существует множество статей, объясняющих, как отправлять электронные письма через приложения .NET. Однако вам также необходимо использовать SMTP-сервер, на который у вас есть разрешение, не думайте, что gmail примет ваши запросы.

Anjani Rawat

Итак, как бы я мог получить разрешения от g mail для завершения своей работы

Richard MacCutchan

Извините, я не понимаю. вам необходимо использовать авторизованный SMTP-сервер, то есть тот, которым владеет или на котором зарегистрирована ваша компания.

2 Ответов

Рейтинг:
2

Member 13227749

kjljkljk

<code>><a href=""></a></code>


[no name]

Вы прошли через все трудности, чтобы присоединиться к сайту только для того, чтобы публиковать такой мусор? Отлично сработано. Приятного вам короткого пребывания.

Рейтинг:
1

manu_dhobale

Пожалуйста, попробуйте добавить следующие строки

Dim NetworkCred As New NetworkCredential(Trim(txtUsername.Text),Trim(txtPassword.Text))
client.UseDefaultCredentials = True
client.Credentials = NetworkCred
client.Port = 587