求助 - ASP技术论坛 - 编程论坛档案馆

楼主

问题点数：0 回复次数：13

求助

请各位高手能够帮忙,此问题非常急手!!!

如果有谁能帮我解决此问题.我将有丰厚的礼品送给大家.
感谢大家快快给我一个答案吧!!!

搜索更多相关主题的帖子: 礼品　能够　

第 2 楼

得分:0

发送功能：

mail.htm

<body>

</body> </html>

post.asp

<% set objmail=server.CreateObject("cdonts.newmail") objmail.send"chen@wool365.com",Trim(Request.Form("mail")),Trim(Request.Form("ti")),Trim(Request.Form("text1")) set objmail=nothing %>

我要飞~~ " target="_blank">http://0021.

第 3 楼

得分:0

丰厚的礼品????? 楼主送出总积分：1

(狂晕~~~~) 本人也没有做个这个,不过我给出一编文章,你看看对你有没有帮助啊~ 不过只是发送的啊,还没有收取的~~嘻嘻~~

利用SMTP和ASP发送电子邮件

IIS中有一个组件CDONTS（Collaboration Data Objects for Windows NT server）可以用来发送邮件。Asp编写程序如下：

1 <%@language=vbscript%>2 <%option explicit%>3 <html>4 <head>5 <title>发邮件</title>6 </head>7 <body bgcolor=#ffffff>8 <% 9    dim strname,strsubject,strquery,strsender,strfile10    strname=trim(request.form("recivename"))11    strsubject=trim(request.form("subject"))12    strquery=trim(request.form("message"))13    strsender=trim(request.form("sender"))14    strfile=trim(request.form("file"))15 if (strname<>""and strsubject<>"" and strquery<>"" and strsender<>"")
 then16    dim objmail17    set objmail=server.createobject("cdonts.newmail")18    objmail.from=strsender19    objmail.to=strname20    objmail.subject=strsubject21    objmail.body=strquery22    if strfile<>"" then23     objmail.attachfile strfile24    end if25   objmail.send 26   response.write "successful, thank you!"27   set objmail=nothing28 else29    %>30    <h1>发邮件</h1>31    <form action="<%=request.servervariables("script_name")%>"32    method=post>33    <table border=0>34    <tr><td>收件人</td><td><input type=text name="recivename" 35    value="" size=40></td></tr>36    <tr><td>主题</td><td><input type=text name="subject" 37    value="" size=40></td></tr>38    <tr><td>邮件</td><td><textarea name="message" 39    cols=40 rows=10></textarea></td></tr>40    <tr><td>发件人</td><td><input type=text name="sender" 41    value="" size=40></td></tr>42    <tr><td>附件</td><td><input type=file name="file" 43    value="" size=40></td></tr>44    </table>45    <input type="submit" value="发送">46    <input type="reset" value="取消">47    </form>48 <%end if%>49    </body>50   </html>

　　该程序可以发送

　　第10-14行将从表单获得的数据赋给变量。

　　第30-47行是发邮件填写的表单，如图。

　　第15行语句判断表单是否填写。如果没填写，则执行30-47行语句。

　　第17行创建一个对象newmail，它允许用send方法发送电子邮件。接受如下参数： objmail.send fromaddress , toaddress , subject , body , importance

　　含义为fromaddress表示发件人地址，toaddress表示收件人地址，subject表示主题，body表示邮件内容，importance表示重要性（0为不重要，1为正常，2为重要）。

　　第18-21行将发件人，收件人，主题，邮件内容的值赋给newmail对象的各个属性。

　　第22判断是否有附件，若有，则赋给newmail的attachfile属性。

　　第25行发送邮件。

　　第27行销毁objmail对象。设置为nothing 。

　　newmail还有bodyformat和mailformat属性。Bodyformat用来指明邮件正文是纯文本（值为1）还是包含HTML（值为0）。Mailformat指明是文本消息（值1）还是MIME格式消息（值0），可在HTML格式邮件中使用图象。

