[Jose Manuel]

Hola, en una aplicación hecha con DELPHI 6 tengo un problema para enviar correos electrónicos usando outlook 2003, hasta la fecha todos los clientes tenian la misma versión y los enviaba sin problemas, pero ahora algunos han cambiado a OutLook 2003 y no les funciona.

Alguien puede decirme como enviar mesajes con OUTLOOK 2003 y como se puede discriminar si el usuario esta trabajando con OUTLOOK 2002 o 2003, para utilizar uno u otro procedimiento.

Adjunto un ejemplo del procedimiento utilizado hasta la fecha para enviar mensajes con anexos usando OUTLOOK 2002.

Muchas gracias, y un saludo a todos

Jose Manuel.

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;