怎么用VB命令按钮实现邮件发送

用VB收发电子邮件 一、准备工作 在VB中编写电子邮件程序需要通过调用微软公司的MAPI（Messaging Application Programming Interface，消息应用程序编程接口），这需要借助两个实现电子邮件收发功能的核心控件：MAPI会话控件和MAPI消息控件。MAPI会话控件用于建立和控制一个Microsoft Mail会话，MAPI消息控件用于创建和收发邮件消息。此外，Windows系统中必须要有遵从MAPI的邮件系统，比如Exchange、Outlook等软件，而还要进行一番设置，确保邮件系统可以正常使用。 MAPI控件在哪里找呢？ 在VB中就有现成的，不过程序没有直接放置在工具箱里，需要我们自己将MAPI控件加入VB工具箱。首先直接在VB左边的控件栏中右击鼠标，并在d出菜单中选择“部件”命令，这时可以激活部件设置窗口，在其中的“控件”列表框中选取“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() MAPISession1SignOn /运行程序之后进行邮箱登录 *** 作 End Sub 2、将下列代码加入Form1的Form_Unload事件： Private Sub Form_Unload(Cancel As Integer) MAPISession1SignOff /退出程序时候进行退出邮箱 *** 作 End Sub 3、将下列代码加入cmdSend的Click事件： Private Sub cmdSend_Click() With MAPIMessages1 MsgIndex = -1 RecipDisplayName = txtSendToText /收信人地址 MsgSubject = txtSubjectText /邮件主题 MsgNoteText = txtMessageText /邮件正文 SessionID = MAPISession1SessionID /发送程序和邮件工具之间建立的任务数 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() MAPIMessages1FetchUnreadOnly = True MAPIMessages1Fetch /Fetch命令将信件抓到系统存贮器的inbuffer中 End Sub 2、编写一个子程序DisplayMessage： Public Sub DisplayMessage() lblMsgCountCaption = "第 " & Ltrim(Str(MAPIMessages1MsgIndex + 1)) & " 封邮件，总计 " & Ltrim(Str(MAPIMessages1MsgCount)) & " 封邮件" /由MsgCount知道信件数量，再用MsgIndex设置要看 哪一封信件的内容、标题 lblMsgDateReceivedCaption = MAPIMessages1MsgDateReceived /收取信件的日期 txtMsgNoteTextText = MAPIMessages1MsgNoteText /收取信件的内容 lblMsgOrigDisplayNameCaption = MAPIMessages1MsgOrigDisplayName /发送邮件的姓名 lblMsgSubjectCaption = MAPIMessages1MsgSubject /邮件主题 End Sub 3、将下列代码加入Form1的Form_Load事件： Private Sub Form_Load() MAPISession1SignOn MAPIMessages1SessionID = MAPISession1SessionID FetchNewMail /调用Fetch子程序 DisplayMessage /调用DisPlayMessage子程序 End Sub 4、将下列代码加入cmdPrevious的Click事件： Private Sub cmdPrevious() If MAPIMessages1MsgIndex > 0 Then MAPIMessages1MsgIndex = MAPIMessages1MsgIndex - 1 /当收取信件超过1封的时候，通过“上一封”按钮查看前面的信件 DisplayMessage Else Beep End If End Sub 5、将下列代码加入cmdNext的Click事件： Private Sub cmdNext_Click() If MAPIMessages1MsgIndex < MAPIMessages1MsgCount - 1 Then MAPIMessages1MsgIndex = MAPIMessages1MsgIndex + 1 /当收取信件超过1封的时候，通过“下一封”按钮查看后面的信件 DisplayMessage Else Beep End If End Sub 15、将下列代码加入cmdClose的Click事件： Private Sub cmdClose_Click() Unload Me End Sub 程序运行后如图6所示。在窗体加载过程中，窗体Load事件中的代码会读取新邮件，如果有新邮件，就显示第一个新邮件，如果有多个新邮件，则可以使用“上一封”和“下一封”命令按钮前后翻阅。

参考资料：

打开电子邮件的官网。

输入对方接受者的邮件地址。

取个名字。

如果文件大。需要点击添加附件，找到文件，上传。

完毕点击发送即可。

如果是程序，可以压缩后再添加文件后添加在发送。

电子邮件的传输过程

发送方服务器把邮件传到收件方服务器，收件方服务器再把邮件发到收件人的邮箱中。更进一步的解释：首先, 写好的邮件发送后到达发送方的服务器，然后由邮件传输代理（MTA -- Mail Transport Agent），负责把邮件由一个服务器传到另一个服务器，然后, 邮件投递代理（MDA -- Mail Delivery Agent），把邮件放到用户的邮箱里。

电子邮件系统的主要组成部分

（1）邮件服务器

（2）邮箱

（3）电子邮件应用程序

各部分的作用

邮件服务器主要功能

（1）接收用户送来的邮件，并根据目的地址将其传送到对方的邮件服务器；

（2）接收从其他邮件服务器发来的邮件，并根据接收地址将其分发到用户邮箱中。

