如何在 vb.net 中发送 Gmail 电子邮件？

How do I send a gmail email in vb.net?

提问by Arbitur

I want to send an email, but it gives me an error.

我想发送电子邮件，但它给了我一个错误。

I have this code:

我有这个代码：

Sub sendMail(ByVal title As String, ByVal content As String)
    Dim SmtpServer As New SmtpClient("smtp.gmail.com", 25)
    SmtpServer.Credentials = New Net.NetworkCredential("[email protected]", "password")
    Dim mail As New MailMessage("[email protected]", "[email protected]", title, content)
    SmtpServer.Send(mail)
End Sub

I have a try catch which tries to call this method, it doesnt work so the catch runs and i get thes exception: System.Net.Mail.SmtpException: The SMTP server requires a secure connection or the client was not authenticated. The server response was: 5.7.0 Must issue a STARTTLS command first. b6sm3176487lae.0 - gsmtpWhy do I get this error? and how do I fix it?

我有一个尝试调用这个方法的 try catch，它不起作用，所以 catch 运行，我得到了这些异常：System.Net.Mail.SmtpException: The SMTP server requires a secure connection or the client was not authenticated. The server response was: 5.7.0 Must issue a STARTTLS command first. b6sm3176487lae.0 - gsmtp为什么我会收到这个错误？我该如何解决？

回答by pspet

Gmail uses SMTP over SSL on port 465.

Gmail 在端口 465 上使用 SMTP over SSL。

Try doing:

尝试做：

  Dim SmtpServer As New SmtpClient("smtp.gmail.com", 465)
  ...
  SmtpServer.EnableSsl = True
  ...

回答by nick

Try this - I know it works.

试试这个 - 我知道它有效。

    Dim Mail As New MailMessage
    Dim SMTP As New SmtpClient("smtp.gmail.com")

    Mail.Subject = "Security Update"
    Mail.From = New MailAddress("[email protected]")
    SMTP.Credentials = New System.Net.NetworkCredential("[email protected]", "password") '<-- Password Here

    Mail.To.Add(address & "@gmail.com") 'I used ByVal here for address

    Mail.Body = "" 'Message Here

    SMTP.EnableSsl = True
    SMTP.Port = "587"
    SMTP.Send(Mail)

回答by Djoko Trbovic

There is some problem with google account, you need to switch off some security settings. After sending email over and over, I received email on one of my support account (for google), the email were:

谷歌账户有问题，您需要关闭一些安全设置。一遍又一遍地发送电子邮件后，我在我的一个支持帐户（谷歌）上收到了电子邮件，电子邮件是：

You recently changed your security settings so that your Google Account [[email protected]] is no longer protected by modern security standards. 

If you did not make this change 
Please review your Account Activity page at https://security.google.com/settings/security/activity to see if anything looks suspicious. Whoever made the change knows your password; we recommend that you change it right away. 

If you made this change 
Please be aware that it is now easier for an attacker to break into your account. You can make your account safer again by undoing this change at https://www.google.com/settings/security/lesssecureapps then switching to apps made by Google such as Gmail to access your account.   
Sincerely,
The Google Accounts team 

So I switched of additional security and i worked fine.

所以我切换了额外的安全性，我工作得很好。

回答by kiruri

Change the port to 587. Port 25 does not support SSL.

将端口更改为 587。端口 25 不支持 SSL。

回答by EDX

A super easy way of doing this(without changing any security settings) is by using IFTTTand my IFTTT Maker.net libary

一个超级简单的方法（不改变任何安全设置）是使用IFTTT和我的IFTTT Maker.net 库

First, in IFTTT create a new recipe that's triggered by the Maker channel and name the event "send_gmail".

首先，在 IFTTT 中创建一个由 Maker 频道触发的新配方，并将事件命名为“send_gmail”。

Then, select the Gmail engine and click "Send an email", and replace To with {{value1}}, subject with {{value2}} and message/body with {{value3}}

然后，选择 Gmail 引擎并点击“发送电子邮件”，将收件人替换为 {{value1}}，主题替换为 {{value2}}，邮件/正文替换为 {{value3}}

After that, in Visual studio, add ifttt.vb to your project. Now for the code:

之后，在 Visual Studio 中，将 ifttt.vb 添加到您的项目中。现在的代码：

      Try
    makechannel.scode = "your account ID"
    makechannel.fireevent("send_gmail", "TO", "SUBJECT", "MESSAGE")
   'code goes here if done
    Catch ex As Exception
        'code goes here if it fails
    End Try

