用VB编程写一个程序 自动发牌系统

相信你也找过一些这类的代码，可能你用过的方法中就有可以用的，变通一下方法就好了！提供方法给你，仅供参考！

VB还可以用MAPI进行，核心控件：MAPI会话控件和MAPI消息控件。MAPI会话控件用于建立和控制一个Microsoft Mail会话，MAPI消息控件用于创建和收发邮件消息。此外，程序必须运行在采用遵从MAPI的消息系统（如：Microsoft Exchange、Microsoft Mail、Outlook等）的环境中。

编程需要将MAPI控件加入VB工具箱。全名是:"Microsoft MAPI Controls"。加入后，工具箱中将添上MAPI会话控件和MAPI消息控件的图标。

下面将以简单的VB程序为例，介绍发送邮件程序编制方法。

邮件发送程序的基本处理过程是：根据用户输入信息组成邮件，然后使用MAPI消息控件的Send方法将邮件发出。编程步骤如下：

1、新建一个VB项目。

2、将缺省窗体Form1的Caption属性设置为"发送邮件"。

3、将MAPI控件加入VB工具框。

4、在Form1中加入一个MAPI会话控件MAPISession1和一个MAPI消息控件MAPIMessages1。

5、在Form1中加入三个文本框控件，将它们的Name属性分别设置为txtSendTo、txtSubject、txtMessage，并将txtMessage的Multiline属性设置为True。这三个文本框控件将分别用于填写邮件的收件人、主题和内容。

很愿意帮助你完成