Jmail收發(fā)郵件(完整源碼)_第1頁(yè)
Jmail收發(fā)郵件(完整源碼)_第2頁(yè)
Jmail收發(fā)郵件(完整源碼)_第3頁(yè)
Jmail收發(fā)郵件(完整源碼)_第4頁(yè)
Jmail收發(fā)郵件(完整源碼)_第5頁(yè)
已閱讀5頁(yè)，還剩8頁(yè)未讀， 繼續(xù)免費(fèi)閱讀

下載本文檔

版權(quán)說(shuō)明：本文檔由用戶提供并上傳，收益歸屬內(nèi)容提供方，若內(nèi)容存在侵權(quán)，請(qǐng)進(jìn)行舉報(bào)或認(rèn)領(lǐng)

文檔簡(jiǎn)介

我特地把關(guān)鍵代碼貼出來(lái).大家一起學(xué)習(xí)!()+sql2000+jmail首先把功能介紹一下:主要介紹一點(diǎn)的就是.發(fā)送郵件這塊功能.支持地址薄選地址(彈出窗口返回值).也支持用戶自己填寫(xiě)email地址,同時(shí)支持群發(fā)(也就是用戶組),主要代碼如下:前臺(tái):<%@PageLanguage="VB"AutoEventWireup="false"CodeFile="sendmail.aspx.vb"Inherits="sendmail"%><%@RegisterAssembly="FreeTextBox"Namespace="FreeTextBoxControls"TagPrefix="FTB"%><!DOCTYPEhtmlPUBLIC"-//W3C//DTDXHTML1.0Transitional//EN""/TR/xhtml1/DTD/xhtml1-transitional.dtd"><htmlxmlns="/1999/xhtml"><headrunat="server"><title>郵件發(fā)送</title><linkhref="body.css"rel="Stylesheet"type="text/css"/><scriptlanguage="javascript"type="text/javascript">window.onload=function(){document.getElementById("div1").style.visibility="hidden";}functionshowcalendar(){document.getElementById("div1").style.visibility="visible";}varsendto="";varcto=""varsto=""varattname=""functionshowmailaddress()''這里很重要,利用showmailDialog獲取值{window.showModalDialog('mailaddress.aspx',window,'resizable:yes;dialogWidth:640px;dialogHeight:550px;');}functiongetmailaddress(){if(document.getElementById("sendto").value!=""){document.getElementById("sendto").value+=";";}if(document.getElementById("cto").value!=""){document.getElementById("cto").value+=";";}if(document.getElementById("sto").value!=""){document.getElementById("sto").value+=";";}document.getElementById("sendto").value+=sendto;document.getElementById("cto").value+=cto;document.getElementById("sto").value+=sto;}functionshowmailatt(){window.showModalDialog('mailatt.aspx',window,'center:yes;dialogHeight:10px;dialogWidth:400px;');}functiongetattname()''獲取附件{varatt=document.getElementById("attname");if(att.value!=""){att.value+=";";}att.value+=attname;}</script><linkhref="body.css"rel="Stylesheet"type="text/css"/></head><body><formid="form1"runat="server"><divalign="center"><tablewidth="100%"><tr><tdalign="left"><labelid="label1">收件人</label><imgstyle="cursor:hand"onclick="showmailaddress();"src="TreeLineImages/mailbox.bmp"/><inputid="sendto"style="width:80%;"type="text"runat="server"/></tr><tr><tdalign="left"><labelid="label2">抄  送</label><imgstyle="cursor:hand"onclick="showmailaddress();"src="TreeLineImages/mailbox.bmp"/><inputid="cto"style="width:80%;"type="text"runat="server"/></td></tr><tr><tdalign="left"><labelid="label3">密   送</label><imgstyle="cursor:hand"onclick="showmailaddress();"src="TreeLineImages/mailbox.bmp"/><inputid="sto"style="width:80%;"type="text"runat="server"/></td></tr> <tr><tdalign="left"><labelid="label4">優(yōu)先級(jí)別:</label><asp:DropDownListID="graddl"runat="server"AutoPostBack="True"><asp:ListItemValue="1">高</asp:ListItem><asp:ListItemValue="3">中</asp:ListItem><asp:ListItemValue="5">低</asp:ListItem></asp:DropDownList>                                                <labelid="label5">發(fā)送時(shí)間:</label><inputid="sendtime"runat="server"type="text"/><imgstyle="cursor:hand"onclick="showcalendar();"runat="server"src="images/calender.BMP"id="IMG1"/><divid="div1"style="z-index:101;left:616px;width:100px;position:absolute;top:128px;height:100px"><asp:CalendarID="Calendar1"runat="server"BackColor="White"OnSelectionChanged="Calendar1_SelectionChanged"BorderColor="#999999"Font-Names="Verdana"Font-Size="8pt"ForeColor="Black"Height="180px"Width="200px"CellPadding="4"DayNameFormat="Shortest"><SelectedDayStyleBackColor="#666666"ForeColor="White"Font-Bold="True"/><TodayDayStyleBackColor="#CCCCCC"ForeColor="Black"/><OtherMonthDayStyleForeColor="#808080"/><NextPrevStyleVerticalAlign="Bottom"/><DayHeaderStyleFont-Bold="True"Font-Size="7pt"BackColor="#CCCCCC"/><TitleStyleBackColor="#999999"BorderColor="Black"Font-Bold="True"/><SelectorStyleBackColor="#CCCCCC"/><WeekendDayStyleBackColor="#FFFFCC"/></asp:Calendar></div></tr><tr><tdalign="left"><labelid="label6">附  件</label><imgstyle="cursor:hand;width:20px;height:16px"onclick="showmailatt();"src="images/nodeopen.BMP"/><inputid="attname"style="width:80%"type="text"runat="server"/></td></tr><tr><tdalign="left"><labelid="label7">郵件主題</label>;<inputid="subject"style="width:80%"type="text"runat="server"/></td></tr><tr><tdalign="left">郵件內(nèi)容：</td></tr><tr><tdalign="left"style="height:358px"><FTB:FreeTextBoxID="mailbody"Width="90%"runat="server"></FTB:FreeTextBox></td></tr><tr><tdalign="left"><asp:ButtonID="sendbt"runat="server"OnClick="sendbt_Click"Text="發(fā)送郵件"/><asp:ButtonID="savebt"runat="server"Text="保存郵件"/><asp:ButtonID="clearbt"runat="server"Text="清空內(nèi)容"/><asp:ButtonID="cancelbt"OnClick="cancelbt_click"runat="server"Text="取消"/></td></tr></table></div></form></body></html>后臺(tái):ImportsSystemImportsSystem.NetImportsSystem.IOImportsSystem.DataImportsSystem.Data.SqlClientImportsSystem.WebImportsSystem.Web.UIImportsjmailImportsSystem.Net.SocketsImportsFreeTextBoxControlsImportsFreeTextBoxControls.DesignImportsFreeTextBoxControls.ImageGalleryImportsdataImportsmailclassPartialClasssendmailInheritsSystem.Web.UI.PageDimmymailclassAsmailclass=Newmailclass''業(yè)務(wù)邏輯層.ProtectedSubCalendar1_SelectionChanged(ByValsenderAsObject,ByValeAsSystem.EventArgs)sendtime.Value=Calendar1.SelectedDateCalendar1.Style("visibility")="hidden"EndSubProtectedSubsendbt_Click(ByValsenderAsObject,ByValeAsSystem.EventArgs)DimmgAsjmail.Message=Newjmail.MessageDimaddressAsString=""With(mg).From="chuxue1342@".FromName="陳勝軍".Charset="UTF-8".ContentType="multipart/html".ISOEncodeHeaders=False.Encoding="BASE64".Priority=Convert.ToByte(graddl.SelectedValue)Ifsubject.Value<>""Then.Subject=subject.ValueElseResponse.Write("主題不能爲(wèi)空")ExitSubEndIf.Body=mailbody.Text'添加附件DimattsAsString=attname.ValueIfatts<>""ThenDimattal()AsString=atts.Split(";")ForiAsInteger=0Toattal.Length-1.AddAttachment(attal(i).ToString,False,"附件"&CInt(i)+1)NextEndIf.MailServerUserName="chuxue"'用戶名.MailServerPassWord="****"'密碼'添加聯(lián)系人DimsendaddressesAsString=sendto.ValueIfcto.Value<>""Thensendaddresses+=";"&cto.ValueEndIf&nb;Ifsto.Value<>""Thensendaddresses+=";"&sto.ValueEndIfDimsendaddress()AsString=sendaddresses.Split(";")Ifsendaddress.Length>0ThenForjAsInteger=0Tosendaddress.Length-1Ifsendaddress(j).IndexOf("@")>0Then'如果包含"@"則添加到收件人,否則查詢(xún)數(shù)據(jù)庫(kù).AddRecipient(sendaddress(j).ToString)Elsemymailclass=Newmailclassaddress=mymailclass.getaddress(sendaddress(j).ToString)''通過(guò)用戶名或組名得到email地址Ifaddress.ToString<>""ThenDimemailstring()AsString=address.Split(";")ForfAsInteger=0Toemailstring.Length-1.AddRecipient(emailstring(f).ToString)NextEndIfaddress=""EndIfNextElseResponse.Write("至少選擇一個(gè)收件人!!")EndIfEndWithTryIf(mg.Send("",False)=True)Then'發(fā)郵件服務(wù)器Response.Write("發(fā)送成功")EndIfCatchexAsExceptionResponse.Write("連接網(wǎng)絡(luò)超時(shí)，請(qǐng)重試!或與技術(shù)人員聯(lián)系!!")EndTryEndSubEndClass收郵件:DimpopmailAsjmail.POP3Class=Newjmail.POP3Class()Trypopmail.Connect("chuxue","*****","","110")'用戶名密碼服務(wù)器popmail.Logging=TrueIfpopmail.Count>0ThenForiAsInteger=1Topopmail.CountDimmsAsMessage=popmail.Messages(i)Withms.Charset="UTF-8".ContentType="multipart/html"'這個(gè)很重要.避免郵件內(nèi)容亂碼.ContentTransferEncoding="BASE64".Encoding="BASE64"EndWithWithLabel3.Text+="郵件數(shù)"&popmail.Count&"<br/>".Text+=ms.From&"發(fā)件人"&ms.From&"<br/>".Text+="郵件主題"&ms.Subject&"<br/>".Text+=ms.Body&"<br/>".Text+=ms.Date&"<br/>"EndWith DimattsAsjmail.Attachments=ms.AttachmentsIfatts.Count>0ThenLabel3.Text+="附件數(shù)量"&atts.Count&"<br/>"DimjAsIntegerForj=0Toatts.Count-1Label3.Text+=atts.Item(j).NameNext'可以通過(guò)atts.item(j).savetofile("保存路徑")保存附件到服務(wù)器EndIfNextElseLabel3.Text="沒(méi)有新郵件"EndIfCatchexAsExceptionLabel3.Text="系統(tǒng)錯(cuò)誤"&ex.MessageFinallypopmail.Disconnect()EndTry選擇地址薄:這里我主要寫(xiě)js代碼!需要注意一點(diǎn):<basetarget="_self"></base><headrunat="server"><title>添加郵箱地址</title><scriptlanguage="javascript"type="text/javascript">functionreturnvalue(sendmail,ctomail,stomail)'通過(guò)dialogArguments獲取父頁(yè)面的變量傳值{vartb=window.dialogArguments;tb.sendto=sendmail;tb.cto=ctomail;tb.sto=stomail;tb.getmailaddress();}</script><linkhref

