Jmail收发邮件(完整源码)_第1页
Jmail收发邮件(完整源码)_第2页
Jmail收发邮件(完整源码)_第3页
Jmail收发邮件(完整源码)_第4页
Jmail收发邮件(完整源码)_第5页
已阅读5页，还剩8页未读， 继续免费阅读

下载本文档

版权说明：本文档由用户提供并上传，收益归属内容提供方，若内容存在侵权，请进行举报或认领

文档简介

我特地把关键代码贴出来.大家一起学习!()+sql2000+jmail首先把功能介绍一下:主要介绍一点的就是.发送邮件这块功能.支持地址薄选地址(弹出窗口返回值).也支持用户自己填写email地址,同时支持群发(也就是用户组),主要代码如下:前台:<%@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>郵件發送</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">優先級別:</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">發送時間:</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">郵件內容：</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="發送郵件"/><asp:ButtonID="savebt"runat="server"Text="保存郵件"/><asp:ButtonID="clearbt"runat="server"Text="清空內容"/><asp:ButtonID="cancelbt"OnClick="cancelbt_click"runat="server"Text="取消"/></td></tr></table></div></form></body></html>后台:ImportsSystemImportsSystem.NetImportsSystem.IOImportsSystem.DataImportsSystem.Data.SqlClientImportsSystem.WebImportsSystem.Web.UIImportsjmailImportsSystem.Net.SocketsImportsFreeTextBoxControlsImportsFreeTextBoxControls.DesignImportsFreeTextBoxControls.ImageGalleryImportsdataImportsmailclassPartialClasssendmailInheritsSystem.Web.UI.PageDimmymailclassAsmailclass=Newmailclass''业务逻辑层.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("主題不能爲空")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="****"'密码'添加聯系人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'如果包含"@"则添加到收件人,否则查询数据库.AddRecipient(sendaddress(j).ToString)Elsemymailclass=Newmailclassaddress=mymailclass.getaddress(sendaddress(j).ToString)''通过用户名或组名得到email地址Ifaddress.ToString<>""ThenDimemailstring()AsString=address.Split(";")ForfAsInteger=0Toemailstring.Length-1.AddRecipient(emailstring(f).ToString)NextEndIfaddress=""EndIfNextElseResponse.Write("至少选择一个收件人!!")EndIfEndWithTryIf(mg.Send("",False)=True)Then'发邮件服务器Response.Write("发送成功")EndIfCatchexAsExceptionResponse.Write("連接網絡超時，請重試!或與技術人員聯系!!")EndTryEndSubEndClass收邮件:DimpopmailAsjmail.POP3Class=Newjmail.POP3Class()Trypopmail.Connect("chuxue","*****","","110")'用户名密码服务器popmail.Logging=TrueIfpopmail.Count>0ThenForiAsInteger=1Topopmail.CountDimmsAsMessage=popmail.Messages(i)Withms.Charset="UTF-8".ContentType="multipart/html"'这个很重要.避免邮件内容乱码.ContentTransferEncoding="BASE64".Encoding="BASE64"EndWithWithLabel3.Text+="邮件数"&popmail.Count&"<br/>".Text+=ms.From&"发件人"&ms.From&"<br/>".Text+="邮件主题"&ms.Subject&"<br/>".Text+=ms.Body&"<br/>".Text+=ms.Date&"<br/>"EndWith DimattsAsjmail.Attachments=ms.AttachmentsIfatts.Count>0ThenLabel3.Text+="附件数量"&atts.Count&"<br/>"DimjAsIntegerForj=0Toatts.Count-1Label3.Text+=atts.Item(j).NameNext'可以通过atts.item(j).savetofile("保存路径")保存附件到服务器EndIfNextElseLabel3.Text="没有新邮件"EndIfCatchexAsExceptionLabel3.Text="系统错误"&ex.MessageFinallypopmail.Disconnect()EndTry选择地址薄:这里我主要写js代码!需要注意一点:<basetarget="_self"></base><headrunat="server"><title>添加郵箱地址</title><scriptlanguage="javascript"type="text/javascript">functionreturnvalue(sendmail,ctomail,stomail)'通过dialogArguments获取父页面的变量传值{vartb=window.dialogArguments;tb.sendto=sendmail;tb.cto=ctomail;tb.sto=stomail;tb.getmailaddress();}</script><linkhref

人人文库> 全部分类> 应用文书 > 技术指导

温馨提示

  • 1. 本站所有资源如无特殊说明，都需要本地电脑安装OFFICE2007和PDF阅读器。图纸软件为CAD,CAXA,PROE,UG,SolidWorks等.压缩文件请下载最新的WinRAR软件解压。
  • 2. 本站的文档不包含任何第三方提供的附件图纸等，如果需要附件，请联系上传者。文件的所有权益归上传用户所有。
  • 3. 本站RAR压缩包中若带图纸，网页内容里面会有图纸预览，若没有图纸预览就没有图纸。
  • 4. 未经权益所有人同意不得将文件中的内容挪作商业或盈利用途。
  • 5. 人人文库网仅提供信息存储空间，仅对用户上传内容的表现方式做保护处理，对用户上传分享的文档内容本身不做任何修改或编辑，并不能对任何下载内容负责。
  • 6. 下载文件中如有侵权或不适当内容，请与我们联系，我们立即纠正。
  • 7. 本站不保证下载资源的准确性、安全性和完整性, 同时也不承担用户因使用这些下载资源对自己和他人造成任何形式的伤害或损失。

最新文档

评论

0/150

提交评论