当前位置:首页 » 操作系统 » asp发送邮件源码

asp发送邮件源码

发布时间: 2022-06-29 08:59:09

‘壹’ asp jmail 发送邮件代码

<%

Function getmail(Sname,Spass,Smail,Smtp,Rmail)
On error resume next
Dim JMail, contentId,gmail
Set JMail = Server.CreateObject("JMail.Message")
JMail.Charset = "gb2312" ' 邮件字符集,默认为"US-ASCII"
' JMail.ISOEncodeHeaders = False ' 是否进行ISO编码,默认为True

' 发送者信息(可用变量方式赋值)
JMail.From = Smail ' 发送者地址
JMail.FromName = "Name" ' 发送者姓名
JMail.Subject = "邮件主题" ' 邮件主题
gmail=""

' 身份验证
JMail.MailServerUserName = Sname ' 身份验证的用户名
JMail.MailServerPassword = Spass ' 身份验证的密码

' 设置优先级,范围从1到5,越大的优先级越高,3为普通
JMail.Priority = 3

JMail.AddHeader "Originating-IP", Request.ServerVariables("REMOTE_ADDR")

' 加入一个收件人【变量email:收件人地址】可以同一语句重复加入多个
JMail.AddRecipient("[email protected]")
'JMail.AddRecipient(Rmail)

' 加入附件【变量filename:附件文件的绝对地址,确保用户IUSR_机器名有访问的权限】
' 【参数设置是(True)否(False)为Inline方式】
'contentId = JMail.AddAttachment (Server.MapPath("jmail.asp"), True)

' 邮件主体(HTML(注意信件内链接附件的方式))
JMail.HTMLBody = "<html><head><META content=zh-cn http-equiv=Content-Language><meta http-equiv=""Content-Type"" content=""text/html; charset=gb2312""><style type=text/css>A:link { FONT-SIZE: 9pt; TEXT-DECORATION: none; color: #000000}A:visited {FONT-SIZE: 9pt; TEXT-DECORATION: none; color: #666666}A:hover {COLOR: #ff6600; FONT-SIZE: 9pt; TEXT-DECORATION: underline}BODY {FONT-SIZE: 9pt} --></style></head><body><font color=red>Mail</font><br><font color=green>邮件正文</font><br><b>邮件正文</b>< /body></html>"

' 邮件主体(文本部分)
JMail.Body = "我们的邮件采用了HTML格式,但是您的邮件查看软件可能不支持。。。邮件正文,邮件正文,邮件正文"

' 发送【调用格式:objJMail.Send([username:password@]SMTPServerAddress[:Port])】
JMail.Send(Smtp)

' 关闭并清除对象
JMail.Close()
Set JMail = Nothing

if err.number<>0 then
response.write "发送发送失败!"
gmail="发送发送失败!"
else
response.write "邮件发送成功!"
gmail="邮件发送成功!"

end If

End Function
%>
<%=getmail("用户名","密码","发送邮箱","smtp.163.com","收件人")%>-----

‘贰’ ASP邮件收发系统源代码

'****************************************************
'函数名:SendMail
'作 用:用Jmail组件发送邮件
'参 数:ServerAddress ----服务器地址
' AddRecipient ----收信人地址
' Subject ----主题
' Body ----信件内容
' Sender ----发信人地址
'****************************************************
function SendMail(MailServerAddress,AddRecipient,Subject,Body,Sender,MailFrom)
on error resume next
Dim JMail
Set JMail=Server.CreateObject("JMail.SMTPMail")
if err then
SendMail= "<br><li>没有安装JMail组件</li>"
err.clear
exit function
end if
JMail.Logging=True
JMail.Charset="gb2312"
JMail.ContentType = "text/html"
JMail.ServerAddress=MailServerAddress
JMail.AddRecipient=AddRecipient
JMail.Subject=Subject
JMail.Body=MailBody
JMail.Sender=Sender
JMail.From = MailFrom
JMail.Priority=1
JMail.Execute
Set JMail=nothing
if err then
SendMail=err.description
err.clear
else
SendMail="OK"
end if
end function

