Uso de correos
 

Llevo varios dias leyendo aqui en el foro sobre el enviar correos desde Delphi, y la verdad todos las formas que he visto no se aplica a lo que necesito.

Yo tengo un programa en que se manejan solicitudes de trabajo, lo que deseo que cuando alguien realiza una solicitud, se envie un correo a quien se le pidio la solicitud, y una confirmacion a quien realizo la solicitud.

Yo tengo un servidor exchange para el manejo de correos de la empresa, y tengo instalado Outlook 2003.

Cualquier sugerencia es bien recibida.

A ver, por mas que pienso no veo en que no cuadran los métodos para enviar emails que están en clubdelphi con lo que tu necesitas... Mejor dicho ¿Que tiene de diferente lo que necesitas con lo que hay?

En ese

http://www.clubdelphi.com/foros/showthread.php?t=33778


Este

Código Delphi [-]
procedure TForm1.Button16Click(Sender: TObject);
const
  olMailItem = 0;
  olByValue = 1;
var
  OutlookApp, MailItem, MyAttachments: OLEVariant;
begin
  try
    OutlookApp := GetActiveOleObject('Outlook.Application');
  except
    OutlookApp := CreateOleObject('Outlook.Application');
  end;
  try
    MailItem := OutlookApp.CreateItem(olMailItem);
    MailItem.Recipients.Add('YourMailAddress@something.com');
    MailItem.Subject := 'Your Subject';
    MailItem.Body    := 'Your Message';
    myAttachments    := MailItem.Attachments;
    myAttachments.Add('C:\SomeFile.txt', olByValue, 1, 'Name of Attachment');
    MailItem.Send;
  finally
    myAttachments := VarNull;
    OutlookApp    := VarNull;
  end;
end;

Este otro:

Código Delphi [-]
procedure TForm1.Button1Click(Sender: TObject);
begin
  ShellExecute(Self.Handle, nil,
    'mailto:eds2004 @ latiumsoftware.com' +
    '?Subject=Test&Body=Just testing the example',
    nil, nil, SW_NORMAL);

end;

No me permite cambiar el correo ni nada, en tiempo de ejecucion.


Y este

Código Delphi [-]
ShellExecute(Handle, 'open', 
'mailto:SomeN@Somewhere.com?subject=MySubject&Attach=''C:\Attachment.txt''',
nil, nil, SW_SHOW)

me abre el outlook, pero yo no quiero que me abra el outlook, (que lo use, no hay problema), pero que
sea transparente para el usuario, o sea que el no se de cuenta que se envio el correo.

Y asi, puedo seguir poniente de ejemplos, pero igual no he podido lograr que ningun
me haga lo que describi en mi primer post.

Gracias

//Edite: Coloque etiquetas DELPHI.

Primero que todo, recuerda que es mejor que uses las etiquetas DELPHI... En cuanto al problema... Podrías leer el siguiente hilo:

http://www.clubdelphi.com/foros/showthread.php?t=42252

Donde Bicho hace una recopilación de 3 sitios del clubdelphi con las posibles soluciones. Pruebalas y nos cuentas.

Ninguna de las tres me sirve para lo que yo la ocupo, porque yo necesito que utilice el servidor exchange, y esos ejemplos como que usan siempre un servidor SMTP, lo cual me gusta por tendria que ir el correo a un servidor externo y volver.

¿Acaso el servidor de correo Exchange no usa el puerto SMTP para el envió de correos?

Yo recuerdo que hace mucho tiempo trabaje con un servidor Exchange y los componentes de FastNet y no tuve que hacer nada distinto a usar el puerto SMTP.

La verdad no se si usa un servicio SMTP, y si lo usa no tengo idea de cuales son los parametros!