Thema
:
Outlook Mail versenden
Einzelnen Beitrag anzeigen
BullsEye
Registriert seit: 8. Sep 2007
Ort: Werlte
872 Beiträge
Delphi 7 Personal
#
6
Re: Outlook Mail versenden
28. Aug 2008, 18:01
Vllt hilft das:
zusammenfalten
·
markieren
Delphi-Quellcode:
uses
ShellApi;
...
procedure
TForm1.Button1Click(Sender: TObject);
VAR
Addy :
String
;
Betreff:
String
;
Text:
String
;
begin
Addy := '
test@test.de
';
Betreff := '
Ich will dir ne Email schreiben!
';
Text := Memo1.Text;
ShellExecute(Application.Handle, '
open
',
PChar('
mailto:
'+Addy+'
?subject=
'+Betreff+'
&body=
'+Text),
nil
,
nil
, sw_shownormal);
end
;
Marc
DesktopUhr
Zitat
BullsEye
Öffentliches Profil ansehen
Besuche die Homepage von BullsEye!
Mehr Beiträge von BullsEye finden