[DELPHI] Aprire una nuova mail in Outlook Express

[Mco2983]

Ciao a tutti!
Sto implementando una procedura con la finalità di aprire in outlook la finestra di una nuova mail, a cui passo i parametri destinatario, oggetto, testo ed allegato (sempre solo 1).

Bene, girovagando online ho trovato spesso lo stesso esempio, che sembra semplicissimo e subito funzionante...lo riporto:

################################################## ##
uses comobj;

procedure DisplayMail(Address, Subject, Body: string; Attachment: TFileName);
var Outlook: OleVariant;
Mail: Variant;
const olMailItem = $00000000;
begin
try
Outlook := GetActiveOleObject('Outlook.Application');
except
Outlook := CreateOleObject('Outlook.Application');
end;
Mail := Outlook.CreateItem(olMailItem);
Mail.To := Address;
Mail.Subject := Subject;
Mail.Body := Body;
if Attachment <> '' then
Mail.Attachments.Add(Attachment);
Mail.Display;
end;
################################################## ##

Sembrava tutto risolto velocemente ma...non funziona!!
Al passaggio sul try evidenziato, genera l'errore "Stringa dell'interfaccia non valida": il s.o. è xp, è installato outlook express 6.

Sapreste indicarmi la causa dell'errore?
Devo cambiare l'OleObject ('Outlook.Application')?

Grazie per la collaborazione!
Maurizio

[alka]

Originariamente inviato da Mco2983
Al passaggio sul try evidenziato, genera l'errore "Stringa dell'interfaccia non valida": il s.o. è xp, è installato outlook express 6.

Che io sappia, Outlook Express non supporta Office Automation: la versione a cui ci si riferisce in questi casi è quella inclusa nel pacchetto Microsoft Office.