最新作品：百货品牌商品资讯第一门户([url]http://www./[/url])，欢迎交流

第 4 楼

得分:0

用JMail组件挺好的。

天津网站建设 http://www./

第 5 楼

得分:0

我也建议用组件!!功能强~~

最新作品：百货品牌商品资讯第一门户([url]http://www./[/url])，欢迎交流

第 6 楼

得分:0

Jmail组件怎么用,请告诉我好吗?

第 7 楼

得分:0

<%@ Language=VBScript %>
<%

'+++++++++++++++++++++++++++++
'       参  数  设  置
'+++++++++++++++++++++++++++++

'邮件底部的广告
mailfoot=        "xxxxxxx"

'用来发送邮件的SMTP服务器
mailserver=        "smtp.

'如果服务器需要SMTP身份验证则：
'登录用户名
mailserverloginname=    "xxxxxx"
'登录密码
mailserverloginpass=    "xxxxxx"
'域名（如果你用“name@”这样的用户名登录时，请指明
mailuserdomain=            "xxxx@

'+++++++++++++++++++++++++++++
%>

<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN">
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<meta http-equiv="Copyright" content="Ajiang http://www.
<title>FormMail -
<style type="text/css">

</style>
</head>

<body>
<table width="498" border="0" align="center" cellpadding="0" cellspacing="0">
  <tr>
    <td><img src="formmail_r1_c1.gif" width="500" height="75"></td>
  </tr>
  <tr>
    <td height="300" background="formmail_r2_c1.gif">
      <table width="390" border="0" align="center" cellpadding="0" cellspacing="0">
<%
'获取表单数据
fromname=    Request.Form("fromname")
frommail=    Request.Form("frommail")
toname=        Request.Form("toname")
tomail=        Request.Form("tomail")
mailtitle=    Request.Form("mailtitle")
mailbody=    Request.Form("mailbody")

'检查是否填写了表单
if tomail="" then
%>
        <form action="<%=Request.ServerVariables("SCRIPT_NAME")%>" method=post>
        <tr>
          <td><p>发信人姓名:
              <input type="text" name="fromname">
              <br>
              发信人信箱:
              <input type="text" name="frommail">
              <br>
              收信人姓名:
              <input type="text" name="toname">
              <br>
              收信人信箱:
              <input type="text" name="tomail">
              <br>信件主题:　
              <input name="mailtitle" type="text" size="51">
              <br>
              信件内容:<br>
              　　　　　　<textarea name="mailbody" cols="49" rows="9"></textarea>
              <br>
              <input name="Submit" type="submit" class="backc" value="提交">
            </p>
          </td>
        </tr>
        </form>
<%
else
    if frommail="" then
        msg="您必须填写您的邮件地址，才可以发信给别人。"
    else

        '=============== 发信 ================
        dim JMail
        set JMail=server.CreateObject("Jmail.message")

        JMail.Silent=true
        JMail.Charset = "gb2312"
        JMail.FromName = fromname
        JMail.from = frommail
        JMail.AddRecipient tomail,toname
        JMail.Subject = mailtitle
        jmail.Body=mailbody & vbcrlf & vbcrlf & mailfoot

        JMail.MailServerUserName = mailserverloginname
        JMail.MailServerPassWord = mailserverloginpass
        JMail.MailDomain = mailuserdomain
        sendok=JMail.send(mailserver)
        if sendok then
            msg="已经成功发送了邮件！"
        else
            msg="发送邮件失败，可能是您填写了错误的邮件地址。<br>" & _
                "如果您确信没有写错邮件地址，则可能是发信程序出了<br>" & _
                "故障，请与管理员联系"
        end if
    end if
%>
        <tr>
          <td valign=middle>
          <table width=80% align=center>
          <tr><td><p><%=msg%><br><br><a href='javascript:history.back()'>[返回]</a></p></td></tr>
          </table>
          </td>
        </tr>
<%
end if
%>
      </table>
    </td>
  </tr>
  <tr>
    <td><img src="formmail_r3_c1.gif" width="500" height="36"></td>
  </tr>
</table>
</body>
</html>

最新作品：百货品牌商品资讯第一门户([url]http://www./[/url])，欢迎交流

第 8 楼

得分:0

regedit

用jmail那怎么群发呢??????

第 9 楼

得分:0

嘻嘻,我也没有用过,不知道可不可以啊~~ 不过我想用循环应该可以实现,不过你可以集中一下,比如每20个地址发一次,这样子服务器就不行吃不消了啊~ <script language=VBScript runat=server> function SendMail(SMTPServer,sender,mailto,subject,msg)'这个是一个函数，在程序中可以直接调用。 dim JMail 'on error resume next '等待功能扩充 Set JMail = Server.CreateObject("JMail.SMTPMail") JMail.LazySend = true '这个属性是将邮件放入缓冲直至发出为止，的不到任何的错误信息 JMail.Charset = "euc-kr" '设定邮件的字符集，默认为"US-ASCII" 一般中文用"gb2312" JMail.ContentType = "text/html" '这个邮件的头设置，默认为 "text/plain" 能设置成你需要的任何情况。 '你想发送HTML信息,改这个头文件为 "text/html" JMail.ServerAddress =SMTPServer 'SERVER的地址。可以有很多的SERVER地址，后可跟端口号

JMail.Sender = sender '邮寄的地址

JMail.Subject = subject '邮件的标题。

JMail.AddRecipient mailto '加入一个收件者这里就可以加上多个收件人

JMail.Body = msg 'UBBCode(htmlencode(MSG))E-Mail的主体

JMail.Priority = 1 '邮件的优先级，可以范围从1到5。越大的优先级约高，比如，5最高，1最低,一般设置为3

JMail.AddHeader "Originating-IP", Request.ServerVariables("REMOTE_ADDR") 'addheader加入一个头信息

'remote_addr发出请求的机器的IP地址

JMail.Execute'执行邮件发送到SERVER set jMail=nothing if err then '检测 SendMail=err.description err.clear else SendMail="OK" end if end function </script>

最新作品：百货品牌商品资讯第一门户([url]http://www./[/url])，欢迎交流

第 10 楼

得分:0

你这个方法不行呀.我装了JMAIL4.3版都不行.发不出去呀!!!怎么办呢?寻找答案???