Question

我正在开发一个发送HTML电子邮件的VB应用程序。我找到了这个，并且正在尝试实现它。

 'create the mail message
            Dim mail As New MailMessage()

            'set the addresses
            mail.From = New MailAddress(EmailFrom, "Display Name")
            mail.To.Add(EmailTo)

            'set the content
            mail.Subject = "Subject Line"
            mail.Body = "Message body"
            mail.IsBodyHtml = True

            'send the message
            Dim smtp As New SmtpClient("127.0.0.1")
            smtp.Send(mail)

对于此代码段，我没有传递给SmtpClient（）的参数的任何信息。

我找到了一些视频，展示了如何使用＆＃34; smtp.gmail.com＆＃34;来连接谷歌smtp。和一个特定的端口。但是，只有我的应用程序的所有用户都拥有Gmail时，这才是实用的。我不想强迫他们拥有一个，以便能够访问该功能。

你们中的任何一位专家能否根据他们的电子邮件动态选择正确的smtp服务器和端口给我一些帮助？

例如，电子邮件存储在名为email的变量中：

Dim email As String = "me@gmail.com"

这封电子邮件来自MySql数据库，那么我如何获取变量字符串并检查他们使用哪个ISP，然后让我的代码使用该ISP的正确smtp和端口？

另外，我已经读过，现在需要验证日期，因此我可能会在调用发送电子邮件的程序之前提示用户输入框。

这里有一些代码显示：

的Hotmail： Smtp.live.com 港口：587

的Gmail： smtp.gmail.com 港口：587

雅虎： smtp.mail.yahoo.com 港口：465

的Aol： smtp.aol.co.uk

港口：587

imports system.net.mail

dim Mail as new mailmessage
Try
mail.From = New MailAddress("FROM EMAIL")
mail.To.Add(TO EMAIL)
mail.Subject = "SUBJECT"
mail.Body = "BODY"
Dim s As New SmtpClient("HOST")
s.Port = PORT
s.EnableSsl = True
s.Credentials = New System.Net.NetworkCredential("FROM EMAIL, "FROM PASSWORD")
s.Send(Mail)
MsgBox("E-mail was sucsessfully sent!", MsgBoxStyle.Information, "Information")
Catch ex As Exception
End Try

我完全难过了。任何帮助将不胜感激。即使不符合第一个代码片段，我也愿意接受任何完成相同专长的想法。提前谢谢。

VB：如何使用SMTP发送电子邮件...为主要ISP

港口：587

0 个答案: