邮箱发信源码
Ⅰ 请问谁有发送邮件的那个网页 HTML 源代码
163的很容易保存：点写信以后，在写信的标题附近空白处点鼠标右键，选择查看源文件，就会打开一个记事本，里面就是网页代码，从文件内容可以看见CSS代码文件是<link href="http://mimg.126.net/p/js31style/lib/0902091535/jscss/globle.css" rel="stylesheet" type="text/css" id="cssGlobe">，JS代码很多，163的代码的前面部分如下：
<html xmlns="http://www.w3.org/1999/xhtml">
<head>
<title>网易电子邮箱</title>
<script language="javascript" src="http://mimg.126.net/external/proct163.js"></script>
<script language="javascript" src="http://mimg.126.net/external/public163.js"></script>
<script language="javascript">var style= '21';var uid = '[email protected]';var sid = '';var contentURL = "readhtml.jsp?ssid=L%%3d";var host = location.hostname;var searchid = "false";var domain = "163.com";var limitMessageCount = "999999999";var attrs = { common:{ sid : sid, uid : uid, cosid : "96", now : 1238213857743, style : style }, user:{'refuselist':'','safelist':'','addo':0,'afterdel':1,'aftersend_saveaddr':0,'app_city':null,'autosavedraft':1,'birthday':null,'city':'','clearinterval':0,'displaysender':0,'gender':'0','helptips':'00000101','huodong_option':'00000110','junkfilter':null,'junkfriend':1,'junkpic':0,'junkrefuse':1,'keepspamdays':-1,'maxlist':100,'mms_enabled':0,'nick_name':'','ntes_defaultsender':null,'op_readreceipt':0,'replyf':0,'save_sent':1,'showmusicbar':0,'style':21,'true_name':'阳光'}, cos:{'pref_quota':999999999,'perm_func_netfolder':false,'perm_func_address_book':true,'perm_func_schele_send':true,'perm_func_antivirus':true,'perm_mail_webmail':true,'perm_mail_pop':true,'perm_mail_smtp':true,'perm_mail_imap':false,'perm_mail_filter':true,'perm_webmail_sendmail':true,'perm_webmail_html_editor':true,'perm_webmail_signature':true,'pref_webmail_max_signatures':10,'perm_webmail_pop_agent':true,'perm_webmail_mail_sorting':true,'perm_webmail_mail_get_rfc':true,'perm_webmail_disp_pref':true,'perm_webmail_mail_search':true,'pref_smtp_max_num_rcpts':20,'pref_smtp_max_send_mail_size':28672,'pref_alias_num':3,'perm_mail_sms_notify':true,'perm_smtp_auth_disabled':false,'perm_mail_autoreply':true,'perm_mail_autoforward':true,'perm_ssl_pop':false,'perm_ssl_smtp':false,'perm_ssl_imap':false,'perm_ssl_http':false,'perm_filter_anti_spam':true,'pref_antivirus_engine':'','pref_smtp_max_recv_mail_size':28672,'pref_smtp_max_mail_count':999999999,'pref_webmail_style':'0=1&0=2&0=3&0=4&0=5&0=6&0=7&0=8&0=9&0=10&0=11&0=12&0=13&0=14&0=15&0=16&0=17&0=18&0=19&0=20&0=21&0=22&0=23&0=24&0=25&0=26&0=27&0=28&0=29&0=30&0=31&0=32&0=33&0=34&0=35&0=0','perm_webmail_voicemail':false,'perm_webmail_videomail':false,'pref_netfolder_quota':10,'pref_netfolder_max_file_size':10240,'pref_netfolder_max_file_count':10000,'pref_flow_limit':'nf:560,nfrcv:476,nfsnd:364,smtp:400,web:500,webrcv:400,websnd:300,pop:250,c_pop:350','perm_share':false,'perm_advanced_imaging':true,'pref_package_download':1,'pref_webmail_faces':'@all','perm_mail_fulltext_search':true,'perm_ssl':true,'perm_webmail_mmmail':true,'pref_mail_archive_save_days':0,'pref_max_folder_nest_level':5,'pref_mail_folders':100,'pref_mail_rules':100,'pref_pab_contacts':2000,'pref_pop_agent_accounts':8,'pref_upload_size':-1,'pref_webmail_risky_suffix':''}};var fixAttrs = {afterdel:1,replyf:0,addo:0,displaysender:0,maxlist:20};for(var a in fixAttrs){ if(isNaN(attrs.user[a])){ attrs.user[a] = fixAttrs[a]; }}if(!attrs.user.ntes_defaultsender){ attrs.user.ntes_defaultsender = uid;}</script><script language="javascript"> var gSenders = {'audited':[],'unaudited':[]}; var gPopAccounts = []; var gAlias = []; var gFolders = [{'id':1,'name':'收件箱','flags':{'system':true},'stats':{'messageCount':1749,'messageSize':1050661745,'unreadMessageCount':1481,'unreadMessageSize':905264326,'threadCount':0,'unreadThreadCount':0}},{'id':2,'name':'草稿箱','flags':{'system':true},'stats':{'messageCount':0,'messageSize':0,'unreadMessageCount':0,'unreadMessageSize':0,'threadCount':0,'unreadThreadCount':0}},{'id':3,'name':'已发送','flags':{'system':true},'stats':{'messageCount':44,'messageSize':40795286,'unreadMessageCount':0,'unreadMessageSize':0,'threadCount':0,'unreadThreadCount':0}},{'id':4,'name':'已删除','flags':{'system':true},'stats':{'messageCount':0,'messageSize':0,'unreadMessageCount':0,'unreadMessageSize':0,'threadCount':0,'unreadThreadCount':0}},{'id':5,'name':'垃圾邮件','flags':{'system':true},'stats':{'messageCount':0,'messageSize':0,'unreadMessageCount':0,'unreadMessageSize':0,'threadCount':0,'unreadThreadCount':0}},{'id':6,'name':'病毒文件夹','flags':{'system':true},'stats':{'messageCount':0,'messageSize':0,'unreadMessageCount':0,'unreadMessageSize':0,'threadCount':0,'unreadThreadCount':0}},{'id':7,'name':'广告邮件','flags':{'system':true},'stats':{'messageCount':0,'messageSize':0,'unreadMessageCount':0,'unreadMessageSize':0,'threadCount':0,'unreadThreadCount':0}}];</script><link href="http://mimg.126.net/p/js31style/lib/0902091535/jscss/globle.css" rel="stylesheet" type="text/css" id="cssGlobe"><script language="javascript"> var gLoginTime = new Date(); var gCurrentCss = "", gCurrentPath = "", gCurrentStyle = null; var gIsDebug = false; var gConfigUrl = "urlconfig.xml"; var gCacheJsPath = "http://mimg.126.net/p/js31style/js/debug/"; function fLoadStyle(){ var styles = ["http://mimg.126.net/p/js31style/lib/0902091535/cmcss/", "/a/h/js3/"]; gCurrentPath = styles[1]; var cssFile = { "vip.163.com" : "163_purple_s.css", "163.com" : "163_blue_s.css", "126.com" : "126_green_s.css", "188.com" : "188_gold_s.css", "yeah.net" : "yeah_blue_s.css" }; for(c in cssFile){ if(new RegExp(c).test(location.href)){ styles[0] += cssFile[c]; break; } } gCurrentCss = styles[0]; gCurrentStyle = styles; top.gCurrentCss = gCurrentCss; top.gCurrentStyle = gCurrentStyle; var sCss = '<link href="'+ gCurrentCss +'" rel="stylesheet" type="text/css" id="cssStyle" />'; if(document.domain.indexOf("163.com")>-1){ sCss += '<link href="http://mimg.126.net/p/js31style/lib/0902091535/images/musicbox/mbox_mini.css" rel="stylesheet" type="text/css"><link href="http://mimg.126.net/musicbox/mbox_gg163.css" rel="stylesheet" type="text/css"><STYLE>.gTopMus .usrMsg{top:10px}.gTopMus .tLink{top:10px}</STYLE>'; } document.write(sCss); }; var sTopSearchid = searchid; var sTxtKeyValue = "搜索邮件"; if(sTopSearchid && sTopSearchid=="true"){ sTxtKeyValue = "支持邮件全文搜索"; } fLoadStyle(); </script><style>@media all {IE\:CLIENTCAPS {behavior:url(#default#clientCaps)}}.userData{behavior:url(#default#userdata)}div.SD_tipsbg{background-image:url(http://mimg.126.net/assist/res/bbx_tip_vip.png)}</style>
</head>
<body class="gb" lang="zh" style="overflow-y:auto">
<div class="gTop gTopMus" id="dvTop"><a href="http://mail.163.com" target="_blank" id="lnkHome"><img src="http://mimg.126.net/logo/163logo.gif" alt="163邮箱" class="gLogo" border="0" id="imgLogo" /></a><div class="usrMsg"><b id="bUid">[email protected]</b>[<a href="javascript:fGoto()" onclick="fGoto('MM.getMole(\'welcome\')')">邮箱首页</a>，<a href="javascript:fGoto()" onclick="fGoto('CC.goOutlink(\'http://reg.163.com/mob/[email protected]&url=http://appsms.mail.163.com/bindmo/moorder_163.jsp\');')">密码保护</a>，<a href="javascript:fGoto()" id="lnkexit" onclick="fGoto('CC.logout()')">退出</a>]<span id="ad1"></span><span></span></div><div class="tLink"><a href="javascript:fGoto()" onclick="fGoto('MM.getMole(\'option\');')" >设置</a>|<a href="javascript:fGoto()" id="lnkhelp" target="_blank">帮助</a>|<a href="/a/service/index.jsp?sid=" target="_blank">自助查询</a></div><!--页面总导航栏--><div class="gNav"><ul id="ulTab"><li><a href="javascript:fGoto();" class="on" href="javascript:fGoto()" onclick="fGoto('MM.getMole(\'welcome\')')">电子邮件</a></li><li><a href="javascript:fGoto()" onclick="fGoto('MM.getMole(\'address\');')">通讯录</a></li><li><a href="javascript:fGoto()" onclick="fGoto('CC.getServiceLink(\'assist\')')">百宝箱</a></li><li id="liNetFolder"><a href="javascript:fGoto()" onclick="fGoto('CC.goNetFolder();')">网易网盘</a></li></ul></div><div class="gSrh" id="set_a_line_area2"><input type="text" class="gSipt fLe" id="txtKey" style="color:#aaaaaa" onfocus="this.className='gSipt fLe bgcolor13'" MAXLENGTH="100" onkeyup="if(event.keyCode==13){fGoto('CC.searchMailByTop();');this.blur()}" onblur="this.className='gSipt fLe';if(this.value=='')this.value=sTxtKeyValue;" onclick="if(this.value==sTxtKeyValue)this.value=''" /><a href="javascript:fGoto()" class="srhBtn fLe" onclick="$('txtKey').onclick();fGoto('CC.searchMailByTop();');$('txtKey').onblur();" title="搜索"><b>搜索</b></a><a href="javascript:fGoto();" class="AdsrhBtn fLe" onclick="fGoto('MM.getMole(\'searchmail\');')" title="进入高级搜索"><b>高级搜索</b></a></div><span id="spnTabSplit"><b id="sl1" class="spl" style="display:none"></b><b id="sl2" class="spl"></b><b id="sl3" class="spl"></b></span></div><div class="gLoading" style="top:34px; right:10px; z-index:60; display:none;" id="tbMsg"><img src="http://mimg.126.net/p/js31style/lib/images/loading_16x16.gif" align="absmiddle"/><span id="spnMsg">数据加载中，请稍候...</span></div><iframe src="about:blank" id="ifrHtmlEditor" name="ifrHtmlEditor" style="display:none"></iframe><IE:CLIENTCAPS ID="oClientCaps" /><span id="oUserData" class="userData" style="display:none"></span><table class="gMain"><tr class="gMtr"><td class="gLe"><div class="gMbtn" id="set_a_line_area3"><a href="javascript:fGoto();" class="gCmBtn" title="收信" onclick="fGoto('CC.goInbox();')"><b class="hide">收信</b></a><a href="javascript:fGoto();" class="gWmBtn" title="写信" onclick="fGoto('CC.compose();')"><b class="hide">写信</b></a></div><div class="gFd"><h3 class="gfTit"><a href="javascript:fGoto();" class="clsFd bgF1" title="折叠" id="lnkFolderToggle" onclick="fGoto('CC.toggleTree($(\'lnkFolderToggle\'), \'ulFolders\')')"></a><a href="javascript:fGoto();" class="gfName" onclick="fGoto('MM.getMole(\'folderMain\')')">文件夹</a><a href="javascript:fGoto();" class="addFd bgF1" title="添加文件夹" onclick="fGoto('MM.folderMain.add()')"></a></h3><ul class="gFdBdy" id="ulFolders" onmouseover="try{MM.folder.handleDrag();}catch(exp){}"></ul></div><div class="gFd"><h3 class="gfTit"><a href="javascript:fGoto();" class="clsFd bgF1" id="lnkServiceToggle" title="折叠" onclick="fGoto('CC.toggleTree($(\'lnkServiceToggle\'), \'ulService\')')"></a><a href="javascript:fGoto();" class="gfName" onclick="fGoto('CC.goOutlink(\'/a/h/js3/\'+GE.dm+\'service.htm\')')">邮箱服务</a></h3><ul class="gSevBdy" id="ulService"><SCRIPT LANGUAGE="JavaScript">var gServiceUrl = ' sms163|http://smsmail.163.com/newsmsmail/LoginEaw163?\nupgrade163|http://mscan.163.com/pay/payIndex.jsp\nmyresume|http://event.mail.163.com/jianli/servlet/fenter?origin=$host$&mailname=$user$&sid=$sid$\n myblog163|http://blog.163.com/apps/notebook/mailnote.do?sid=$sid$&username=$user$&email=$uid$&host=$host$\nmybill|http://money.mail.$domain$/mybill/user.do?method=login&uid=$uid$&sid=$sid$\naddress|MM.getMole("address");\nxport|MM.address.gotoXport();\npop3|MM.getMole("pop3")\ncards|http://cards.163.com/mail/index.php?userfrom=mail.$domain$&useremail=$uid$&username=$user$&sid=$sid$&host=$host$\nrss|http://rss.mail.$domain$/mailrss/mailrss/ul?sid=$sid$&username=$uid$\nvip163|http://reg.vip.163.com/upgradeFromFreeMail.m?form=163mail\nstamp|http://stamp.mail.163.com/servlet/stamp?userName=$uid$&sid=$sid$&action=getAlbum\ninvite|http://uinfo.mail.163.com/fcgi/jisu3/dispinvites.fcgi?sid=$sid$&host=$host$\nassist|http://mimg.$domain$/assist/index.htm\necard|http://cards.163.com/mail/index.php?userfrom=mail.$domain$&useremail=$uid$&username=$user$&sid=$sid$&host=$host$\nmail188|http://reg.mail.188.com/sj188.jsp?uid=$user$&domain=$dm$\nmyblog|http://blog.163.com/apps/notebook/mailnote.do?sid=$sid$&username=$uid$&email=$uid$&host=$host$\n';var gUrls = ' 6|http://alist.mail.163.com/alist_163_ajax/addressbookimport.php?host=$host$\n11|https://reg.163.com/setinfo/ChangePasswd.jsp?username=$user$\n12|http://reg.163.com/setinfo/UserInfo.jsp?username=$user$\n20|http://help.163.com/special/007525G0/163mail_event.html?b08bag1\n21|http://help.163.com/special/007525G0/163_tran_withdrawal_letter.html?b08bag1\n22|http://p5.club.163.com/viewBoardByUp.m?boardId=163help&username=$user$\n23|http://help.163.com/special/007525G0/163mail_ans.html?b08akI1\n28|http://bbs2.news.163.com/board/postlist.jsp?b=yeah&p=0&l=50\n29|http://mscan.163.com/pay/payIndex.jsp\n31|http://pay.126.com/html/payupdate/index.jsp?sid=$sid$\n35|http://help.163.com/special/007525G0/163mail_index.html?b08akh1\n55|http://help.163.com/07/0524/13/3F8S6NG9007525G0.html?b08beg1\n56|http://help.163.com/07/0524/13/3F8S6NG9007525G0_2.html?b08beb1\n57|http://help.163.com/07/0524/13/3F8S6NG9007525G0_3.html?b08beI1\n58|http://help.163.com/07/0113/14/34NMRNM2007525G0.html?b08bed1\n86|http://$host$/a/service/index.jsp?sid=$sid$\n 33|http://uinfo.mail.163.com/servlet/personal.xsp?sid=$sid$&uid=$uid$&url=http://$host$/a/h/js3/personal.htm&act=get\n40|http://jslog.mail.126.com/servlet/jslog?style=dm3style&strCmjsLog=\n46|http://invite.mail.$domain$/servlet/inv?disk=1&sid=$sid$&origin=$host$&username=$user$\n51|http://alist.mail.$domain$/alist_move/addressbookimport.php\n53|http://app1.mail.$domain$/sender/servlet/ds?uid=$uid$&sid=$sid$&host=$host$\n54|http://popmail.mail.$domain$/popmail/servlet/popsmtp?userName=$uid$&sid=$sid$&method=getStatus\n84|http://uinfo.mail.163.com/fcgi/jisu3/dispinvites.fcgi?sid=$sid$&host=$host$\n85|http://$host$/a/m/music.htm\n';function fTrim(s){ return s.replace(/(^\s*)|(\s*$)/g, "");}var aServiceUrl = gServiceUrl.split("\n");var aUrls = gUrls.split("\n");var gServiceUrlObj = {};var gUrlsObj = {};for(var i=0;i<aServiceUrl.length;i++){ var v = aServiceUrl[i]; if(v != ""){ var a = fTrim(v).split("|"); if(a.length == 2){ gServiceUrlObj[a[0]] = a[1]; } }}for(var i=0;i<aUrls.length;i++){ var v = aUrls[i]; if(v != ""){ var a = fTrim(v).split("|"); if(a.length == 2){ gUrlsObj[a[0]] = a[1]; } }}</SCRIPT><LI id=myblog163><A class=gfNm onfocus=this.blur(); onclick="fGoto('CC.getServiceLink(\'myblog163\');')" href="javascript:fGoto();">记事本</A></LI><LI id=stamp><A class=gfNm onfocus=this.blur(); onclick="fGoto('CC.getServiceLink(\'stamp\');')" href="javascript:fGoto();">集邮中心</A></LI><LI id=sms163><A style="FONT-WEIGHT: bold" class=gfNm onfocus=this.blur(); onclick="fGoto('CC.getServiceLink(\'sms163\');')" href="javascript:fGoto();">随身邮</A></LI><LI id=upgrade163><A class=gfNm onfocus=this.blur(); target=_blank href="#" onclick="this.href=gServiceUrlObj['upgrade163']">新邮箱伴侣</A></LI><!--LI id=vip163><A class=gfNm onfocus=this.blur(); target=_blank href="#" onclick="this.href=gServiceUrlObj['vip163']">升级到VIP</A></LI--></ul></div></td><td class="gRi" id="divMain"><div id="divwelcome"><div class="WelPages"><div class="wel_Topbar" id="divWelcomeHead"><div class="wel_user"><b class="wel_hi_user"><span id="spnWelcomeGreet">中午好</span>，杨光彬</b><div class="w_jifen"><div id="divWelcomeJiFen"><a href="javascript:fGoto()" onclick="fGoto('CC.getJifen()')" title="点击查看积分">点击查看积分</a></div></div></div><div class="wel_inbox"><b class="icos iconinbox"></b><div class="fLe">您有<a style="text-decoration:none" href="javascript:fGoto()" onclick="fGoto('MM.folder.sortSearch(1,1)');return false"><span id="spnWelcomeNew" class="Notice_Nu">1481</span></a>封<a href="javascript:fGoto()" onclick="fGoto('MM.folder.sortSearch(1,1)');return false">未读邮件</a>，<a href="javascript:fGoto()" onclick=fGoto("MM.getMole('folderMain')")>管理文件夹</a></div><iframe src="http://blog.163.com/blogentry/blogmsg/[email protected]&sid=&action=new" frameborder="0" allowtransparency="true" scrolling="no" class="ifm_mailblog"></iframe></div><div class="wel_Tr"><div class="wel_rl_nolim" title="无限容量空间：已用1.02G"></div><div id="divWelTianQi"><iframe class="wel_i_weather" frameborder="0" allowtransparency="true" scrolling="no" src="http://mimg.163.com/tianqi/city_js/090328/555/55591_wet_js.htm"></iframe></div></div></div><div class="wel_Main_Main" id="divWelcomeBody"><div class="wel_Main"><div class="wel_Mtab"><div class="wel_Mtab_head" id="divWelcomeTab"><script>fAdPageWrite(fAdWelcomeTabsInfo)</script></div><div class="wel_i_bg" id="divWelcomeContent"><span><div class="weltab_main_f"><div class="img1"><script>fAdPageWrite(fAdWelcomeRandom(fAdWelcomeServiceLogo))</script></div><div class="txt1"><script>fAdPageWrite(fAdWelcomeRandom(fAdWelcomeServiceText))</script></div></div><div class="wel_if_mail" style="text-align:center"><div class="wel_tj"><div class="wel_tj_tit"><script>t=fAdWelcomeServiceLink();fAdPageWrite(t.title)</script></div><ul class="wel_tj_ul"><li><script>fAdPageWrite(t.left1)</script></li><li><script>fAdPageWrite(fAdWelcomeRandom(fAdWelcomeServiceLinkR1))</script></li><li><script>fAdPageWrite(t.left2)</script></li><li><script>fAdPageWrite(fAdWelcomeRandom(fAdWelcomeServiceLinkR2))</script></li><li><script>fAdPageWrite(t.left3)</script></li><li><script>fAdPageWrite(fAdWelcomeRandom(fAdWelcomeServiceLinkR3))</script></li></ul></div></div><div class="clear" style="height:1px"></div></span></div></div><div class="wel_Ma300x260"><script>fAdPageWrite(fAdWelcomeRandom(fAdWelcome300x260))</script></div><div class="wel_Ma460x110"><div class="wel_Ma460x110M"><div class="wel_gjcont
Ⅱ 易语言发送邮件源码怎么写啊
首先，在软件的界面创建“标签1”“标签2”，并改名为“邮件标题”“邮件内容”，也可按照自己的想法修改（针对应用于其他特殊需要用户）创建，“编辑框1”“编辑框2”“按钮1”，并将“按钮1”改名为“发送邮件”
双击“发送邮件”按钮，进入代码编辑区域
连接“发信服务器”，并判断是否连接成功，代码：如果 (连接发信服务器 (“smtp.163.com”, 25, “你的163邮箱账户”, “你的163邮箱密码”, ) ＝ 真)
这里判断如果连接发信服务器成功，将执行发送邮件，代码：发送邮件 (编辑框1.内容, 编辑框2.内容, “这里写你收信的邮件地址”, , , “这里写你的发信邮箱地址”, )
这里判断如果连接发送服务器失败的话，将执行弹出信息框代码，当然也可省略这个步骤，根据个人需要选择，代码：信息框 (“连接发信服务器失败”, 0, )
此时，完整的代码如下：
.版本 2支持库 internet如果 (连接发信服务器 (“smtp.163.com”, 25, “你的163邮箱账户”, “你的163邮箱密码”, ) ＝ 真)发送邮件 (编辑框1.内容, 编辑框2.内容, “这里写你收信的邮件地址”, , , “这里写你的发信邮箱地址”, )否则信息框 (“连接发信服务器失败”, 0, , )
“编辑框1”是邮件标题，“编辑框2”是邮件内容，填写完之后，点击“发送邮件”按钮，即可。
Ⅲ Jmail群发邮件的源码
试试以下代码：核心就是循环调用发邮件代码就可以了
<%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%>
<%
Server.ScriptTimeOut=9999999
Response.Buffer = True
dim FoundErr, ErrMsg, Action
dim MailServerUserName, MailServerPassWord, MailDomain, MailServer
dim MailtoAddress, MailtoName, Subject, MailBody, FromName, MailFrom, Priority
FoundErr = False
ErrMsg = ""
Action = Trim(Request("action"))
ComeUrl = ""
%>
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.0 Transitional//EN">
<HTML>
<HEAD>
<TITLE>群发邮件系统</TITLE>
<META http-equiv=Content-Type content="text/html; charset=gb2312">
<META content="Microsoft FrontPage 4.0" Name=GENERATOR>
<STYLE type=text/css>
a {text-decoration: none;} /* 链接无下划线,有为underline */
a:link {color: #000000;text-decoration: none;} /* 未访问的链接 */
a:visited {color: #000000;text-decoration: none;} /* 已访问的链接 */
a:hover {color: #ff6600;text-decoration: none;} /* 鼠标在链接上 */
a:active {color: #000000;text-decoration: none;} /* 点击激活链接 */
TD {
FONT-SIZE: 18px; COLOR: #000000; FONT-FAMILY: '宋体';LINE-HEIGHT: 150%;
}
BODY {
FONT-SIZE: 12px; COLOR: #000000; FONT-FAMILY: '宋体'
}
INPUT {
FONT-SIZE: 12px; COLOR: #000000; FONT-FAMILY: '宋体'
}
SELECT {
FONT-SIZE: 12px; COLOR: #000000; FONT-FAMILY: '宋体'
}
.title
{
background:#0DB432;
color: #ffffff;
font-weight: normal;
}
.border
{
border: 1px solid #0DB432;
}
.tdbg{
background:#f0f0f0;
line-height: 120%;
}
.tdbg1{
background:#A3E2B1;
line-height: 120%;
}
</STYLE>
</HEAD>
<BODY text=#000000 bgColor=#ffffff leftMargin=0 topMargin=0>
<br>
<%
Select Case Action
Case "send"
Call sendMail()
Case Else
Call Main()
End Select
If FoundErr = True Then
Response.Write WriteErrMsg(ErrMsg, ComeUrl,"错误信息")
End If
Response.write"</BODY></HTML>"
sub main()
If Not IsObjInstalled("JMail.Message") Then
FoundErr=True
ErrMsg = "服务器不支持JMail组件，请正确安装"
Exit Sub
End If
%>
<form action="wssf.asp?Action=send" method=post>
<table width="80%" class="border" border="0" cellspacing="1" cellpadding="4" align="center" height="589">
<tr>
<td height="40" colspan="2" align="center" class="title">
<p><b> 群发邮件系统</b></p> </td>
</tr>
<tr>
<td width='30%' class='tdbg1' height="25"><strong>邮件服务器地址：</strong> </td>
<td class='tdbg' height="25">
<input name='MailServer' type='text' id='MailServer' value='smtp.163.com' size='40'> <FONT color=#ff0000>*</FONT>
</td>
</tr>
<tr>
<td width='30%' class='tdbg1' height="25"><strong>登录用户名一：</strong>
</td>
<td class='tdbg' height="25">
<input name='MailServerUserName1' type='text' id='MailServerUserName1' value='XXX' size='40'> <FONT color=#ff0000>*</FONT>
</td>
</tr>
<tr>
<td width='30%' class='tdbg1' height="25"><strong>登录密码一：</strong>
</td>
<td class='tdbg' height="25">
<input name='MailServerPassWord1' type='password' id='MailServerPassWord1' value='***' size='40'> <FONT color=#ff0000>*</FONT>
</td>
</tr>
<tr>
<td width="30%" class="tdbg1" height="25">您的姓名：</td>
<td class="tdbg" height="25"><input name="name" type=text id="name" size=30>
<FONT color=#ff0000>*</FONT></td>
</tr>
<tr>
<td width="30%" class="tdbg1" height="25">您的E-mail：</td>
<td class="tdbg" height="25"><input name="email" type=text id="email" value="[email protected]" size=30>
<FONT color=#ff0000>*</FONT></td>
</tr>
<tr>
<td width="30%" class="tdbg1" height="25">收件人姓名：</td>
<td class="tdbg" height="25"><input name="toname" type=text id="toname" size=30>
<FONT color=#ff0000>*</FONT></td>
</tr>
<tr>
<td width="30%" class="tdbg1" height="25">收件人Email:</td>
<td class="tdbg" height="25"><input name="toemail" type="text" id="toemail" size="30" maxlength="100">
<FONT color=#ff0000>*</FONT></td>
</tr>
<tr>
<td width="30%" class="tdbg1" height="25">邮件标题：</td>
<td class="tdbg" height="25"><input type=text name="topic" size=30>
<FONT color=#ff0000>*</FONT></td>
</tr>
<tr>
<td width="30%" class="tdbg1" height="500">邮件内容：</td>
<td class="tdbg" height="500"><textarea name="body" cols=74 rows=34 id="body"></textarea>
<FONT color=#ff0000>*</FONT></td>
</tr>
<tr>
<td width="30%" class="tdbg" height="27"></td>
<td height=27 class="tdbg">
<input type="Submit" value="发送邮件" name="Submit">
<input type="reset" name="Clear" value="重新填写">
</td>
</tr>
</table>
</form>
<%
End Sub
Sub sendMail()
MailServer = trim(Request("MailServer")) 'SMTP服务器地址：smtp.163.com, 请修改
MailServerUserName = trim(Request("MailServerUserName")) 'SMTP登录用户名：[email protected], 请修改
MailServerPassWord = trim(Request("MailServerPassWord")) 'SMTP登录密码：***, 请修改,注意大小写
MailDomain = trim(Request("MailDomain")) 'SMTP域名：163.com, 请修改
FromName = trim(Request("name")) '发件人名字
MailFrom = trim(Request("email")) '发件人邮箱
MailtoName = trim(Request("toname")) '发件人名字
MailtoAddress=trim(Request("toemail")) '收件人邮箱
Subject = trim(Request("topic"))
MailBody = trim(Request("body"))
Priority=3
If FromName="" or MailFrom="" or MailtoName="" or Subject="" or MailBody="" then
FoundErr = True
ErrMsg = "请填写完整每一项信息！"
Exit Sub
End If
ErrMsg = JSendMail()
If ErrMsg<>"" Then
FoundErr = True
Exit Sub
Else
Response.Write WriteErrMsg("", ComeUrl,"成功信息")
End If
End Sub
Function JSendMail()
On Error Resume Next
JSendMail = ""
Dim JMail,tempMessage
Set JMail = Server.CreateObject("JMail.Message")
JMail.silent=true
JMail.Logging = True
JMail.Charset = "gb2312" '邮件编码
JMail.silent = True
JMail.ContentType = "text/html" '邮件正文格式
JMail.ServerAddress=MailServer '用来发送邮件的SMTP服务器
'如果服务器需要SMTP身份验证则还需指定以下参数
JMail.MailServerUserName = MailServerUserName1 '登录用户名
JMail.MailServerPassWord = MailServerPassWord1 '登录密码
JMail.AddRecipient MailtoAddress, MailtoName '收信人
JMail.Subject = Subject '主题
JMail.HtmlBody = MailBody '邮件正文（HTML格式）
JMail.Body = MailBody '邮件正文（纯文本格式）
JMail.FromName = FromName '发信人姓名
JMail.From = MailFrom '发信人Email
JMail.Priority = Priority '邮件等级，1为加急，3为普通，5为低级
Dim emailArray
If MailtoAddress="" then
set fsObj = Server.CreateObject("Scripting.FileSystemObject")
FilePath = Server.MapPath("email.txt")
set txtsObj = fsObj.OpenTextFile(FilePath, 1, false)
i = 0
Do While Not txtsObj.atEndOfStream
emailArray(i)=txtsObj.ReadLine
JMail.AddRecipient Trim(emailArray(i)),MailtoName
i=i+1
loop
Else
JMail.AddRecipient MailtoAddress, MailtoName
End If
JMail.Send (MailServer)
tempMessage = JMail.ErrorMessage
JMail.Close
Set JMail = Nothing
If tempMessage<>"" then
FoundErr = True
JSendMail = tempMessage
end if
Set JMail = Nothing
End Function
Function IsObjInstalled(strClassString)
On Error Resume Next
IsObjInstalled = False
Err = 0
Dim xTestObj
Set xTestObj = CreateObject(strClassString)
If Err.Number = 0 Then IsObjInstalled = True
Set xTestObj = Nothing
Err = 0
End Function
Function WriteErrMsg(sMsg, sComeUrl,Massages)
Dim strMsg
strMsg = strMsg & "<html><head><title>"&Massages&"</title><meta http-equiv='Content-Type' content='text/html; charset=gb2312'>" & vbCrLf
strMsg = strMsg & "</head><body><br><br>" & vbCrLf
strMsg = strMsg & "<table cellpadding=2 cellspacing=1 border=0 width=400 class='border' align=center>" & vbCrLf
strMsg = strMsg & " <tr align='center' class='title'><td height='22'><strong>"&Massages&"</strong></td></tr>" & vbCrLf
if FoundErr=True Then
strMsg = strMsg & " <tr class='tdbg'><td height='100' valign='top'><b>产生错误的可能原因：</b>" & sMsg & "</td></tr>" & vbCrLf
Else
strMsg = strMsg & " <tr class='tdbg'><td height='100' valign='top'><br><b>恭喜，成功用JMail发送邮件！</b>" & sMsg & "</td></tr>" & vbCrLf
End If
strMsg = strMsg & " <tr align='center' class='tdbg'><td>"
If sComeUrl <> "" Then
strMsg = strMsg & "<a href='javascript:history.go(-1)'><< 返回上一页</a>"
Else
strMsg = strMsg & "<a href='javascript:window.close();'>【关闭】</a>"
End If
strMsg = strMsg & "</td></tr>" & vbCrLf
strMsg = strMsg & "</table>" & vbCrLf
strMsg = strMsg & "</body></html>" & vbCrLf
WriteErrMsg = strMsg
End Function
%>
Ⅳ 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","收件人")%>-----
Ⅳ VB发邮件（只要发送）源码有哪些
jmail组件发邮件看能不能搜兄首达到你的满意~： Sub SendMail()
Dim jmail As Object
Set jmail = CreateObject("JMAIL.Message") ';建立发送邮件地对象
jmail.Silent = True ''一般不用改
jmail.Charset = "gb2312" ''信件地语言编码
jmail.ContentType = "text/html" ''信件地格式html或纯文本
jmail.From = "****@163.com" ''发信人邮箱
jmail.FromName = "****" ''发信人姓名
jmail.Subject = "" ''信尘兆件主题
jmail.AddRecipient "****" ''收信人地址世数
jmail.Body = "" ''信件正文
jmail.MailServerUserName = "****" ''服务器登陆用户名(您地邮件地址)
jmail.MailServerPassWord = "****" ''服务器登陆密码(您地邮件密码)
jmail.Send ("smtp.163.com") ''服务器地址
jmail.Close
Set jmail = Nothing
End Sub
Ⅵ 求java实现邮件发送的源代码
import java.util.*;
import javax.mail.*;import javax.mail.internet.*;
public class JMail {
public void SendMail(String Topic,String Content){ Properties props=new Properties(); props.put("mail.smtp.host","smtp.163.com"); props.put("mail.smtp.auth","true"); Session s=Session.getInstance(props); s.setDebug(false); MimeMessage message=new MimeMessage(s); MimeMultipart mp=new MimeMultipart(); BodyPart body = new MimeBodyPart(); InternetAddress from; InternetAddress to; try{ from=new InternetAddress("发件人邮箱"); message.setFrom(from); to = new InternetAddress("收件人邮箱"); message.setRecipient(Message.RecipientType.TO,to); message.setSubject(Topic,"utf-8"); body.setContent(Content, "text/html;charset=utf-8"); mp.addBodyPart(body); message.setContent(mp); message.setSentDate(new Date()); message.saveChanges(); Transport transport=s.getTransport("smtp"); transport.connect("smtp.163.com(邮件服务商，这是163的)","发件邮箱","发件邮箱密码"); transport.sendMessage(message,message.getAllRecipients()); transport.close(); } catch(AddressException e){ e.printStackTrace(); } catch(MessagingException e){ e.printStackTrace(); } }}