扫一扫
分享文章到微信
扫一扫
关注官方公众号
至顶头条
作者:朱先忠编译 来源:天极软件 2007年11月6日
关键字: Windows
Try '(1)创建MailMessage实例 Dim mm As New MailMessage(FromEmailAddress, ToEmailAddress) '(2)赋值MailMessage的属性 mm.Subject = "Test Email... DO NOT PANIC!!!1!!!111!!" mm.Body = "This is a test message..." mm.IsBodyHtml = False '(3)创建SmtpClient对象 Dim smtp As New SmtpClient 'SMTP设置... smtp.Host = Hostname.Text If Not String.IsNullOrEmpty(Port.Text) Then smtp.Port = Convert.ToInt32(Port.Text) End If If Not String.IsNullOrEmpty(Username.Text) Then smtp.Credentials = New NetworkCredential(Username.Text, Password.Text) End If '(4)发送MailMessage(将使用Web.config设置) smtp.Send(mm) '显示一个客户端弹出窗口,解释该该邮件已经发出 ClientScript.RegisterStartupScript(Me.GetType(), "HiMom!", String.Format("alert('An test email has successfully been sent to {0}');", ToAddress.Replace("'", "\'")), True) Catch smtpEx As SmtpException '当发送电子邮件消息时发生了一个问题 ClientScript.RegisterStartupScript(Me.GetType(), "OhCrap", String.Format("alert('There was a problem in sending the email: {0}');", smtpEx.Message.Replace("'", "\'")), True) Catch generalEx As Exception '发生另外的一些问题 ClientScript.RegisterStartupScript(Me.GetType(), "OhCrap", String.Format("alert('There was a general problem: {0}');", generalEx.Message.Replace("'", "\'")), True) End Try |
如果您非常迫切的想了解IT领域最新产品与技术信息,那么订阅至顶网技术邮件将是您的最佳途径之一。
现场直击|2021世界人工智能大会
直击5G创新地带,就在2021MWC上海
5G已至 转型当时——服务提供商如何把握转型的绝佳时机
寻找自己的Flag
华为开发者大会2020(Cloud)- 科技行者