Mail desde visual no llega en server exchange

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
1

1 Respuesta

2.500 pts.
A continuación te agrego ciertas líneas que te hacen falta para lograr una conexión y envío exitoso (yo pasé por eso ya). Lo que está comentado es el código que ya tienes:
'************************************
'Indica que se va a conectar a través de usuario
MSES.LogonUI = True
'En estas dos líenas indicas el dueño de la cuenta de correo
MSES.UserName = sUsuarioCuenta
MSES.Password = sClaveCuenta
'Para indicar que es una nueva sesión
MSES.NewSession = True
'************************************
'MSES.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]"
'************************************
'Esto es para que busque el e-mail en la lista del servidor
MAIL.AddressResolveUI = True
MAIL.ResolveName
'************************************
'MAIL.MsgSubject = tema
'MAIL.MsgNoteText = texto92
'MAIL.Send
'MSES.SignOff
Espero te sirva. Suerte
Todo funciona ok!
Pero cuando este mail no esta en la libreta de contactos, me fijo en las propiedades del destinatario y me aparecen los cuadros de:Display Name, E-mail address e E-mail Type.
En éste E-mail Type figura el valor que le paso a MAIL.RecipAddress.
Puse una linea así para que me cambie E-mail Type a SMTP que es así:
Mail.MsgType = "SMTP"
Pero sigue sin funcionar
Ahora, si lo pongo a mano cuando edito las propiedades, funciona.-
Saludos y espero me puedas ayudar
Funciono!
Para eliminar el error del tipo de mail.Tuve que poner como mailaddress ="=smtp:direccionDeMail"
Y así funciona bien
Gracias por tu ayuda y dedicación

Añade tu respuesta

Haz clic para o

Más respuestas relacionadas