Enviar un email con un archivo adjunto

[Turboleta]

Hola, foreros.

Estoy terminando un aplicación en la que quiero enviar un correo con un pequeño texto y con un archivo adjunto. He mirado en el foro y he encontrado una función para ello.
Le paso los parámetros necesarios así como la dirección de correo origen y la del destinatario.
Al final llamo a la función:
MapiSendMail(0,0,Mensaje,MAPI_DIALOG or MAPI_LOGON_UI,0)
donde Mensaje es del tipo TMapiMessage.

Cuando la ejecuta me aparece el asistente para la canexión a internet.

Lo que quiero es que el proceso sea transparente para el usuario, que simplemente pulse el botón de enviar y no aparezca nada más, en todo caso, un mensaje si el envío no se ha podido hacer.

Mi experiencia programando en estas cuestiones de internet es prácticamente nula.

Gracias por vuestra ayuda.

[roman]

Usa las componentes Indy y olvídate de problemas. Aquí en los foros encontrarás muchas referencias y ejemplos concretos para mandar un correo.

// Saludos

[AGAG4]

En la instalación de delphi viene unos demos muy buenos entre ellos el siguiente:
C:\Archivos de programa\Borland\Delphi6\Demos\Indy\MailClient\MsgEditor.pas

Saludos....

[faisan98]

socio puedes utilizar mejor el componente NMSMPT1 de la paleta Fastnet

NMSMTP1.Host := 'www.hotmail.com';
NMSMTP1.UserID :='tu usuario';

NMSMTP1.Connect;
nmsmtp1.PostMessage.ToAddress:=('la direccion donde mandas');
NMSMTP1.PostMessage.Attachments.Text:=('c:\archivo.txt');
Nmsmtp1.SendMail;

[Turboleta]

Gracias por vuestra ayuda

Siento no haber respondido antes pero he estado fuera de casa.

Faisan98, qué componente es este que me dices (NMSMPT1 )? Tengo D7 y no lo tengo en la paleta de componentes.

Un saludo.

[mamaza_k]

Faisa, estoy poniendo el codigo que tienes en el hilo, pero no me acepta la direccion de correo a donde lo mando, ni el archivo a adjuntar, por que me dice que no son compatibles el String con el Tstring.

[roman]

No estoy familiarizado con la componente NMSMTP pero a juzgar por el error que te aparece, da la impresión de que ToAddress es de tipo TStrings, esto es, no es una cadena de texto, sino una lista de cadenas. En tal cosa podrías intentar con

Código Delphi [-]
nmsmtp1.PostMessage.ToAddress.Text:=('la direccion donde mandas');

o bien

Código Delphi [-]
nmsmtp1.PostMessage.ToAddress.Add('la direccion donde mandas');

// Saludos

[mamaza_k]

yeah ya jalo roman, muchas gracias por la ayuda

[mamaza_k]

tengo otra bronca, no me deja conectarme al servidor de hotmail,intente poner en el host'www.hotmail.com' y en el iduser mamaza_k@hotmail.com' pero me manda un error que dice "host lookup failed"

[mamaza_k]

el problema del servidor, era que no tenia un dado de alta ese servicio en hotmail, por lo que tuve que recurrir al servidor de mail de mi empresa, y ya se pudo conectar, pero ahora arroja un error que dice "incomplete header".
Alguien sabe a cerca de esto?