Hallo zusammen,
kann mir jemand bei folgendem Problem helfen:
Mit dem folgenden Code erstelle ich eine Email:
Delphi-Quellcode:
function EMailErstellen(EMail, Betreff, EMailTextHTML:String; Anhang:TStrings):Boolean;
Var OutlookApplication: Variant;
Mailitem, ObjectInspector, WordEditor: OleVariant;
s:string;
I:Integer;
begin
try
OutlookApplication := GetActiveOleObject('Outlook.Application');
except
try
OutlookApplication := CreateOleObject('Outlook.Application');
except
end;
end;
.
.
.
end;
Ich erhalte jetzt aber auf Rechnern mit Win7 ohne Outlook aber mit LiveMail die Meldung "Ungültige Variant-Operation" bei dem Aufruf OutlookApplication := GetActiveOleObject('Outlook.Application')
Da dies bisher immer ging stehe ich auf dem Schlauch wo ich noch nachschauen kann warum auf einmal die Meldung erscheint.
Kann hier jemand helfen?