Mails versenden über Live Mail

[schaumermal]

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?