无法从用 vb.net 编写的 Webservice 发送电子邮件

Question

我想从我的网络服务发送一封电子邮件，用 vb.net 编写，但我收到了超时。 怎么了？

                    Dim toaddress As MailAddress = New MailAddress("xxx")
                    Dim fromaddress As MailAddress = New MailAddress("yyy")
                    ' The structure for MailMessage(from, to)
                    Dim message As MailMessage = New MailMessage(fromaddress, toaddress)

                    message.Subject = "I have sent you a message from a program!"
                    message.Body = "Hello World!"

                    Dim messanger As SmtpClient = New SmtpClient("smtpxxx", 995)

                    messanger.Credentials = New NetworkCredential("user", "password")
                    messanger.EnableSsl = True

                    messanger.Send(message)

Answer 1

你做错了很多事情，你提供的一些信息不够清楚。 主机名和端口名必须正确给出。 它选择您正在使用的邮件服务，从您的代码中它没有正确提供，所以我将给出一个使用 gmail 发送邮件的片段。 请完成此操作并根据您的SmtpHost进行更改。

     Try
        Dim Smtp_Server As New SmtpClient
        Dim e_mail As New MailMessage()
        Smtp_Server.UseDefaultCredentials = False
        Smtp_Server.Credentials = New Net.NetworkCredential("email", "password")
        Smtp_Server.Port = 587
        Smtp_Server.EnableSsl = True
        Smtp_Server.Host = "smtp.gmail.com"

        e_mail = New MailMessage()
        e_mail.From = New MailAddress(txtemail.Text)
        e_mail.To.Add(txtemail.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

此链接可帮助您找到smtp.Server 和端口号，您可以使用此线程检查 smtp.servers 的限制