‘叁’ ASP实现在提交表单到数据库的同时发邮件通知 本人不懂asp 希望给个修改一下就可以的源代码

这个我有,我刚好做过的,一直在使用,只是你的使用环境是局域网还是外网使用?

你在提交表单的同时将表单数据使用邮件代码发送出来。

<%
dim objCDOMail
Set objCDOMail = Server.CreateObject("CDONTS.NewMail")
objCDOMail.From ="**** <这里填你的邮件地址>"
objCDOMail.To =ren '收件人
objCDOMail.Cc =email '抄送
objCDOMail.Subject =bn '主题

objCDOMail.Body =memo ’内容

objCDOMail.BodyFormat =1 '邮件格式

objCDOMail.MailFormat =1
objCDOMail.Send
Set objCDOMail = Nothing
%>

我的使用环境是局域网,使用的内部邮箱,可以用的。

你的服务器要开通 CDONTS服务,方法如下:

Windows xp, Windows 2003 默认没有附带CDONTS.DLL的,必须手动安装,你可以从Windows 2000的system32中得到该文件.下载cdonts.dll这个文件,拷到windows的system32目录下然后在开始运行里输入regsvr32 cdonts.dll回车注册,注册成功cdonts组件就可以使用了
安装方法:
Step1: 将该文件拷贝至 %SystemRoot%\System32 下;
Step2: 开始 -> 运行 -> Regsvr32 cdonts.dll;
Step3: 确认

cdonts文件我已上传,你直接下载使用就好。

‘肆’ 在线表单后以邮件形式发送到邮箱里(ASP)

我有一个现成的,请参考www.kingstar.biz/kingstar/about.asp?articleId=10&type=6&tabid=1
要程序也有。请加分吧

‘伍’ 急需,无组件把网页上的表单全部内容发送到邮箱里的ASP源码

需要服务器支持的,jmail组件很方便,你可以研究用用,无组件的呵呵,按照道理是不可能的吧

‘陆’ 易语言如何写网页ASP发信,麻烦提供源码和必要的解释

这个源码可以用的。

亲测不错,有些 空间虽然支持asp,但为防止这类东西有相关的程式,比如3v这类空间就是不可以的,免费空间大都不靠谱,善意提醒一下,这不是我要回答的


这里面有asp文件 和.e源码文件,非常通俗,懂点易语言就可以明白。


主要就是两个编辑框 代表 发送的信息,一个编辑框 代表asp的网址,还有一个发信按钮。

不要做坏事哦




‘柒’ Jmail的用法 .求源代码 :html php 或asp (用户提交邮箱地址后。jmai插件l就回复一份准备好的邮件给他)

数据库操作我就不写了...
下面是JMAIL发件代码.

Set JMail = Server.CreateObject("JMail.Message")
'是否将信头编码成iso-8859-1字符集. 缺省是True
JMail.ISOEncodeHeaders = False
'如果JMail.silent设置为true,ErrorCode包含的是错误代码
JMail.Silent = True
'设置标题和内容编码,如果标题有中文,必须设定编码为gb2312
JMail.Charset = "gb2312"
'JMail.ContentType = "text/html" '如果发内嵌附件一定要注释掉这行,重要!
JMail.From = FEmail ' 发送者地址
JMail.FromName = FName ' 发送者姓名
JMail.MailServerUserName =FUserName ' 身份验证的用户名
JMail.MailServerPassword = FPassword ' 身份验证的密码

'加入新的收件人
JMail.AddRecipient FRecipient, FRecipientName
JMail.Subject = username&"的付款信息"
JMail.Body = "购买服务."
JMail.appendHTML "<br></body></html>"

