Enviar email usando OUTLOOK 2003

[[Chris]]

Si ya no le hayas como hacer, puedes utilizar COM, utilize esté código y me ha funcionado.

Código Delphi [-]
procedure EnviarCorre_xCOM;
const
  olMailItem = 0;
var
  Outlook: OleVariant;
  vMailItem: variant;
begin
  try
    Outlook := GetActiveOleObject('Outlook.Application');
  except
    Outlook := CreateOleObject('Outlook.Application');
  end;
  vMailItem := Outlook.CreateItem(olMailItem);
  vMailItem.Recipients.Add('[email protected]');
  vMailItem.Subject := 'Correo de prueba';
  vMailItem.Body := 'Este es un mensaje enviado como prueba';

// Si quieres HTML en el texto
  vMailItem.HTMLBody := 'Este es un mensaje enviado como prueba';
  vMailItem.Attachments.Add('C:\temp\sample.txt'); // Puedes adjuntar archivos
  vMailItem.Send;

  VarClear(Outlook);
end;

Despues solo tienes que hace run Send & receive.