在线发邮件

zowie 2003-05-28 09:36:27

1，不用jamil插件
很简单的函数
Set Testmail = CreateObject("CDONTS.Newmail")

但是返回错误
怎么解决？

...全文

289 3 打赏收藏转发到动态举报

写回复

用AI写文章

3 条回复

切换为时间正序

请发表友善的回复…

发表回复

cmsoft 2003-05-28

打赏
举报

##########################用CDONTS发邮件#########################

<%
Set MailObject = Server.CreateObject("CDONTS.NewMail")
MailObject.From = "发信人邮箱"
MailObject.To = "收信人邮箱"
MailObject.Subject = "邮件主题"
MailObject.Body = "邮件内容"
MailObject.MailFormat = 1 '邮件的格式，0是MIME格式，1是文本消息
MailObject.BodyFormat = 0 '邮件的正文的格式，0表示HTML格式，1表示普通文本
MailObject.Importance = 1 '邮件的重要性，0是表示低重要性，1表示正常，2表示高重要
MailObject.AttachFile ( "附件绝对路径" )
MailObject.Send
Set MailObject = Nothing
%>

Struggling 2003-05-28

打赏
举报

index.asp

<html>
<head>
<title>Index</title>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
</head>
<SCRIPT LANGUAGE="javascript">
function sendemail(){
window.open ('sendemail.asp','', 'height=140, width=300, toolbar=no, menubar=no, scrollbars=no, resizable=no,location=no, status=no')
}
</SCRIPT>

<body bgcolor="#FFFFFF" text="#000000">
<form name="form1" method="post">
<div align="left">
<p>
留言主题:<input type="text" name="name" size="20"><br>
联系人姓名:<textarea name="content" rows="1" cols="20"></textarea><br>
目的地(ToEmail):<input type="text" name="toemail" size="20"><br>
选项:<input type="radio" name="rad" value="A">A
<input type="radio" name="rad" value="B">B<br>
项目:<input type="checkbox" name="box" value="Asp">Asp
<input type="checkbox" name="box" value="VB">VB<br>
<input type="button" name="tijiao" value="提交" onclick="javascript:sendemail()"><input type="reset" name="chongzhi" value="重置"></p>
</div>
</form>
</body>
</html>

sendemail.asp

<html>
<head>
<meta name="GENERATOR" content="Microsoft FrontPage 5.0">
<meta name="ProgId" content="FrontPage.Editor.Document">
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<title>SendEmail</title>
</head>

<body bgcolor="#FFFFFF" text="#000000">
<%
dim strText
strText=Request.Form("name") '接受表单提交的内容
strText="留言主题:" & strText
strcontent=request.form("content")
strcontent="联系人姓名:" & strcontent
strrad=request.form("rad")
strrad="选项:"& strrad
strbox=request.form("box")
strbox="项目："& strbox

toemail=request.form("toemail")
dim objCDOMail
Set objCDOMail = Server.CreateObject("CDONTS.NewMail")
objCDOMail.From ="info"
objCDOMail.To =toemail '如 xxx@163.com
objCDOMail.Subject ="邮件发送测试"
body=strText & vbCrLF & strcontent & vbCrLF & strrad & vbCrLF & strbox
objCDOMail.Body =body
objCDOMail.BodyFormat=0 '设置为HTML格式
objCDOMail.Send
%>
<div align="center">
<%
response.write "发送成功"
%>
</div>
<%
Set objCDOMail = Nothing
%>
<p align="center">[<a href="javascript:window.close()">关闭窗口</a>]
</p>
<div align="center" class="p2">

<script language="JavaScript">
document.write("<hr width=280 size='1'>");
document.write("<div align='right' style=fontsize:9pt;><font face='Verdana, Arial, Helvetica, sans-serif'>");
document.write("Maker:<a href=http://localhost/eocorp/study target=_blank><font color=red>Leo</font></a><br>");
document.write("<font face='Verdana, Arial, Helvetica, sans-serif' color='#000000'>");
</script>
</div>
</body>
</html>