'如果对方信箱不支持HTML格式邮件,我们仍需要给他一个友善的提示
' But as not all mailreaders are capable of showing HTML emails
' we will also add a standard text body
JMail.Body = "Too bad you can't read HTML-mail."
JMail.appendText " There would have been a nice picture for you"
JMail.Send(SServer)
JMail.Close()
Set JMail = Nothing
'Send to admin
Set JMail = Server.CreateObject("JMail.Message")
'是否将信头编码成iso-8859-1字符集. 缺省是True
JMail.ISOEncodeHeaders = True
'如果JMail.silent设置为true,ErrorCode包含的是错误代码
JMail.Silent = True
'设置标题和内容编码,如果标题有中文,必须设定编码为gb2312
JMail.Charset = "gb2312"
'JMail.ContentType = "text/html" '如果发内嵌附件一定要注释掉这行,重要!
JMail.From = FEmail ' 发送者地址
JMail.FromName = FName ' 发送者姓名
JMail.MailServerUserName =FUserName ' 身份验证的用户名
JMail.MailServerPassword = FPassword ' 身份验证的密码

'加入新的收件人
JMail.AddRecipient FRecipient_Admin, FRecipientName_Admin
JMail.Subject = username&"的付款信息"
JMail.Body = "购买服务."
JMail.appendHTML "<br></body></html>"
'如果对方信箱不支持HTML格式邮件,我们仍需要给他一个友善的提示
' But as not all mailreaders are capable of showing HTML emails
' we will also add a standard text body
JMail.Body = "Too bad you can't read HTML-mail."
JMail.appendText " There would have been a nice picture for you"
JMail.Send(SServer)
JMail.Close()
Set JMail = Nothing

先把邮件服务器用OE调通

‘捌’ 请问有没有asp.net c# email发送的类的源码

using System.Collections.Generic;
using System.Text;
using System.Net.Mail;
using System.Net;namespace cn.SwordYang
...{
public class MailSender
...{
protected int emailPriority=1; //邮件紧急程度
protected string mailFormat="text"; //邮件类型
protected string fromMail; //发件人邮箱地址
protected string toMail; //收件人地址
protected string subject; //邮件主题
protected string body; //邮件内容
protected Encoding mailEncoding=Encoding.GetEncoding(936); //邮件编码
//protected int isLocalSmtp=2; //是否启用本地smtp服务器
protected string smtpServer;
protected int smtpPort=25;
//protected int isSmtpAuthenticate=1; //是否需要验证
protected bool isSSL=true; //是否需要SSL认证
protected string mailUserName; //用户名
protected string mailPassWord; //密码
属性#region 属性
/**//// <summary>
/// 邮件紧急程度,0为低,1为普通,2为高
/// </summary>
public int EmailPriority
...{
get...{return emailPriority;}
set...{emailPriority=value;}} /**//// <summary>
/// 邮件类型 text为纯文本型,html为Html编码型
/// </summary>
public string MailFormat
...{
get...{return mailFormat;}
set...{mailFormat=value;}}
/**//// <summary>
/// 发件人邮箱地址
/// </summary>
public string FromMail
...{
get ...{ return fromMail; }
set ...{ fromMail = value; }}
/**//// <summary>
/// 收件人地址
/// </summary>
public string ToMail
...{
get ...{ return toMail; }
set ...{ toMail = value; }}
/**//// <summary>
/// 邮件主题
/// </summary>
public string Subject
...{
get ...{ return subject; }
set ...{ subject = value; }}/**//// <summary>
/// 邮件内容
/// </summary>
public string Body
...{
get ...{ return body; }
set ...{ body = value; }}
/**//// <summary>
/// 邮件编码格式
/// </summary>
public Encoding MailEncoding
...{
get...{return mailEncoding;}
set...{mailEncoding=value;}
}
/**//// <summary>
/// 是否启用本地smtp服务器,1为启用本地,2为启用远程smtp,默认为2
/// </summary>
/**//*
public int IsLocalSmtp
{
get{return isLocalSmtp;}
set{isLocalSmtp=value;}
}
*//**//// <summary>
/// 远程stmp服务器名称
/// </summary>
public string SmtpServer
...{
get ...{ return smtpServer; }
set ...{ smtpServer = value; }
}/**//// <summary>
/// 远程stmp服务器端口号
/// </summary>
public int SmtpPort
...{
get ...{ return smtpPort; }
set ...{ smtpPort = value; }
}/**//*
* /// <summary>
/// 是否需要验证 0为不验证,1为BASIC验证,2为NTLM验证方式
/// </summary>
public int IsSmtpAuthenticate
{
get { return isSmtpAuthenticate; }
set { isSmtpAuthenticate = value; }
}*/
/**//// <summary>
/// 是否需要SSL认证
/// </summary>
public bool IsSSL
...{
get ...{ return isSSL; }
set ...{ isSSL = value; }
}/**//// <summary>
/// 邮箱用户名
/// </summary>
public string MailUserName
...{
get ...{ return mailUserName; }
set ...{ mailUserName = value; }}/**//// <summary>
/// 邮箱密码
/// </summary>public string MailPassWord
...{
get ...{ return mailPassWord; }
set ...{ mailPassWord = value; }
} #endregion
public string SendEmail()
...{ try
...{
MailMessage msg = new MailMessage(fromMail,toMail); msg.Subject = subject;
msg.Body = body;
msg.BodyEncoding =mailEncoding;

//是否启用html
switch (mailFormat)
...{
case "html":
msg.IsBodyHtml=true;
break;
case "text":
msg.IsBodyHtml=false;
break;
} switch (emailPriority)
...{
case 2:
msg.Priority = MailPriority.High;
break;
case 1:
msg.Priority = MailPriority.Normal;
break;
case 0:
msg.Priority = MailPriority.Low;
break;
} SmtpClient SC=new SmtpClient(smtpServer,smtpPort);
if (!String.IsNullOrEmpty(mailUserName) && !String.IsNullOrEmpty(mailPassWord))
...{
SC.Credentials = new NetworkCredential(mailUserName, mailPassWord);
} SC.EnableSsl=isSSL;
SC.Send(msg);
return "Send Mail OK";}
catch (Exception ex)
...{
return ex.Message;
}

}

}
}

