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.
Código:
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;