郵箱發信源碼
Ⅰ 請問誰有發送郵件的那個網頁 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(); } }}