Error en envio de adjuntos en Email

[[ElDioni]]

Como sigo haciendo pruebas les pongo más información (que creo yo útil) para descartar posibles errores, he probado a configurar otra dirección de correo de otro servidor de correo distinto y sigue ocurriendo lo mismo, archivos de 1Kb si que funcionan y de más tamaño no.

Un saludo.

[[ElDioni]]

Buenos días amigos,
he resuelto el problema que tenía con el tema del adjunto, les explico lo que me ha ocurrido por si le pasa a alguien en el futuro, aunque es sencillo el asunto a mi me ha traido de cabeza, el asunto es que tengo en mi empresa el antivirus McAfee con su correspondiente cortafuegos, tengo bloqueado el delphi para que no se conecte a internet y al ejecutar el código que estaba programando yo le daba a permitir a la aplicación que estaba creando pero no funcionaba, lo raro es que no funcionaba cuando le adjuntaba un archivo como les decía más arriba, al ejecutar la aplicación desde fuera de delphi funciona correctamente, es como si el cortafuegos detectara que un programa que estaba banneado intentara conectarse a través de otro.
Muchas gracias por leer y dedicarle tiempo a mi problema.

Un saludo.

[[kurono]]

amigo eldioni que probado tu codigo y no me funciona pero creo no me funciona por la version de indy que utilizo que es la 9 la que viene por defecto con delphi podria decirme si es esa que utiliza o la version 10

[[ElDioni]]

Perdona kurono por no responderte antes, supongo que es un poco tarde pero de todas formas te comento que efectivamente yo utilizo la versión 10 de las indy, lo que cambiaban con respecto a las versiones antiguas, si no estoy equivocado, es la línea de adjuntar archivos, en lugar de ser

Código Delphi [-]
TIdAttachmentfile.create(IdMessage1.MessageParts,'C:\Windows\temp\temp.pdf');

en las versiones antiguas es de otra forma, muy similar a esta pero distinto, si buscas en los foros, aunque seguro que ya lo has hecho, encontrarás información sobre el tema.

Otra cosa que te quería comentar es que aunque al final puse que pude arreglar el error que venía dado por el mcafee, en realidad, sigue fallando, el mcafee solo me deja mandar correos si le desactivo el cortafuegos, lo que pasa es que al desactivar el cortafuegos y volver a activarlo hasta que no reiniciaba el ordenador no volvía a bloquearme el programa por lo que yo pensaba que el error ya estaba solucionado. No me había percatado del problema hasta que los ususarios han empezado a utilizar el programa por eso no lo he puesto antes.

Estoy buscando soluciones alternativas y una de ellas es la de usar el shellexecute para que me arranque, en mi caso, el outlook express, el problema es que aunque he puesto el código igual que viene en muchos casos toda la información aparece correctamente en su casillero del outlook ha excepción del archivo adjunto, aunque se lo ponga a la instrucción no lo adjunta, quería preguntar si alguien puede darme una mano con este tema, os pongo el código que estoy utilizando por si le veis algo raro.

Código Delphi [-]
mail:='mailto:[email protected]?Subject=prueba%20envio%20de%20mail&body=hola%20mundo&attach="c:\ar  chivo.txt"';
ShellExecute(Application.mainform.Handle,'open',PChar(mail), nil, nil, SW_MAXIMIZE);

Un saludo y gracias.

[[ElDioni]]

Al pegar el código, no se porque, me separa el nombre del archivo que adjunto, pero tener en cuenta que en mi código está todo junto.

Un saludo.

[[kurono]]

amigo ElDioni he instalado la version 10 de los indy y aun asi no puedo mandar correo si bien explica que no has solucionado el problema comentas que puedes enviar correo aunque no los adjuntos, por ahora no me interesa mucho enviar adjuntos solo correo de texto podria decirme a que tipo de correo mandas si hotmail,yahoo o Gmail

si no es mucha molestia puedes decir que configuracion tienes en los componente indy host,puerto ect

[erickahr]

Hola. Les recomiendo chacar este post a ver si les ayua de algo compañeros.
http://www.clubdelphi.com/foros/showthread.php?t=68256