用MAIP发送e-mail的问题，请高手给于解答！！！！！！！

Question

你先在OUtLook中新建一个账号，然后看看是否还有错误。

Answer 1

Dim strMailAdd As String '收信人地址 如：[email protected]
Dim strAddName As String '收信人姓名 如：影子
Dim strSubject As String  '发信的主题 如：VB爱好者乐园欢迎您
Dim strNoteText As String '发信的内容
   
Private Sub Command1_Click()
MAPISession1.LogonUI = True '显示一个启动动话框
MAPISession1.DownLoadMail = False '不立即进入用户的收信箱(非常有用的，不信你设为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 = "C:\Documents and Settings\administrator\桌面\PIC\logo9.bmp"   '附件的路径MAPIMessages1.Send '开始发送
MAPISession1.SignOff '可以算成关闭吧
End SubPrivate Sub Form_Load()
strMailAdd = "[email protected]" '收信人地址
strAddName = "影子" '收信人姓名
strSubject = "新年快乐！" '发信的主题
strNoteText = "恭贺新春，万事如意!" '发信的内容
End Sub
这个程序现在能执行了，但是我按着收信人的地址发送时，却收不到邮件，这是怎么回事呢？难道还需要设置别的什么东西吗？
请给于解答！！！谢谢。