小吳 VBQA 程式設計討論

I used the following for testing and it generates no error but I didn't find the new email in the particular account. Meaning I sent to my own account but I didn't receive anything even though I clicked 1000+ times the send button.
Private Sub cmdSend_Click()
MAPISession1.SignOn
MAPIMessages1.SessionID = MAPISession1.SessionID
MAPIMessages1.Compose
MAPIMessages1.RecipDisplayName = "mercury150@hotmail.com"
MAPIMessages1.MsgSubject = "Test Mail"
MAPIMessages1.MsgNoteText = "Testing the MAPI "
lstrMsgNote = MAPIMessages1.MsgNoteText
MAPIMessages1.ResolveName
MAPIMessages1.Send
MAPISession1.SignOff
End Sub