Email über Outlook Express direkt (ohne Fenster) versenden

[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;