Einzelnen Beitrag anzeigen

schaumermal

Registriert seit: 26. Apr 2006
Ort: Bad Vilbel
49 Beiträge
 
Delphi 12 Athens
 
#7

AW: Mails versenden über Live Mail

  Alt 7. Okt 2012, 14:19
Auf diesen Rechnern ist KEIN Outlook installiert und trotzdem lief diese Funktion reibungslos.
Da natürlich nicht sichergstellt ist, dass Outlook läuft versuche ich dieses ja zu starten (CreateOleObject) falls nicht aktiv.

Code:
begin
  try
    OutlookApplication := GetActiveOleObject('Outlook.Application');
  except
    try
      [B]OutlookApplication := CreateOleObject('Outlook.Application');[/B]
    except
      raise Exception.Create('MS Outlook kann nicht geöffnet werden');
    end;
  end;
Aber auch OutlookApplication := CreateOleObject('Outlook.Application') liefert die Meldung ungültige Variant-Operation.

Kann man den nicht Windows Live starten (aber nicht über ShellExecute(...), da ich teilweise auch Dateihänge an die Mail anfügen muss)?
  Mit Zitat antworten Zitat