Mail en visual

Tengo este código que envía un mail sencillo a mi server interno exchange 5.5-
Este es el código:
MESES.SignOn
MSES.DownLoadMail = False
MAIL.SessionID = MSES.SessionID
MAIL.Compose
tema = "prueba de visual"
texto92 = "Bueno , toy probando mensaje desde inventario!!!!!"
diremail = "[email protected]"
MAIL.RecipAddress = diremail
MAIL.RecipDisplayName = "[email protected]"
MAIL.MsgSubject = tema
MAIL.MsgNoteText = texto92
MAIL.Send
MESES.SignOff
Al destinatario le llega este mensaje del server exchange:
Algunos de los destinatarios no recibieron su mensaje.
Asunto: prueba de visual
Enviado el: 05/09/2002 16:57
Imposible localizar los destinatarios siguientes:
'[email protected]' en 05/09/2002 16:57
No transport provider was available for delivery to this recipient.
¿Qué puede estar pasando?
Gracias
El mensaje no