vb发邮件的问题

Question

用vb做一个发邮件的程序，可是为什么执行了以后邮件只是保存在outlook的发件箱里，而且提示未发送，那应该怎么做才能直接就发送成功呢？
程序如下
Private Sub Command2_Click()
With MAPIMessages1
  .MsgIndex = -1
  .RecipDisplayName = txtSendTo.Text
  .MsgSubject = txtSubject.Text
  .MsgNoteText = txtMessage.Text
  .SessionID = MAPISession1.SessionID
  
  .Send
  End With
  MsgBox "邮件发送完毕！", , "发送邮件"
End Sub

Answer 1

看不出什么错误。但，这个是不会那样子的  OutLook Ex 试了一下
Private Sub Form_Load()
  MAPISession1.SignOn
End SubPrivate Sub Form_Unload(Cancel As Integer)
  MAPISession1.SignOff
End Sub
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
  
--------------------------------------------------------------
程序，犹如人生。