哪位对MAPIMessages控件了解?我这有几个小问题。。

Question

每次调用时，都会启动那个收信功能吗？我只想要发信功能
能否把收信功能屏蔽？MAPISession1.SignOn
    With MAPIMessages1
        .MsgIndex = -1
        .RecipDisplayName = txtSendTo.Text
        .MsgSubject = txtSubject.Text
        .MsgNoteText = txtMessage.Text
        .SessionID = MAPISession1.SessionID
        .Send
    End With
    MAPISession1.SignOff
    MsgBox "成功！"

Answer 1

    用 MAPI 控件实现发送邮件
1.所需控件 MAPI 控件（两个都要，默认Name），CommandButton 控件（默认Name，Caption为“发送邮件”）。
2.声明变量如下：
Dim strMailAdd As String '收信人地址 如：[email protected]
Dim strAddName As String '收信人姓名 如：影子
Dim strSubject As String '发信的主题 如：VB爱好者乐园欢迎您
Dim strNoteText As String '发信的内容 
Dim strMailToo As String '发信人地址
DIm strTooName As String '发信人姓名3.程序开始
Private Sub Form_Load()
strMailAdd = "[email protected]" '收信人地址
strAddName = "影子" '收信人姓名
strSubject = "VB爱好者乐园" '发信的主题
strNoteText = "中华人民共和国万岁" '发信的内容
End Sub Private Sub Command1_Click()
MAPISession1.DownLoadMail = False '不立即进入用户的收信箱(非常有用的，不信你设为 True试一下)
MAPISession1.LogonUI = True '显示一个启动动话框
MAPISession1.SignOn '这因该算激活吧，注意：不要把FoxMail在IE中设置为默认电子邮件，否则会出现错误
MAPIMessages1.SessionID = MAPISession1.SessionID
MAPIMessages1.Compose '构成一条消息
MAPIMessages1.RecipAddress = strMailAdd '收信人地址
MAPIMessages1.ResolveName
MAPIMessages1.RecipDisplayName = strAddName '收信人姓名MAPIMessages1.MsgSubject = strSubject '发信的主题
MAPIMessages1.MsgNoteText = strNoteText '发信的内容
MAPIMessages1.AttachmentIndex = 0 '当前附件的索引位置
MAPIMessages1.AttachmentPathName = "d:\1.mdb" '附件的路径MAPIMessages1.Send '开始发送
MAPISession1.SignOff '可以算成关闭吧 
End Sub
4.大功告成，你可要试一下其实要编写一个发信的程序，不需要懂什么TCP的，VB 里有许多好的控件可以帮助咱们这些初学都的忙！！
5.补充：如果你还要加其他的功能，就看一看 Mapi98.CHM 里面有详细的帮助。 
   
　
  
 ------------------------------------------------------------------
个人专栏：http://www.csdn.net/develop/author/netauthor/lihonggen0/
------------------------------------------------------------------

Answer 2

楼上的朋友还是没说出  能否把收信功能屏蔽？
我现在再问一个，
我只能发文本邮件，如"<a href=xx.asp> ttt</a>"
我想把这段内容发出后，收信时，是一个链接。而不是这串源程序。
是不是要改一个属性MsgType的值，这个属性有哪些值呢？实现发送一个链接，要设什么值呢？r