溫馨提示

  • 1. 本站所有資源如無(wú)特殊說(shuō)明，都需要本地電腦安裝OFFICE2007和PDF閱讀器。圖紙軟件為CAD,CAXA,PROE,UG,SolidWorks等.壓縮文件請(qǐng)下載最新的WinRAR軟件解壓。
  • 2. 本站的文檔不包含任何第三方提供的附件圖紙等，如果需要附件，請(qǐng)聯(lián)系上傳者。文件的所有權(quán)益歸上傳用戶所有。
  • 3. 本站RAR壓縮包中若帶圖紙，網(wǎng)頁(yè)內(nèi)容里面會(huì)有圖紙預(yù)覽，若沒(méi)有圖紙預(yù)覽就沒(méi)有圖紙。
  • 4. 未經(jīng)權(quán)益所有人同意不得將文件中的內(nèi)容挪作商業(yè)或盈利用途。
  • 5. 人人文庫(kù)網(wǎng)僅提供信息存儲(chǔ)空間，僅對(duì)用戶上傳內(nèi)容的表現(xiàn)方式做保護(hù)處理，對(duì)用戶上傳分享的文檔內(nèi)容本身不做任何修改或編輯，并不能對(duì)任何下載內(nèi)容負(fù)責(zé)。
  • 6. 下載文件中如有侵權(quán)或不適當(dāng)內(nèi)容，請(qǐng)與我們聯(lián)系，我們立即糾正。
  • 7. 本站不保證下載資源的準(zhǔn)確性、安全性和完整性, 同時(shí)也不承擔(dān)用戶因使用這些下載資源對(duì)自己和他人造成任何形式的傷害或損失。

最新文檔

評(píng)論

0/150

提交評(píng)論