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.