Outlook über SendKey steuern

[Ulrich Wolf]

Hallo marabu

Zitat:

Mit Delphi legst du dein Programm besser gleich als Dienst an.

Wie geht das?


Zum besseren Verständnis hier mein Code.

Delphi-Quellcode:

Mailstring:='mailto:'+Empfaenger+'&body='+Mailtext;

// Für ShellExecute wird in uses ShellApi verlangt
ShellExecute(handle,
             'open',
             PChar(Mailstring),
             nil,
             nil,
             SW_SHOW);
// Mailfenster als aktuelles Fenster herholen
targetWd := FindWindowByTitle(Fenstertext);
sleep(2000);  //Wartezeit bis das Fenster aufgeht.
// jetzt noch ALT + S um das Mail zu verschicken.
if targetWd=FindWindowByTitle(Fenstertext) then PostKeyEx32(Ord('S'), [ssAlt], true)
 else
  begin
   sleep(2000);  //Wartezeit bis das Fenster aufgeht.
   targetWd := FindWindowByTitle(Fenstertext);
   PostKeyEx32(Ord('S'), [ssAlt], true)
  end;