怎么让输入的东西发送到指定的邮箱中(VB)

怎么让输入的东西发送到指定的邮箱中(VB)

使用VB收发电子邮件

编制具有收发电子邮件功能的VB程序，必须使用Visual Basic 4.0以上的版本，因为只有4.0以上的Visual Basic才带有两个实现电子邮件收发功能的核心控件：MAPI会话控件和MAPI消息控件。MAPI会话控件用于建立和控制一个Microsoft Mail会话，MAPI消息控件用于创建和收发邮件消息。此外，程序必须运行在采用遵从MAPI的消息系统（如：Microsoft Exchange、Microsoft Mail、Outlook等）的环境中。

在开始编程之前，首先需要将MAPI控件加入VB工具箱。具体操作是：在VB菜单栏中选择“Tools”菜单项中的“Custom Controls”命令，调出“Custom Controls”对话框，在其中的“Available Controls”列表框中选中“Microsoft MAPI Controls”表项，然后按“OK”命令按钮退出该对话框。此后，工具箱中将新添两个图标，这就是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。这三个文本框控件将分别用于填写邮件的收件人、主题和内容。

6．在Form1中加入三个标签控件，将它们的Caption属性分别设置为“收件人”、“主题”和“内容”，并将它们放在合适的位置用以标注相应的文本框控件。

7．在Form1中加入一个命令按钮控件，将其Caption属性和Name属性分别设置为“发送”和“cmdSend”。

8．将下列代码加入Form1的Form_Load事件：

Private Sub Form_Load()

MAPISession1.SignOn

End Sub

9．将下列代码加入Form1的Form_Unload事件：

Private Sub Form_Unload(Cancel As Integer)

MAPISession1.SignOff

End Sub

10．将下列代码加入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

在填写完邮件的收件人、主题和内容后，按“发送”命令按钮，如果没有出现运行错误提示，那么就表明邮件已经成功地发往目的地了，否则，请检查填写的收件人地址是否准确无误以及系统中运行的消息系统工作是否正常。

编制具有收发电子邮件功能的VB程序，必须使用Visual Basic 4.0以上的版本，因为只有4.0以上的Visual Basic才带有两个实现电子邮件收发功能的核心控件：MAPI会话控件和MAPI消息控件。MAPI会话控件用于建立和控制一个Microsoft Mail会话，MAPI消息控件用于创建和收发邮件消息。此外，程序必须运行在采用遵从MAPI的消息系统（如：Microsoft Exchange、Microsoft Mail、Outlook等）的环境中。

你是想做黑客吗

你去找一个黑客教程就可以我前段时间见过类似的一个题

你是想做黑客吗

你去找一个黑客教程就可以我前段时间见过类似的一个题

留下邮箱,我发给你

留下邮箱吧，我有一个用winsock的