利用WinWebMail组件在ASP页面中直接发送纯文本或是html格式的电子邮件

综合新闻

陶瓷新闻

文化教育

水利电力

林业信息

天气资讯

诗词雅文

通信与宽带

更新手记

瓷都服务

国内电视

国内电影

国外电视

国外电影

影视趣闻

车闻汇萃

评测导购

驾考园地

驾驶技巧

养车修车

买车卖车

汽车安全

事故回放

车趣杂烩

网络笑话

新闻留影

北京奥运

心情小站

另类其他

姓名测字

四柱八字

相学风水

六爻紫微

星相解梦

电脑技巧

工程建筑

生活常识

法律文书

网络编程

服务器类

IT、手机

房产动态

家居装饰

买房卖房

房产法规

房产奇闻


\| 网站首页 \| 资讯 \| 影音 \| 图片 \| 论坛 \| 模拟驾考 \| 免费取名算命 \| 瓷都工具 \| 留言本 \| 域名 \| 瓷都商城 \| 汇款 \|

资讯首页

瓷都德化

站内新闻

影视剧情

汽车世界

网络文摘

周易八卦

教程技巧

房产信息

您现在的位置：瓷都热线|诚信中国：“一就是一”（1941.CN） >> 资讯 >> 教程技巧0 >> 网络编程 >> 正文

专题栏目

[组图]期待！德化龙门湖
[组图]德化：“绿色动脉
[图文]德化龙门滩龙门湖
[图文]福建德化县美湖镇
[组图]德化各种花卉相继
[组图]福建德化九仙山迎
[图文]德化石牛山惊现双
[组图]千年古瓷都德化的
[组图]警方连捣5传销窝点
[组图]福建民俗博物馆办

如何制作无状态的ASP组件
GB与BIG5内码转换COM原代
一个用组件动态创建Exce
利用OWC服务器端组件动态
用webeasymail组件发送邮
Asp组件高级入门与精通系
Asp组件中级入门与精通系
Asp组件中级入门与精通系
Asp组件初级入门与精通
使用组件封装数据库操作

[图文]利用WinWebMail组件在ASP页面中直接发送纯文本或是html格式的电子邮件

热 ★★★

利用WinWebMail组件在ASP页面中直接发送纯文本或是html格式的电子邮件

作者：WinWebMail 文章来源：WinWebMail 更新时间：2006-5-6 11:33:23

【声明：转载此信息在于传递更多信息，其内容表达的观点并不代表本站立场，由这些信息所产生的一切后果本站不负任何责任。如果您对本信息有什么意见，欢迎和本站联系，谢谢！】http://CiDu.Net

在安装了WinWebMail之后，您将可以利用WinWebMail组件在ASP页面中直接发送纯文本或是html格式的电子邮件（无需登录）。

版本要求：3.7.0.1版或更高版本

	此ASP文件必须被放置于WebMail的虚拟目录之下时才可以调用成功，如果您需要在其他网站上使用此组件对外发信时，建议使用Post方式将数据传递到当前页面，再经由此页面发送出去。
	绿色部分是可变内容。
	深蓝色部分是为了防止系统Session超时可能引起发送失败而加入的内容。

下载 ASPsend文件包（1K）

<%@LANGUAGE = VBSCRIPT%>
<html>
<body>

<%
if IsEmpty(Application("em_MaxMPOP3")) and IsEmpty(Application("em_MaxSigns")) then
    dim mam
    set mam = server.createobject("easymail.AdminManager")

    tmp_num = 0
    do while tmp_num < 30
        mam.LoadExt

        if mam.IsLoadOK = true then
            Exit Do
        end if

        mam.Sleep 500
        tmp_num = tmp_num + 1
    loop

    if mam.IsLoadOK = true then
        Application("em_MaxMPOP3") = mam.MaxMPOP3
        Application("em_MaxSigns") = mam.MaxSigns
        Application("em_SystemAdmin") = LCase(mam.SystemAdmin)
        Application("em_EnableBBS") = mam.EnableBBS
        Application("em_Enable_SignHold") = mam.Enable_SignHold
        Application("em_Enable_FreeSign") = mam.Enable_FreeSign
        Application("em_Enable_SignWithDomainUser") = mam.Enable_SignWithDomainUser
        Application("em_Enable_SignNumberLimit") = mam.Enable_SignNumberLimit
        Application("em_SignNumberLimitDays") = mam.SignNumberLimitDays
        Application("em_Enable_ShareFolder") = mam.Enable_ShareFolder
        Application("em_Enable_SignEnglishName") = mam.Enable_SignEnglishName
        Application("em_LogPageKSize") = mam.LogPageKSize
        Application("em_TestAccounts") = LCase(mam.TestAccounts)
        Application("em_SignMode") = mam.SignMode
        Application("em_SignWaitDays") = mam.SignWaitDays
        Application("em_am_Name") = mam.am_Name
        Application("em_am_Accounts") = LCase(mam.am_Accounts)
        Application("em_AccountsAdmin") = LCase(mam.AccountsAdmin)

        Application("em_EnableTrap") = mam.EnableTrap
        if mam.EnableTrap = true then
            Application("em_TrapMail") = mam.TrapMail
        end if
    end if

    set mam = nothing
end if
%>

<%
Dim mailsend
Dim sender

' 发送帐号是 admin, 填写邮件系统内有效帐号名称
sender = "admin"

' 创建MailSend对象
Set mailsend = Server.CreateObject("easymail.MailSend")

mailsend.CreateNew sender, "temp"

' 发信人名称
mailsend.MailName = "瓷都网"

' 收件人邮件地址
mailsend.EM_To = "admin@cidu.net"

mailsend.EM_Subject = "邮件主题"
mailsend.EM_Text = "邮件正文内容!"

' ================== 需要发送html格式邮件时使用以下内容 ==================
' 输入html邮件内容
'mailsend.EM_HTML_Text = "<html>请在此处输入html邮件内容...</html>"
'mailsend.useRichEditer = true
' ========================================================================

if mailsend.Send() = false then
    Response.Write "邮件发送失败!"
else
    Response.Write "邮件发送成功!"
end if

Set mailsend = Nothing
%>

</body>
</html>

声明：以上信息资料大都是网上搜集而来，版权归作者，如有版权问题请留言告知我将马上改正。
文中所提到的各种观点只是原文观点，各种说法未经一一确认。并不代表本站认可此观点！！

资讯录入：admin 责任编辑：admin

上一篇资讯：六款WEB上传组件性能测试与比较

下一篇资讯：让IE后退时不取出Cache里的内容

【字体：小大】【发表评论】【加入收藏】【告诉好友】【打印此文】【关闭窗口】

点击数：1176

　网友评论：（只显示最新10条。评论内容只代表网友观点，与本站立场无关！）

没有任何评论

\| 设为首页 \| 加入收藏 \| 联系站长 \| 友情链接 \| 版权申明 \| 管理登录 \|
	声明：本主页大部分的资料都是网上搜集而来，如有版权问题请留言告知我将马上改正。©cidu.net 51La ©1999-2008 51La 电邮：cidunet#163.com（请将#换成@）地址:福建省德化县电力大厦邮编:362500 电话:13506014708 汇款? 网站地图站长：LiAhui(李辉煌)