This routine does this, in this case there are variables declared elsewhere
Email, Subject, BodyText that are all strings and already populated.
Note some mail clients (Outloook Express) don't like the BodyText variable
being longer than a dozen or so characters.
procedure Tform1.makeEmail;
var
mailto:string;
begin
mailto:='mailto:'+email+'?Subject=trim(Subject)+'&Body='+BodyText;
if ShellExecute(Application.Mainform.Handle, 'open',Pchar(mailto), nil, nil,
SW_SHOWNORMAL) <= 32 then
ShowMessage(SysErrorMessage(GetLastError));
end;
JohnFrom: David O'Brien
Sent: Tuesday, June 22, 2010 10:50 AM
To: NZ Borland Developers Group - Delphi List
Subject: [DUG] Default email
Does anyone have any code that would open a New Email window ready for input in
the default email client, and populate the To: address?
Regards,
Dave.
--------------------------------------------------------------------------------
_______________________________________________
NZ Borland Developers Group - Delphi mailing list
Post: delphi@delphi.org.nz
Admin: http://delphi.org.nz/mailman/listinfo/delphi
Unsubscribe: send an email to delphi-requ...@delphi.org.nz with Subject:
unsubscribe_______________________________________________
NZ Borland Developers Group - Delphi mailing list
Post: delphi@delphi.org.nz
Admin: http://delphi.org.nz/mailman/listinfo/delphi
Unsubscribe: send an email to delphi-requ...@delphi.org.nz with Subject:
unsubscribe
