如何發送電子郵件在vb.net windows應用程序2010年，通過SMTP服務器使用Gmail憑證

Question

我想在我的VB.Net Windows應用程序（VS 2010）發送電子郵件，但我正在逐漸

SMTP找不到主機

我的代碼如下，

Dim SmtpServer As New SmtpClient() 
SmtpServer.Credentials = New Net.NetworkCredential("mymailid@gmail.com", "mypassword") 
SmtpServer.Port = 25 
SmtpServer.Host = "smtp.gmail.com" 
SmtpServer.EnableSsl = True 
mail = New MailMessage() 
Dim addr() As String = TextBox1.Text.Split(",") 
Try 
    mail.From = New MailAddress("mymailid@gmail.com", "Developers", System.Text.Encoding.UTF8) 
    Dim i As Byte 
    For i = 0 To addr.Length - 1 
     mail.To.Add(addr(i)) 
    Next 
    mail.Subject = TextBox3.Text 
    'mail.Body = TextBox4.Text 
    If ListBox1.Items.Count <> 0 Then 
     For i = 0 To ListBox1.Items.Count - 1 
      mail.Attachments.Add(New Attachment(ListBox1.Items.Item(i))) 
     Next 
    End If 
    SmtpServer.SendAsync(mail, mail.Subject) 

Answer 1

嘗試設置SmtpServer.Port到587 ...

Dim SmtpServer As New SmtpClient("smtp.gmail.com", 587) 
Dim mail As New MailMessage("sender address", "destination address", "subject", "body") 
SmtpServer.Credentials = New Net.NetworkCredential("username/sender address","password") 
SmtpServer.Send(Mail) 

Answer 2

僅用於測試，我已經很快寫了這段代碼，成功地發送 電子郵件到我的測試帳戶。僅供參考，我在SmtpServer.SendAsync函數中發送第二個參數爲Nothing 。我想你可以快速看看如何在ASYNC environemnt中實現它。

嘗試

 Dim SmtpServer As New SmtpClient() 
     SmtpServer.Credentials = New Net.NetworkCredential("EMAIL FROM@gmail.com", "YOUR PASSWORD") 
     SmtpServer.Port = 25 
     SmtpServer.Host = "smtp.gmail.com" 
     SmtpServer.EnableSsl = True 
     Dim omail As New MailMessage() 


     omail.From = New MailAddress("FROM EMAIL @gmail.com", "Asfand Iqbal", System.Text.Encoding.UTF8) 

     omail.Subject = "test subject" 
     omail.To.Add("test@gmail.com") 

     SmtpServer.SendAsync(omail, Nothing) 

    Catch ex As Exception 
     MsgBox(ex.ToString) 
    End Try 

Answer 3

請嘗試

Dim SmtpServer As New SmtpClient("smtp.gmail.com", 465) 
SmtpServer.EnableSsl = True 
SmtpServer.Credentials = New Net.NetworkCredential("name@gmail.com", "password") 
Dim mail As New MailMessage("name@gmail.com", "name@gmail.com", title, content) 
SmtpServer.Send(mail) 

Answer 4

Imports System.Net.Mail 
Public Class Form1 
    Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load 
     ' Set the caption bar text of the form. 
     Me.Text = "tutorialspoint.com" 
    End Sub 

    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click 
     Try 
      Dim Smtp_Server As New SmtpClient 
      Dim e_mail As New MailMessage() 
      Smtp_Server.UseDefaultCredentials = False 
      Smtp_Server.Credentials = New Net.NetworkCredential("username@gmail.com", "password") 
      Smtp_Server.Port = 587 
      Smtp_Server.EnableSsl = True 
      Smtp_Server.Host = "smtp.gmail.com" 

      e_mail = New MailMessage() 
      e_mail.From = New MailAddress(txtFrom.Text) 
      e_mail.To.Add(txtTo.Text) 
      e_mail.Subject = "Email Sending" 
      e_mail.IsBodyHtml = False 
      e_mail.Body = txtMessage.Text 
      Smtp_Server.Send(e_mail) 
      MsgBox("Mail Sent") 

     Catch error_t As Exception 
      MsgBox(error_t.ToString) 
     End Try 

    End Sub 
'Ghaffari