Email über Outlook Express direkt (ohne Fenster) versenden

[Helmi]

Hallo Zusammen,

ich hab einen WHS (Windows Home Server) und über die Konsole werden CPU-Status-Emails vom System her versendet.
Dabei verwendet die Konsole Outlook Express, um diese Emails zu versenden.

Diese Emails werden direkt versendet, ohne dass sich zuvor ein Fenster öffnet.

Auf dem WHS läuft eine Anwendung von mir, in der ich ebenfalls über Outlook Express eine Email versenden will, auch ohne dass sich ein Fenster öffnet.

Wie könnt ich das bewerkstelligen?

[KodeZwerg]

So sendest Du über Standard Mail Client ohne Fenster.

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject); 
var 
  s: String; 
begin 
  s := 'mailto:[e-mail]';
  s := s + '?Subject=Delphi-PRAXiS';
  s := s + '&Body=Inhalt';
  s := s + '&Attach=""C:\TestDate.txt""'; 
  ShellExecute(handle, 'open', PChar(s), nil, nil, SW_SHOWNORMAL); 
end;

[Luckie]

Müsste der letzte Parameter nicht SW_HIDE sein, wenn kein Fenster angezeigt werden soll?

[Helmi]

Mit SW_SHOWNORMAL, wie auch mit SW_HIDE wird trotzdem ein Fenster angezeigt

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

[Helmi]

Zitat:

Zitat von KodeZwerg (Beitrag 1411101)

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"

[Delphi.Narium]

Outlook.Application ist halt nicht Outlook Express sondern Outlook.

Hilft davon was weiter?
https://social.msdn.microsoft.com/Fo...forum=exceldev

[KodeZwerg]

Zitat:

Zitat von Helmi (Beitrag 1411103)

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"

Ohhh, das wusste ich nicht das Microsoft da anders vorgeht. Hmmmm weder ShellExecute noch über OLE klappts.
Nach ein wenig lesen über Express bin ich nicht wirklich schlauer geworden um Deine Anfrage zufrieden stellend beantworten zu können. Es lautet überall ein Nein zum Hintergrund Senden mit der Express.
Da Du eine Console-Application hast die das ja anscheinend kann, frag ich einfach mal nach ob Du die hier hochladen kannst? Da könnte man ja mal reinschauen wie es diese .exe anstellt.

Alternativ auf Indy Mail o.ä..

[Dalai]

Im Zweifel geht auch Blat, Bmail oder ein anderer Kommandozeilen-Mailer.

Grüße
Dalai

[Helmi]

Zitat:

Zitat von Dalai (Beitrag 1411108)

Im Zweifel geht auch Blat, Bmail oder ein anderer Kommandozeilen-Mailer.

Grüße
Dalai

Es muss ja auch eine Möglichkeit mit den Board-eigenen Mitteln geben.
Schließlich kann das die WHS-Konsole ja auch