Einzelnen Beitrag anzeigen

Benutzerbild von KodeZwerg
KodeZwerg

Registriert seit: 1. Feb 2018
3.691 Beiträge
 
Delphi 11 Alexandria
 
#2

AW: Email über Outlook Express direkt (ohne Fenster) versenden

  Alt 19. Aug 2018, 19:33
So sendest Du über Standard Mail Client ohne Fenster.
Delphi-Quellcode:
procedure TForm1.Button1Click(Sender: TObject);
var
  s: String;
begin
  s := 'mailto:MaxMuster@mann.de';
  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;
Gruß vom KodeZwerg
  Mit Zitat antworten Zitat