如何实现电子邮件的自动发送?
请问如何在线发送电子邮件?
我们可以利用MailMessage和SmtpMail对象来实现这一功能。前者设定邮件的内容,后者负责发送:
<%@import namespace="system.web.uit"%>
dim mail as new mailmessage
'建立一个mailmessage对象
mail.to=收件人
mail.form=送件人
mail.subject=主题
mail.bodyformat=格式
mail.body=内容
smtpmail.send(mail)
具体代码如下:
<%@ Import Namespace="System.Web.Util" %>
收件人:
发件人:
主题:
内容:
Sub Button1_Click(sender As Object, e As EventArgs)
Dim mail As MailMessage = New MailMessage
mail.To= mailTo.Value
mail.From= mailFrom.Value
mail.Subject= mailSubject.Value
mail.BodyFormat=mail.format.text
mail.Body= mailBody.Value
' 读取表单的mailto等,分别指定给mail对象的to等属性
SmtpMail.Send(mail)
' 调用smtpmail发送
Label1.Text = "恭喜,邮件发送成功!"
End Sub
本文来源:https://www.2haoxitong.net/k/doc/176dfcccda38376baf1fae08.html
文档为doc格式