邮箱主要功能：为用户存储、接收电子邮件。邮箱是 私人的，拥有账号和密码属性，合法用户才能阅读邮箱中的邮件。

电子邮件应用程序主要功能

（1）创建和发送邮件；

（2）接收、阅读和管理邮件；

（3）附加功能：如通讯簿管理、收件箱助理及账号管理。

      电子邮件，electronic mail，简称E-mail，标志是@,，又称电子信箱、电子邮政，电子邮件指用电子手段传送信件、单据、资料等信息的通信方法，通过网络的电子邮件系统，用户可以用非常低廉的价格、以非常快速的方式，与世界上任何一个角落的网络用户联系，这些电子邮件可以是文字、图象、声音等各种方式。

要是软件不大的话也许可以通过QQ网络硬盘来传，先上传到你自己的QQ网络硬盘再以附件的形式发，我用163的网络硬盘经常这样发的，QQ的应该也是一样吧。但是只能传很小的东西。

最好是你和你的朋友上网直接用QQ的文件传输功能。

要发电子邮件你必须要有一个电子邮箱。现在用的比较多的或>

问题一：怎么用电脑给手机发送邮件 1、发送邮件前，你先得注册一个邮箱，有很多邮箱可以选择，咱们以QQ邮箱为例。打开百度或者任何搜索浏览器，输入QQ邮箱或等等邮箱。

2、然后输入你的账号和密码，进入邮箱。

3、点击写信，输入你手机的邮箱，例如QQ邮箱可以直接输入QQ号，其他邮箱必须输入全部的连带@sina等等。如果有等点添加附件。

问题二：电脑怎么发邮件 楼主，你始终还是需要注册一个邮箱，将你所注册的邮箱的发送服务器（ tp）、接收服务器（pop）和你的账号密码加入到outlook或者foxmail之类的客户端才行

问题三：如何直用电脑怎么发邮件 这是使用的微软的OUTLOOK进行邮件的发送，就是一款邮件工具，可以说成是邮箱的客户端。

首先你必须有自己的账户，最好是微软的邮箱。

开始--程序---OUTLOOK EXPRESS--创建你的帐户

并且测试能够通过

这样就可以点击邮件选择发送到邮件接收者了

注:不能发EXE文件

不过现在免费账户好像已经不能使用OUTLOOK发送邮件了，要升级成收费用户才行。这个功能我已经好久不用了，直接从右键中清除了。

问题四：怎么用电脑发邮件到别人邮箱 你好，要发电子邮件的话在计算机中是有很多方法的：

1、通过各大平台，如：163邮箱,QQ邮箱，雅虎等等。

2、要给别人传递信息不一定要发邮件，可以通过即时通讯来实现，当下主流的即时通讯有：腾讯QQ，YY语言等

问题五：怎么从电脑上发邮件 baidu

输入注册邮箱, 然后点击, 开始完成注册, 点写信息, 然后填写要发送的人的地址, 要发送的信息内容, 完成, 发送,

它会提示发送成功的。

另外我支持楼上意见, 注册个QQ，QQ里面就有注册邮箱的, 很方便。

问题六：电脑上如何自己给自己发邮件 点开QQ邮箱，写新邮件，收件人地址那里写上自已的邮件地址，发送就可以了

问题七：怎么直接用电脑发送邮件？ 最起码得有一个自己的邮箱帐号啊

电脑里自带的一个outlook软订是用来收发邮件的，需要进行一些设置

在每个大的电子邮箱提供商网站都会有一些设置outlook的介绍，你可以去看一下啊

问题八：怎么用电脑给手机邮箱发邮件 首先要知道您手机邮箱的邮箱地址，再进入网站的邮箱，把手机邮箱的地址输入收件人里就可以发送了哦。

问题九：在电脑的文档怎么发送到网上的邮箱 如果不用网上邮箱发送到邮箱的方式，那你至少要有一个本地的邮箱软件，比如foxmail，windows live mail等软件，要安装在电脑上，当然windows自带的outlook express也能发。

步骤如下：

1，保持上网状态

2，拥有自己的邮箱账号和密码（推荐163，sina，qq等知名网站）

3，将自己的邮箱账号关联到本地的发送mail的软件上

4，点击 新建邮件（几乎所有的mail软件都有这样的选项）

5，如果你要发送文档，你可以选择把文档当作附件加入信中，或者复制文档的文字到信中

6，填入你的信的收信人的邮箱地址

7，检查无误，点击发送

8，成功~~^_^

问题十：电脑上怎么装发邮件程序， 网易的有邮箱的客户端，大部分邮箱类型都支持，很好用，我平时都有用，主要是小、快！

地址：fm163/

以上就是关于怎么用VB命令按钮实现邮件发送全部的内容，包括:怎么用VB命令按钮实现邮件发送、用于电子邮件收发和管理的软件是、请教发送电子邮件的程序的问题等相关内容解答，如果想了解更多相关内容，可以关注我们，你们的支持是我们更新的动力！