vb发邮件的问题，求助阿！

kid919

用MAPI发送邮件，不知道为什么发了之后总是存在outlook的发件箱里，得要把outlook打开才能发送出去，那应该怎么样才能直接就发送出去而不用打开outlook呢？帮帮忙阿！
程序如下：
Private Sub email_Click()
MAPISession1.SignOn
With MAPIMessages1
  .MsgIndex = -1
  .RecipDisplayName = email_address.Text
  .MsgSubject = txtSubject.Text
  .SessionID = MAPISession1.SessionID
  .AttachmentPathName = 路径名
  .Send
  End With
  MAPISession1.SignOff
  MsgBox "邮件发送完毕！", , "发送邮件"
End Sub

entwine

MAPISession1.DownLoadMail = False '不立即进入用户的收信箱
MAPISession1.LogonUI = false  
MAPISession1.SignOn '激活
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 '关闭