vb做的收发邮件系统怎么用MAPI谢谢了同志们！ 一定给分

Question

'我这样写的就可以发出EMAIL，你试试吧！
Private Sub logoff_Click()
      MAPIS1.SignOff
End SubPrivate Sub logon_Click()
      MAPIS1.SignOn
      'mapis1.SessionID
      MAPIM1.SessionID = MAPIS1.SessionID
      MsgBox "your id is" + Str(MAPIS1.SessionID)
End SubPrivate Sub send_Click()
      MAPIM1.Compose
      MAPIM1.RecipDisplayName = addr.Text
      MAPIM1.AddressResolveUI = True
      MAPIM1.MsgSubject = subject.Text
      MAPIM1.MsgNoteText = content.Text
      MAPIM1.send
      MsgBox "you successful"
End Sub