收录日期:2019/03/19 04:24:55 时间:2016/05/18 03:13:39 标签:ASP
我现在要做得是在网页上获取客户输入的资料信息,然后自动的把他的邮箱地址和输入的内容当成邮件发到我的信箱。。。先谢谢大虾们了
需要使用组件,asp不支持mail的
你是用的什么网上服务器,不一定会提供组件支持的说啊
Cdonts是IIS默认带的!一般用这个就好了!
JMAIL功能很强大如果你可以操作你的服务器最好用这个
<%  
           sub  Jmail(email)  
           Dim  JMail,SendMail  
           Set  JMail=Server.CreateObject("JMail.SMTPMail")  
           JMail.Logging=True  
           JMail.Charset="gb2312"  
           JMail.ContentType  =  "text/html"  
           JMail.ServerAddress=SMTPServer  
           JMail.Sender=SystemEmail  
           JMail.Subject=topic  
           JMail.Body=mailbody  
           JMail.AddRecipient  email  
           JMail.Priority=3  
           JMail.Execute    
           Set  JMail=nothing    
           if  err  then    
           SendMail=err.description  
           err.clear  
           else  
           SendMail="OK"  
           end  if  
           end  sub  
 
           sub  Cdonts(email)  
           dim    objCDOMail  
           Set  objCDOMail  =  Server.CreateObject("CDONTS.NewMail")  
           objCDOMail.From  =SystemEmail  
           objCDOMail.To  =email  
           objCDOMail.Subject  =topic  
           objCDOMail.BodyFormat  =  0    
           objCDOMail.MailFormat  =  0    
           objCDOMail.Body  =mailbody  
           objCDOMail.Send  
           Set  objCDOMail  =  Nothing  
           if  err  then    
           SendMail=err.description  
           err.clear  
           else  
           SendMail="OK"  
           end  if  
           end  sub  
 
           sub  aspemail(email)  
           Set  mailer=Server.CreateObject("ASPMAIL.ASPMailCtrl.1")      
           recipient=email  
           sender=SystemEmail  
           subject=topic  
           message=mailbody  
           mailserver=SMTPServer  
           result=mailer.SendMail(mailserver,  recipient,  sender,  subject,  message)  
           if  err  then    
           SendMail=err.description  
           err.clear  
           else  
           SendMail="OK"  
           end  if  
           end  sub  
%>  
to  supere(在线等待):
你说的方法我也试过,是不是还得在iis上进行什么设置?

报错:
From: postmaster@tjisc168
To: aa@263.net
Date: Sun, 25 May 2003 01:50:38 +0800
MIME-Version: 1.0
Content-Type: multipart/report; report-type=delivery-status;
boundary="9B095B5ADSN=_01C3221CE998AC4000000001tjisc168"
Message-ID: <C8wSA1Xvp00000001@tjisc168>
Subject: Delivery Status Notification (Failure)

This is a MIME-formatted message.  
Portions of this message may be unreadable without a MIME-capable mail program.

--9B095B5ADSN=_01C3221CE998AC4000000001tjisc168
Content-Type: text/plain; charset=unicode-1-1-utf-7

This is an automatically generated Delivery Status Notification.

Delivery to the following recipients failed.

       aa@263.net




--9B095B5ADSN=_01C3221CE998AC4000000001tjisc168
Content-Type: message/delivery-status

Reporting-MTA: dns;tjisc168
Received-From-MTA: dns;tjisc168
Arrival-Date: Sun, 25 May 2003 01:48:30 +0800

Final-Recipient: rfc822;aa@263.net
Action: failed
Status: 5.0.0
Diagnostic-Code: smtp;553 You are not authorized to send mail as <MAIL FROM:<aa@263.net> SIZE=497>, authentication is required


--9B095B5ADSN=_01C3221CE998AC4000000001tjisc168
Content-Type: message/rfc822

Received: from mail pickup service by tjisc168 with Microsoft SMTPSVC;
 Sun, 25 May 2003 01:48:30 +0800
From: <aa@263.net>
To: <aa@263.net>
Subject: Hello
Date: Sun, 25 May 2003 01:48:30 +0800
X-Priority: 5
X-MSMail-Priority: Low
Importance: Low
X-MimeOLE: Produced By Microsoft MimeOLE V6.00.2600.0000
Message-ID: <TJISC168FRaqbC8wSA100000003@tjisc168>
X-OriginalArrivalTime: 24 May 2003 17:48:30.0384 (UTC) FILETIME=[B001C300:01C3221C]

I sent this in 3 statements!



--9B095B5ADSN=_01C3221CE998AC4000000001tjisc168--

不知道如何处理。。。。。。。

看c#高级编程中的一个例子 一个MYSQL的问题 系分没过,散分! 过了的朋友进来给点意见! 全文索引的问题 DOS环境下的编程问题 刚接触Lotus请帮忙. 关于下拉菜单的问题, 请教:关于在XPath表达式中无法取得对应值的问题? asp 500错误!解决马上结贴! [求助]mass storage几个比较基础的问题 如何实现禁止修改网络属性 急急急急急急急急急急急急急急急急急急急急急急急急,关于FLASHGET的问题,想用VB模仿,急急急急急急急急急急急急急急急急急 求b/s详细设计文档例子,不要模板 提供挂QQ系统原代码,要的请与我联系,内详! 有高手知道下面的VB6加密程序的转换成C#格式吗? 怎么样查询相同组合的记录,谢谢!! 如何替换字符串中的反斜杠(\\)和英文引号? 如何把检索到的一个字段内容合并显示? 大家看看是什么语言 视频捕捉和图象保存问题咨询 向高手求救:关于image的问题。 Excel为什么会占系统资源100% 我是oracle菜鸟---高分求简单存储过程 QuickReport4.0增强效果 控件问题 关于DataGrid的删除按钮事件的问题,请大家看一下,急! 后台代码为什么无法得到传过来的参数呢? javascript如何控制table的cellspacing? 怎么给框架页面中左边的Treeview的二级节点增加 target属性,用来传递参数到右边的页面? 关于在VC中使用命令行参数的问题? 请问哪里可以找到关于磁道存储标准的文档,比喻MTF,