Registriert seit: 12. Dez 2003
Ort: Lendsiedel
23 Beiträge
|
Re: Outlook über SendKey steuern
21. Apr 2005, 13:41
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;
Ulrich Wolf
|
|
Zitat
|