28,390
社区成员
发帖
与我相关
我的任务
分享求助!!请问怎样利用EasyMail发邮件?
我的空间装了EasyMail组件.
我想做一个表单,利用EasyMail来发送E-MAIL.
但不是很清楚怎样用ASP编写,各位大大帮帮我啦.
我想做一个表单,利用EasyMail来发送E-MAIL.
但不是很清楚怎样用ASP编写,各位大大帮帮我啦.
...全文
请发表友善的回复…
发表回复
TT008 2004-03-15
- 打赏
- 举报
保存为.asp
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
</head>
<body>
<table width="709" border="0" align="center" cellpadding="0" cellspacing="0">
<tr>
<td width="127" height="336" rowspan="2" align="center" bgcolor="#00FF00">
<p> </p>
<p> </p>
</td>
<td width="582" rowspan="2">
<%
Dim mailsend
Dim sender
dim dj
dim zt
dim ny
dj=request("dress")
zt=request("theme")
ny=request("sub")
sender = "邮件通知"
' 创建MailSend对象
Set mailsend = Server.CreateObject("easymail.MailSend")
'set mailsend=server.createobject("CDONTS.NewMail")
mailsend.CreateNew sender, "temp"
' 发信人名称
mailsend.MailName = "电脑"
' 收件人邮件地址
mailsend.EM_To = dj
'mailsend.to=dj
mailsend.EM_Subject = zt
'mailsend.Subject=zt
mailsend.EM_Text = ny
'mailsend.body=ny
'mailsend.useRichEditer = true
if mailsend.Send() = true then
Response.Write "您好,邮件发送成功，谢谢您的使用."
end if
Set mailsend = Nothing
%>
</td>
</tr>
<tr> </tr>
</table>
</body>
</html>
手机APP开发 2003-12-14
- 打赏
- 举报
在安装个jmail，利用jmail发邮件效果要好的多
kkkuuu 2003-12-13
- 打赏
- 举报
MailSend
Jaron 2003-08-19
- 打赏
- 举报
说明文档里有组件调用方法。仔细看看。
xtcal 2003-08-19
- 打赏
- 举报
在线顶!
xtcal 2003-08-19
- 打赏
- 举报
dd
xtcal 2003-08-19
- 打赏
- 举报
后面的那个xxx是什么来的？
lions911 2003-08-19
- 打赏
- 举报
无非是set objmail=server.createobject("easymail.xxx")
objmail.body=""
objmail.subject=""
objmail.send
set objmail=nothing
objmail.body=""
objmail.subject=""
objmail.send
set objmail=nothing
xtcal 2003-08-19
- 打赏
- 举报
能给个例子吗？