Then fill in your account ID. You can find it at ifttt.com/maker

然后填写您的帐户ID。您可以在 ifttt.com/maker 上找到它

And that's it!

就是这样！

回答by GGSoft

I Have written the class which can perform this task easyly.

我已经编写了可以轻松执行此任务的类。

Imports System.Net.Mail
Public Class GGSMTP_GMAIL
    Dim Temp_GmailAccount As String
    Dim Temp_GmailPassword As String
    Dim Temp_SMTPSERVER As String
    Dim Temp_ServerPort As Int32
    Dim Temp_ErrorText As String = ""
    Dim Temp_EnableSSl As Boolean = True
    Public ReadOnly Property ErrorText() As String
        Get
            Return Temp_ErrorText
        End Get
    End Property
    Public Property EnableSSL() As Boolean
        Get
            Return Temp_EnableSSl
        End Get
        Set(ByVal value As Boolean)
            Temp_EnableSSl = value
        End Set
    End Property
    Public Property GmailAccount() As String
        Get
            Return Temp_GmailAccount
        End Get
        Set(ByVal value As String)
            Temp_GmailAccount = value
        End Set
    End Property
    Public Property GmailPassword() As String
        Get
            Return Temp_GmailPassword
        End Get
        Set(ByVal value As String)
            Temp_GmailPassword = value
        End Set
    End Property
    Public Property SMTPSERVER() As String
        Get
            Return Temp_SMTPSERVER
        End Get
        Set(ByVal value As String)
            Temp_SMTPSERVER = value
        End Set
    End Property
    Public Property ServerPort() As Int32
        Get
            Return Temp_ServerPort
        End Get
        Set(ByVal value As Int32)
            Temp_ServerPort = value
        End Set
    End Property
    Public Sub New(ByVal GmailAccount As String, ByVal GmailPassword As String, Optional ByVal SMTPSERVER As String = "smtp.gmail.com", Optional ByVal ServerPort As Int32 = 587, Optional ByVal EnableSSl As Boolean = True)
        Temp_GmailAccount = GmailAccount
        Temp_GmailPassword = GmailPassword
        Temp_SMTPSERVER = SMTPSERVER
        Temp_ServerPort = ServerPort
        Temp_EnableSSl = EnableSSl
    End Sub
    Public Function SendMail(ByVal ToAddressies As String(), ByVal Subject As String, ByVal BodyText As String, Optional ByVal AttachedFiles As String() = Nothing) As Boolean
        Temp_ErrorText = ""
        Dim Mail As New MailMessage
        Dim SMTP As New SmtpClient(Temp_SMTPSERVER)
        Mail.Subject = Subject
        Mail.From = New MailAddress(Temp_GmailAccount)
        SMTP.Credentials = New System.Net.NetworkCredential(Temp_GmailAccount, Temp_GmailPassword) '<-- Password Here
        Mail.To.Clear()
        For i As Int16 = 0 To ToAddressies.Length - 1
            Mail.To.Add(ToAddressies(i))
        Next i
        Mail.Body = BodyText
        Mail.Attachments.Clear()

        If AttachedFiles IsNot Nothing Then
            For i As Int16 = 0 To AttachedFiles.Length - 1
                Mail.Attachments.Add(New Attachment(AttachedFiles(i)))
            Next
        End If

        SMTP.EnableSsl = Temp_EnableSSl
        SMTP.Port = Temp_ServerPort

        Try
            SMTP.Send(Mail)
            Return True
        Catch ex As Exception
            Me.Temp_ErrorText = ex.Message.ToString
            Return False
        End Try

    End Function
End Class

Its the way, how to use class:

它的方式，如何使用类：

 Dim GGmail As New GGSMTP_GMAIL("[email protected]", "AccPassword", )

        Dim ToAddressies As String() = {"[email protected]", "[email protected]"}
        Dim attachs() As String = {"d:\temp_Excell226.xlsx", "d:\temp_Excell224.xlsx", "d:\temp_Excell225.xlsx"}
        Dim subject As String = "My TestSubject"
        Dim body As String = "My text goes here ...."
        Dim result As Boolean = GGmail.SendMail(ToAddressies, subject, body, attachs)
        If result Then
            MsgBox("mails sended successfully", MsgBoxStyle.Information)
        Else
            MsgBox(GGmail.ErrorText, MsgBoxStyle.Critical)
        End If 

Hope this helps. Good coding

希望这可以帮助。良好的编码