Hani Mustafa Ответов: 3

Как я могу отправить электронное письмо с помощью VB.NET код?

How can i send an email using vb.net code?


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

How can i send an email using vb.net code?

3 Ответов

Рейтинг:
24

Simon_Whale

следующая ссылка показывает, как отправлять электронную почту через smtp-сервер

Как отправить электронное письмо от VB.NET[^]

Hani Mustafa

это нормально, но при отправке письма появляется исключение, как показано ниже:

Дополнительная информация: SMTP-сервер требует безопасного подключения или клиент не прошел проверку подлинности. Ответ сервера был следующим: 5.7.0 сначала должен выдать команду STARTTLS. o9sm1372607wrm.88 - gsmtp

Simon_Whale

Прочтите об этом https://stackoverflow.com/questions/2766928/how-to-set-username-and-password-for-smtpclient-object-in-net. Я знаю, что он находится в C#, но он должен дать вам то, что вам нужно для установки учетных данных

Рейтинг:
15

OriginalGriff

Видеть здесь: Отправка электронной почты в C# с вложениями или без них: общая процедура.[^]
Код-C#, но это довольно очевидно и онлайн-конвертеры, такие как этот Преобразователь кода C# в VB и VB в C# – Telerik[^] поможет, если вы действительно не можете справиться.

Рейтинг:
0

Robert Bettinelli

Вам придется добавить несколько ресурсов для получения информации по электронной почте.. И передайте субмарине кое-какую информацию .. Но это должно справиться с тем, что вы ищете.. Убедитесь, что ваш почтовый сервер может принимать количество отправляемых писем, иначе он может испортиться. Но это работает в производстве. 

Public Sub SendMailMessage(ByVal recepients As List(Of String), ByVal subject As String, ByVal body As String, Optional fle As List(Of String) = Nothing)
       ' Instantiate a new instance of MailMessage
       ' Set the sender address of the mail message
       Dim mMailMessage As New MailMessage() With {
           .From = New MailAddress(My.Resources.AdminEmailUserName + "@domain.com")
       }
       ' Set the recepient address of the mail message
       For Each r As String In recepients
           mMailMessage.To.Add(New MailAddress(r))
       Next

       ' Set the subject of the mail message
       mMailMessage.Subject = Mid(subject, 1, 50)
       ' Set the body of the mail message
       mMailMessage.Body = body

       If fle IsNot Nothing Then
           For x As Integer = 0 To fle.Count - 1
               If Not String.IsNullOrEmpty(fle.Item(x)) Then
                   mMailMessage.Attachments.Add(New Attachment(fle.Item(x)))
               End If
           Next
       End If

       ' Set the format of the mail message body as HTML
       mMailMessage.IsBodyHtml = True
       ' Set the priority of the mail message to normal
       mMailMessage.Priority = MailPriority.Normal

       ' Instantiate a new instance of SmtpClient
       'mSmtpClient.EnableSsl = True
       Dim mSmtpClient As New SmtpClient() With {
           .Host = My.Resources.ExchServer,
           .Port = 587,
           .Credentials = New NetworkCredential(My.Resources.AdminEmailUserName, My.Resources.AdminEmailPassword)
       }
       ' Send the mail message
       mSmtpClient.Send(mMailMessage)


   End Sub