‘玖’ 我下载了一个ASP源代码,不知道怎么用

IIS服务器组建攻略

详细介绍页面:
http://www.qqread.com/net-knowledge/v690125081.html
http://www.qqread.com/net-knowledge/v690125081.html
http://www.qqread.com/net-knowledge/v690125081.html

介绍:

IIS(Internet Information Server,互联网信息服务)是一种Web(网页)服务组件,其中包括Web服务器、FTP服务器、NNTP服务器和SMTP服务器,分别用于网页浏览、文件传输、新闻服务和邮件发送等方面,
它使得在网络(包括互联网和局域网)上发布信息成了一件很容易的事。本文将向你讲述Windows 2000高级服务器版中自带的IIS 5.0的配置和管理方法。

准备篇 IIS的添加和运行

一、IIS的添加

请进入“控制面板”,依次选“添加/删除程序→添加/删除Windows组件”,将“Internet信息服务(IIS)”前的小钩去掉(如有),重新勾选中后按提示操作即可完成IIS组件的添加。用这种方法添加的IIS组件中将包括Web、FTP、NNTP和SMTP等全部四项服务。

二、IIS的运行

当IIS添加成功之后,再进入“开始→程序→管理工具→Internet服务管理器”以打开IIS管理器,对于有“已停止”字样的服务,均在其上单击右键,选“启动”来开启。

第一篇 IIS之Web服务器

一、建立第一个Web站点
................................
................................
................................
................................
................................

热点内容
编程图片平移 发布:2024-11-16 07:41:06 浏览:652
黄金数算法 发布:2024-11-16 07:40:15 浏览:65
门锁动态密码是什么样的 发布:2024-11-16 07:39:33 浏览:912
namespacelinux 发布:2024-11-16 07:28:13 浏览:352
html去缓存 发布:2024-11-16 07:05:22 浏览:723
如何限制苹果ip段访问服务器 发布:2024-11-16 07:02:57 浏览:661
knn算法原理 发布:2024-11-16 06:56:18 浏览:854
c语言第一章 发布:2024-11-16 06:49:07 浏览:51
服务器ip黑名单和网站ip黑名单区别 发布:2024-11-16 06:45:56 浏览:888
上传图片命名规则 发布:2024-11-16 06:28:37 浏览:557