邮件收发系统代码(邮件收发管理系统)
admin 发布:2022-12-19 18:43 112
今天给各位分享邮件收发系统代码的知识,其中也会对邮件收发管理系统进行解释,如果能碰巧解决你现在面临的问题,别忘了关注本站,现在开始吧!
本文目录一览:
- 1、高分求asp代码:用户输入email ,系统接收后自动发送邮件到这个email。
- 2、求一个javaweb邮件收发系统eclipse源代码,tomcat可以运行的。
- 3、如何用VB发电子邮件,请各位高手指教!
高分求asp代码:用户输入email ,系统接收后自动发送邮件到这个email。
人家要ASP的源代码,楼上的给.NET的。呵呵。
你这个啊,下载一个免费的JMAIL,按照要求安装上。
JMAIL就是常用的发送EMAIL的组件。
然后网上关于JMAIL如何发送邮件的有的是,自己找找。
给你一段我的参考代码,自己研究研究。要是找人一点不差的做出来给你,没人能回答你的。
'JMAIL发送邮件
Call SendMail()
Sub SendMail()
On Error Resume Next
Set JMail=Server.CreateObject("JMail.Message") '创建对象
If Err Then
Err.Clear
Response.Write "邮件发送组件检测失败。"
JMail.Close()
Set JMail = Nothing
Exit Sub
End If
JMail.Charset = "gb2312" '邮件字符集(简体中文)
JMail.ContentType = "text/html" '邮件编码
JMail.ReturnReceipt = True '是否收条
JMail.silent = True '忽略错误
'发送者信息
JMail.From = "xxx@xxx.com" ' 发送者地址
JMail.FromName = "王先生" ' 发送者姓名
'身份验证
JMail.MailServerUserName = "xxxxx" ' 身份验证的用户名
JMail.MailServerPassword = "*****" ' 身份验证的密码
' 邮件的紧急程序,1为最快,5为最慢,3 为默认值
JMail.Priority = 3
JMail.AddHeader "Originating-IP", Request.ServerVariables("REMOTE_ADDR")
'接收者信息
JMail.AddRecipient("xx@xx.com") '加入一个收件人
JMail.Subject = "通行证激活邮件" ' 邮件主题
'邮件主体(html格式)
MailBody = ""
MailBody = "!DOCTYPE HTML PUBLIC ""-//W3C//DTD HTML 4.01 Transitional//EN"""
MailBody = MailBody "html"
MailBody = MailBody "head"
MailBody = MailBody "meta http-equiv=""Content-Type"" content=""text/html; charset=gb2312"""
MailBody = MailBody "style"
MailBody = MailBody "body,tr,td {font-family:Arial, Helvetica, sans-serif;font-size:14px;color:#3b3b3b;line-height:21px;}"
MailBody = MailBody "a:link,a:visited {font-size:14px;color:#0000FF;font-family:Arial, Helvetica, sans-serif;text-decoration:underline;}"
MailBody = MailBody "a:hover {font-size:14px;color:#C80700;font-family:Arial, Helvetica, sans-serif;text-decoration:none;}"
MailBody = MailBody "/style"
MailBody = MailBody "/head"
MailBody = MailBody "body bgcolor=""#F9F9F9"" leftmargin=""0"" topmargin=""4"" marginwidth=""0"" marginheight=""0"""
MailBody = MailBody "table width=""560"" border=""0"" align=""center"" cellpadding=""2"" cellspacing=""1"""
MailBody = MailBody "tr"
MailBody = MailBody "td colspan=""2""尊敬的xxx用户:br您好!/td"
MailBody = MailBody "/tr"
MailBody = MailBody "tr"
MailBody = MailBody "td width=""40"" /td"
MailBody = MailBody "td正文内容/td"
MailBody = MailBody "/tr"
MailBody = MailBody "/table"
MailBody = MailBody "/body"
MailBody = MailBody "/html"
JMail.HTMLBody = MailBody
' 发送【调用格式:objJMail.Send([username:password@]SMTPServerAddress[:Port])】
JMail.Send("smtp.exmail.qq.com") '发送邮箱的SMTP
' 关闭并清除对象
JMail.Close()
Set JMail = Nothing
End Sub
求一个javaweb邮件收发系统eclipse源代码,tomcat可以运行的。
package me.gacl.main;
import java.util.Properties;
import javax.mail.Message;
import javax.mail.Session;
import javax.mail.Transport;
import javax.mail.internet.InternetAddress;
import javax.mail.internet.MimeMessage;
public class Sendmail {
/**
* @param args
* @throws Exception
*/
public static void main(String[] args) throws Exception {
Properties prop = new Properties();
prop.setProperty("mail.host", "smtp.sohu.com");
prop.setProperty("mail.transport.protocol", "smtp");
prop.setProperty("mail.smtp.auth", "true");
//使用JavaMail发送邮件的5个步骤
//1、创建session
Session session = Session.getInstance(prop);
//开启Session的debug模式,这样就可以查看到程序发送Email的运行状态
session.setDebug(true);
//2、通过session得到transport对象
Transport ts = session.getTransport();
//3、使用邮箱的用户名和密码连上邮件服务器,发送邮件时,发件人需要提交邮箱的用户名和密码给smtp服务器,用户名和密码都通过验证之后才能够正常发送邮件给收件人。
ts.connect("smtp.sohu.com", "gacl", "邮箱密码");
//4、创建邮件
Message message = createSimpleMail(session);
//5、发送邮件
ts.sendMessage(message, message.getAllRecipients());
ts.close();
}
/**
* @Method: createSimpleMail
* @Description: 创建一封只包含文本的邮件
* @param session
* @return
* @throws Exception
*/
public static MimeMessage createSimpleMail(Session session)
throws Exception {
//创建邮件对象
MimeMessage message = new MimeMessage(session);
//指明邮件的发件人
message.setFrom(new InternetAddress("gacl@sohu.com"));
//指明邮件的收件人,现在发件人和收件人是一样的,那就是自己给自己发
message.setRecipient(Message.RecipientType.TO, new InternetAddress("gacl@sohu.com"));
//邮件的标题
message.setSubject("只包含文本的简单邮件");
//邮件的文本内容
message.setContent("你好啊!", "text/html;charset=UTF-8");
//返回创建好的邮件对象
return message;
}
}
如何用VB发电子邮件,请各位高手指教!
使用VB收发电子邮件
一、准备工作
在VB中编写电子邮件程序需要通过调用微软公司的MAPI(Messaging Application Programming Interface,消息应用程序编程接口),这需要借助两个实现电子邮件收发功能的核心控件:MAPI会话控件和MAPI消息控件。MAPI会话控件用于建立和控制一个Microsoft Mail会话,MAPI消息控件用于创建和收发邮件消息。此外,Windows系统中必须要有遵从MAPI的邮件系统,比如Exchange、Outlook等软件,而还要进行一番设置,确保邮件系统可以正常使用。
MAPI控件在哪里找呢?
在VB中就有现成的,不过程序没有直接放置在工具箱里,需要我们自己将MAPI控件加入VB工具箱。首先直接在VB左边的控件栏中右击鼠标,并在弹出菜单中选择“部件”命令,这时可以激活部件设置窗口,在其中的“控件”列表框中选取“Microsoft MAPI Controls”一项(如图1所示),接着按下“确定”按钮之后可以发现工具箱中将多出了两个图标,这就是MAPI会话控件和MAPI消息控件的图标(如图2所示)。
二、邮件发送程序
添加好我们所需要的控件之后,就开始定制邮件的发送程序吧。这个邮件发送程序的基本处理过程是:根据用户输入信息组成邮件,然后使用MAPI消息控件的Send方法将邮件发出。具体的方法按照下述步骤完成:
1、新建一个VB项目,并将缺省窗体Form1的Caption属性设置为“发送邮件”。
2、在Form1中加入一个MAPI会话控件MAPISession1和一个MAPI消息控件MAPIMessages1。
3、在Form1中加入三个TextBox控件,将它们的名称属性分别设置为“txtSendTo”、“txtSubject”和“txtMessage”,另外还要将txtMessage的Multiline属性设置为“True”。这三个TextBox控件将分别用于填写邮件的收件人地址、邮件主题和邮件正文。
4、在Form1中加入三个Label控件,将它们的Caption属性分别设置为“收件人”、“主题”和“内容”,并将它们放在合适的位置用以标注相应的TextBox控件。
5、在Form1中加入一个Command Button控件,将其Caption属性和名称属性分别设置为“发送”和“Send”。
所有的控件添加完毕之后应该如图3所示。
下面是代码部分的内容:
1、将下列代码加入Form1的Form_Load事件:
Private Sub Form_Load()
MAPISession1.SignOn /运行程序之后进行邮箱登录操作
End Sub
2、将下列代码加入Form1的Form_Unload事件:
Private Sub Form_Unload(Cancel As Integer)
MAPISession1.SignOff /退出程序时候进行退出邮箱操作
End Sub
3、将下列代码加入cmdSend的Click事件:
Private Sub cmdSend_Click()
With MAPIMessages1
.MsgIndex = -1
.RecipDisplayName = txtSendTo.Text /收信人地址
.MsgSubject = txtSubject.Text /邮件主题
.MsgNoteText = txtMessage.Text /邮件正文
.SessionID = MAPISession1.SessionID /发送程序和邮件工具之间建立的任务数
.Send
End With
MsgBox "邮件发送完毕!", , "发送邮件" /发送成功显示信息框
End Sub
这样一个电子邮件发送部分就制作完成了,运行程序之后只要填写好邮件的收件人、主题和内容后,按下“发送”命令按钮,邮件就已经成功地发往目的地了(如图4所示)。
三、邮件接收程序
邮件接收程序比邮件发送程序要复杂一些,这个程序首先需要使用MAPI消息控件的Fetch方法读取邮件,这个过程将把用户收件箱中所有未读邮件全部装入MAPI消息控件中。接着,检查MAPI消息控件的MsgCount属性以确定通过Fetch方法读取的邮件的总数,然后可以通过设置MAPI消息控件的MsgIndex属性来指定具体需要处理哪一封邮件。需要说明的是,MsgIndex属性值的计数是从0开始的,也就是说,第一封邮件的索引号是0,第二封邮件的索引号是1,依次类推。具体步骤如下:
1、新建一个VB项目,将缺省窗体Form1的Caption属性设置为“接收邮件”。
2、在Form1中加入一个MAPI会话控件MAPISession1和一个MAPI消息控件MAPIMessages1。
3、在Form1中加入三个Label控件和一个TextBox控件,将三个标签控件的名称属性分别设置为“lblMsgDateReceived”、“lblMsgOrigDisplayName”和“lblMsgSubject”,将TextBox控件的名称属性设置为“txtMsgNoteText”,并将标签控件的Caption属性和文本框控件的Text属性的内容清空。这四个控件将分别用于显示邮件的日期、发件人、主题和内容。
4、将txtMsgNoteText控件的Locked属性和Multiline属性设置为“True”,ScrollBars属性设置为“2-Vertical”。
5、在Form1中再加入四个Label控件用于标注上述四个控件,将它们的Caption属性分别设置为“日期”、“发件人”、“主题”和“内容”。
6、在Form1中加入一个Label控件,将其名称属性设置为“lblMsgCount”,Caption属性设置为“第 0 封邮件,总计 0 封邮件”。这个控件用于显示接收的邮件总数以及当前正在处理第几封邮件。
7、在Form1中加入三个Command Button控件,将它们的名称属性分别设置为“cmdPrevious”、“cmdNext”和“cmdClose”,Caption属性分别设置为“上一封”、“下一封”和“关闭”。
所有的控件添加完毕之后应该如图5所示。
小蘑菇:那么具体的程序代码呢?
小叮当:又着急了不是?我还会骗你吗?下面就是具体的程序代码:
1、编写一个子程序FetchNewMail:
Public Sub FetchNewMail()
MAPIMessages1.FetchUnreadOnly = True
MAPIMessages1.Fetch /Fetch命令将信件抓到系统存贮器的inbuffer中
End Sub
2、编写一个子程序DisplayMessage:
Public Sub DisplayMessage()
lblMsgCount.Caption = "第 " Ltrim(Str(MAPIMessages1.MsgIndex + 1)) " 封邮件,总计 " Ltrim(Str(MAPIMessages1.MsgCount)) " 封邮件" /由MsgCount知道信件数量,再用MsgIndex设置要看 哪一封信件的内容、标题
lblMsgDateReceived.Caption = MAPIMessages1.MsgDateReceived /收取信件的日期
txtMsgNoteText.Text = MAPIMessages1.MsgNoteText /收取信件的内容
lblMsgOrigDisplayName.Caption = MAPIMessages1.MsgOrigDisplayName /发送邮件的姓名
lblMsgSubject.Caption = MAPIMessages1.MsgSubject /邮件主题
End Sub
3、将下列代码加入Form1的Form_Load事件:
Private Sub Form_Load()
MAPISession1.SignOn
MAPIMessages1.SessionID = MAPISession1.SessionID
FetchNewMail /调用Fetch子程序
DisplayMessage /调用DisPlayMessage子程序
End Sub
4、将下列代码加入cmdPrevious的Click事件:
Private Sub cmdPrevious()
If MAPIMessages1.MsgIndex 0 Then
MAPIMessages1.MsgIndex = MAPIMessages1.MsgIndex - 1 /当收取信件超过1封的时候,通过“上一封”按钮查看前面的信件
DisplayMessage
Else
Beep
End If
End Sub
5、将下列代码加入cmdNext的Click事件:
Private Sub cmdNext_Click()
If MAPIMessages1.MsgIndex MAPIMessages1.MsgCount - 1 Then
MAPIMessages1.MsgIndex = MAPIMessages1.MsgIndex + 1 /当收取信件超过1封的时候,通过“下一封”按钮查看后面的信件
DisplayMessage
Else
Beep
End If
End Sub
15、将下列代码加入cmdClose的Click事件:
Private Sub cmdClose_Click()
Unload Me
End Sub
程序运行后如图6所示。在窗体加载过程中,窗体Load事件中的代码会读取新邮件,如果有新邮件,就显示第一个新邮件,如果有多个新邮件,则可以使用“上一封”和“下一封”命令按钮前后翻阅。
邮件收发系统代码的介绍就聊到这里吧,感谢你花时间阅读本站内容,更多关于邮件收发管理系统、邮件收发系统代码的信息别忘了在本站进行查找喔。
版权说明:如非注明,本站文章均为 AH站长 原创,转载请注明出处和附带本文链接;
- 上一篇:闪字代码(闪字代码生存器)
- 下一篇:淘宝评价页面代码(淘宝浏览评价怎么弄)
相关推荐
- 04-29文字特效js代码(文字效果代码)[20240429更新]
- 04-29phpqq代码(免费代码)[20240429更新]
- 04-29css广告代码生成器(广告设计生成器)[20240429更新]
- 04-29简单的菜单点击改变图片代码(点击编辑图片改变)[20240429更新]
- 04-29discuz代码注入(discuz代码使用教程)[20240429更新]
- 04-29连连看c代码(连连看的代码)[20240429更新]
- 04-29网页图片闪烁js代码(css实现图片闪烁动画)[20240429更新]
- 04-29数据结构代码(数据结构代码题怎么写)[20240429更新]
- 04-29vb程序设计代码(vb程序设计代码题怎么做)[20240429更新]
- 04-29vc代码库(vc函数库)[20240429更新]
取消回复欢迎 你 发表评论:
- 标签列表
- 最近发表
- 友情链接