Email über Outlook Express direkt (ohne Fenster) versenden

[Helmi]

Zitat von KodeZwerg:

Klappt es so ohne Fenster bei Dir?

Delphi-Quellcode:

procedure TForm1.Button2Click(Sender: TObject);
var
  Outlook, Mailitem: OLEVariant;
begin
  try
    Outlook := GetActiveOleObject('Outlook.Application');
  except
    Outlook := CreateOleObject('Outlook.Application');
  end;
  MailItem := Outlook.CreateItem(0);
  MailItem.Recipients.Add('[e-mail]');
  MailItem.Subject := 'Delphi-PRAXiS';
  MailItem.Body := 'Inhalt';
  MailItem.Attachments.Add('C:\TestDatei.txt'); 
  MailItem.Send;
  Outlook := Unassigned; 
end;

Delphi-Quellcode:

uses
  ComObj;

fehlt dabei noch.

Unter Windows 10 mit Outlook funktioniert der Code, auf dem WHS (was annähernd Windows Server 2003 ist) mit Outlook Express funktioniert es nicht.
Fehlermeldung: "Ungültiges Klassenzeichenfolge, ProgID: "Outlook.Application"