I am trying to send an email using MAPI and everything works fine until i send it then i get the following error message in my outlook

No transport provider was available for delivery to this recipient.

here is the code:

Dim x As String
Dim y As String

x = rtfCopylstReport.Text

y = InputBox("Please enter an email address.", "EmailAddress")



MAPISession1.SignOn
MAPIMessages1.SessionID = Me.MAPISession1.SessionID
MAPIMessages1.Compose
MAPIMessages1.MsgSubject = "Search Results"
MAPIMessages1.MsgNoteText = x
MAPIMessages1.RecipAddress = y
MAPIMessages1.RecipDisplayName = MAPIMessages1.RecipAddress
MAPIMessages1.Send True
MAPISession1.SignOff

What am i doing wrong?
Thanks,
Cady