Foros Club Delphi

Foros Club Delphi (https://www.clubdelphi.com/foros/index.php)
-   Varios (https://www.clubdelphi.com/foros/forumdisplay.php?f=11)
-   -   Enviar Correo Con Outlook (https://www.clubdelphi.com/foros/showthread.php?t=94641)

keys 06-05-2020 10:03:47

Enviar Correo Con Outlook
 
Hola a todos. Tengo un proceso para enviar correos a través de outlook. Hasta ahora funcionaba correctamente.

Código Delphi [-]
 
  vMailItem := Outlook.CreateItem(olMailItem);
  vMailItem.Recipients.Add("correo@correo.com);
  vMailItem.Subject := "Asunto";
  vMailItem.Body := "cuerpo del mensaje";  
  vMailItem.Send;

El problema es que al enviar a una dirección en concreto me retorna el error "Outlook no reconoce alguno de los nombres", he comprobado que el email esta correcto.

Tengo en los contactos de outlook un contacto creado con ese email. Si elimino el contacto de outlook o le cambio el email del contacto lo envia corretamente. Pero si lo envío con el contacto con ese email da error.

Si envio a otros correos que estan en contactos tambien me envía bien. Pero hay unos cuantos que me da error si esta en contactos.

Casimiro Notevi 06-05-2020 10:48:39

https://www.clubdelphi.com/foros/showthread.php?t=29128

keys 06-05-2020 11:16:40

Lo primero gracias.

No creo que sea el mismo problema. Si envío el correo directamente desde el outlook a esa dirección funciona correctamente.

El mensaje no llega a ponerse en la bandeja de salida, cuando hago el send es cuando da el error generando una excepción.

Como ya he dicho si elimino el contacto en el otulook o le cambio el email en el contacto del outlook, el envío se realiza correctamente.

Una de las pruebas que he hecho es parar el antivirus, pero sigue haciendo lo mismo.

Un saludo.

Garada 07-05-2020 09:34:37

En mi código uso la propiedad To_ en vez de Recipients

Código Delphi [-]
vMailItem.To_ := "correo@correo.com";

Si no te va, avisa y te pongo completa la función que uso para enviar desde el Outlook.

keys 07-05-2020 09:51:59

Cita:

Empezado por Garada (Mensaje 537129)
En mi código uso la propiedad To_ en vez de Recipients

Código Delphi [-]
vMailItem.To_ := "correo@correo.com";

Si no te va, avisa y te pongo completa la función que uso para enviar desde el Outlook.

Gracias ya lo habia probado tambien y me da el mismo error.

Por lo que he estado mirando debe ser un problema que ocurre con las cuentas de Microsoft Exchange y los contactos. Lo que no se es por que algunos contactos si y otros no. Si borro el contacto que da problemas y lo vuelvo a crear exactamente igual, ese contacto ya funciona. El problema es que estamos hablando de casi 500 contactos que dan error.

He probado a cambiar el send por display para que salga la ventana antes de enviar y en los que da problema en la direccion pone correo@correo.com solo esto y en los que si funciona pone CONTACTO(correo@correo.com).

En ambos casos el correo esta bíen puesto.

Ñuño Martínez 07-05-2020 11:36:11

Una pregunta tonta: ¿No sería mejor mandar el correo diréctamente al servidor de correo? O sea, usar POP o SMPT o el protocolo que sea (con synapse es bastante simple, y seguramente que JEDI e Indy también ayudarán) y ya está.

keys 07-05-2020 11:51:00

Cita:

Empezado por Ñuño Martínez (Mensaje 537131)
Una pregunta tonta: ¿No sería mejor mandar el correo diréctamente al servidor de correo? O sea, usar POP o SMPT o el protocolo que sea (con synapse es bastante simple, y seguramente que JEDI e Indy también ayudarán) y ya está.

Ya, pero de esta forma el correo pasa a ser gestionado por el outlook, va a bandeja de salida, luego elementos enviados, etc... y a los clientes les gusta ver lo que han enviado, lo que no etc....

Raros que son. :cool:

newtron 07-05-2020 16:35:40

Cita:

Empezado por keys (Mensaje 537132)
Ya, pero de esta forma el correo pasa a ser gestionado por el outlook, va a bandeja de salida, luego elementos enviados, etc... y a los clientes les gusta ver lo que han enviado, lo que no etc....

Raros que son. :cool:


Hola compañero.


Si ese es el problema ya sabes que puedes enviar el correo con copia a una cuenta de correo de la empresa para ir guardando los correos enviados.


Saludos

keys 07-05-2020 16:54:53

Cita:

Empezado por newtron (Mensaje 537141)
Hola compañero.


Si ese es el problema ya sabes que puedes enviar el correo con copia a una cuenta de correo de la empresa para ir guardando los correos enviados.


Saludos

Hola a todos y gracias por vuestro interés. No puedo cambiar la forma de enviar los mensajes, se trata de un programa comercial que lleva mucho tiempo enviando los mensajes de esta manera y el cambio sería grande para todos los clientes. Seguro que hay mil formas de enviar los emails, pero por suerte o desgracia es la forma que elegimos y cambiarla no es fácil.

Se trata de resolver el problema que tenemos sin cambiar la forma de enviar.

Gracias.

Garada 07-05-2020 22:12:26

Si de repente dejó de funcionar será algo externo a la aplicación.

¿La versión del Outlook es muy vieja?
Una actualización del Office o del propio Windows que da la lata.
Falla varios usuarios, uno solo, ...
Borrar el email de la lista de auto-completar, si está ahí. (A mi me da dado la lata el Outlook por eso).

keys 08-05-2020 08:33:46

Cita:

Empezado por Garada (Mensaje 537146)
Si de repente dejó de funcionar será algo externo a la aplicación.

¿La versión del Outlook es muy vieja?
Una actualización del Office o del propio Windows que da la lata.
Falla varios usuarios, uno solo, ...
Borrar el email de la lista de auto-completar, si está ahí. (A mi me da dado la lata el Outlook por eso).

Es la última version de office y se actualiza normalmente. Tengo unos 200 que salen mal y unos 600 que salen bien, no se que tienen en común ya que en los dos casos hay contactos antiguos y nuevos. Como ya he dicho si borro uno y lo vuelvo a crear ese contacto funciona. Pero sólo si lo creo a mano. Si envio el contacto, lo borro y lo vuelvo a recibir sigue sin funcionar.

Lo siquiente que me queda es desinstalar el office y volverlo a instalar (Solución de informático :rolleyes:).

Gracias.

kuan-yiu 08-05-2020 09:27:18

Cita:

Empezado por keys (Mensaje 537148)
Lo siquiente que me queda es desinstalar el office y volverlo a instalar (Solución de informático :rolleyes:).

Que funciona muchas veces. Tan solo la insuperable "apagar y volver a encender" es más eficaz :D

keys 10-05-2020 18:59:38

Hola a todos. He conseguido solucionar el problema o por lo menos esquivarlo.

Resulta que el equipo en el outllok tiene configuradas dos cuentas del mismo dominio y las dos exchange (office 365). Los contactos estan en la cuenta principal por la que se envían los emails, la otra no tiene ningún contacto. Me he dado cuenta que si elimino la cuenta 2 del outlook el envío funciona correctamente, si la vuelvo a añadir funciona mal. Es decir, hay contactos a los que no funciona el envío y a otros si.

Al final lo que he hecho, es poner la segunda la que no tiene contactos, cuenta como IMAP y parece que funciona correctamente.

Parece ser que las dos cuentas exchange se estan pegando entre ellas o no se.

Un Saludo.

newtron 11-05-2020 10:04:09

Cita:

Empezado por keys (Mensaje 537169)
Hola a todos. He conseguido solucionar el problema o por lo menos esquivarlo.

Resulta que el equipo en el outllok tiene configuradas dos cuentas del mismo dominio y las dos exchange (office 365). Los contactos estan en la cuenta principal por la que se envían los emails, la otra no tiene ningún contacto. Me he dado cuenta que si elimino la cuenta 2 del outlook el envío funciona correctamente, si la vuelvo a añadir funciona mal. Es decir, hay contactos a los que no funciona el envío y a otros si.

Al final lo que he hecho, es poner la segunda la que no tiene contactos, cuenta como IMAP y parece que funciona correctamente.

Parece ser que las dos cuentas exchange se estan pegando entre ellas o no se.

Un Saludo.


Estupendo. Gracias por la info.


Saludos


La franja horaria es GMT +2. Ahora son las 09:51:29.

Powered by vBulletin® Version 3.6.8
Copyright ©2000 - 2025, Jelsoft Enterprises Ltd.
Traducción al castellano por el equipo de moderadores del Club Delphi