Wenn Outlook nicht installiert ist, musst du natürlich mit einer Fehlermeldung aussteigen:
Delphi-Quellcode:
begin
try
OutlookApplication := GetActiveOleObject('
Outlook.Application');
except
try
OutlookApplication := CreateOleObject('
Outlook.Application');
except
raise Exception.Create('
MS Outlook kann nicht geöffnet werden');
end;
end;