我要评论如何实现电子邮件的自动发送？
<%@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" %>
<html>
<head>
<title>千花飞舞之电子邮件发送</title>
</head>
<body bgcolor="white">
<form runat="server">
<table border=1>
<tr><td>收件人：</td>
<td><input type="text" id="mailto" size=40 runat="server"/></td></tr>
<tr><td>发件人：</td>
<td><input type="text" id="mailfrom" size=40 runat="server"/></td></tr>
<tr><td>主题:</td>
<td><input type="text" id="mailsubject" size=40 runat="server"/></td></tr>
<tr><td>内容:</td>
<td><textarea id="mailbody" rows=8 cols=60 runat="server">
</textarea>
</td></tr>
</table>
<input type="button" value="立即发送" id="button1" onserverclick="button1_click" runat="server"/>
</form>
<asp:label id="label1" runat="server"/>
</body></html>
<script language="vb" runat="server">
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
</script>
[1]
发表评论