Vb.net Smtp邮件发送超时 导入系统.Web 导入System.IO 导入System.Net.Mail 公开课表格1 私有子按钮1\u单击（发送者作为对象，e作为事件参数）处理按钮1。单击 Dim num作为整数=0 将intLoopIndex=0转换为.To

Smtp邮件发送超时

导入系统.Web
导入System.IO
导入System.Net.Mail
公开课表格1
私有子按钮1\u单击（发送者作为对象，e作为事件参数）处理按钮1。单击
Dim num作为整数=0
将intLoopIndex=0转换为.ToInt32（TextBox5.Text）
将邮件设置为新邮件消息
Dim SmtpServer作为新的SmtpClient
SmtpServer.Credentials=新的Net.NetworkCredential（TextBox3.Text，TextBox4.Text）
SmtpServer.Port=465
SmtpServer.Host=“smtprelay.gmail.com”
SmtpServer.EnableSsl=False
如果ComboBox1.SelectedItem=“AT&T”，则
mail.To.Add（TextBox1.Text+“@txt.att.net”）
mail.From=新邮件地址（TextBox3.Text）
mail.Subject=TextBox2.Text
mail.Body=RichTextBox1.Text
SmtpServer.Send（mail）'超时异常应包含其他详细信息。此外，请尝试使用telnet进行连接，以验证配置是否正确。（gmail使用端口587和主机smtp.gmail.com）开始时，执行此操作
尝试SmtpServer.Send（mail）Catch（例如异常）MessageBox.Show（例如ToString（））Debug.WrtiteLine（例如ToString（））End Try
。然后将全文添加到您的问题中。另外，请参见此
http://ithoughthecamewithyou.com/post/sending-email-via-gmail-in-cnet-using-smtpclient
Imports System.Web
Imports System.IO
Imports System.Net.Mail
Public Class Form1

Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
    Dim num As Integer = 0
    For intLoopIndex = 0 To Convert.ToInt32(TextBox5.Text)
        Dim mail As New MailMessage
        Dim SmtpServer As New SmtpClient
        SmtpServer.Credentials = New Net.NetworkCredential(TextBox3.Text, TextBox4.Text)
        SmtpServer.Port = 465
        SmtpServer.Host = "smtp-relay.gmail.com"
        SmtpServer.EnableSsl = False

        If ComboBox1.SelectedItem = "AT&T" Then
            mail.To.Add(TextBox1.Text + "@txt.att.net")
            mail.From = New MailAddress(TextBox3.Text)
            mail.Subject = TextBox2.Text
            mail.Body = RichTextBox1.Text
            SmtpServer.Send(mail) '<-- times out here

        ElseIf ComboBox1.SelectedItem = "7-11 Speakout" Then
            mail.To.Add(TextBox1.Text + "@cingularme.com")
            mail.From = New MailAddress(TextBox3.Text)
            mail.Subject = TextBox2.Text
            mail.Body = RichTextBox1.Text
            SmtpServer.Send(mail) '<-- times out here
        End If
        num = num + 1
        Label1.Text = num
    Next intLoopIndex
End Sub

Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click
    Process.Start("http://www.fonefinder.net/")
End Sub
End Class