vb怎么实现在Text控件写的东西发回邮箱

来源：百度知道 编辑：UC知道 时间：2024/05/24 10:03:47
就是我开个Text控件，然后在软件上打上字，这些字发回到邮箱里面去。
怎么做呢？
例如登陆：你打完账号 打密码 然后按按钮 。把账号密码都发到邮箱
或者帮我做个原件，或者发个原代码 用什么控件，改什么属性全说出来。
满意+50分
我有个370394887@qq.com或liu1jian2han3@126.com邮箱 可以发个原件我吗~ 给你+50分

邮件发送程序
邮件发送程序的基本处理过程是：根据用户输入信息组成邮件，然后使用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 =