Sorry, my fault. I pasted the code into the wrong event (OnMouseLeave), and it was still using my old code OnClick, then firing the OnMouseLeave. Not even Friday yet...
From: delphi-boun...@delphi.org.nz [mailto:delphi-boun...@delphi.org.nz] On Behalf Of Conor Boyd Sent: Tuesday, 22 June 2010 11:59 a.m. To: NZ Borland Developers Group - Delphi List Subject: Re: [DUG] Default email No it doesn't; well not for me anyway. For me, it does exactly what you asked for. Outlook's my default mail client, and I get the expected functionality you originally asked for. But I would expect it to work the same for any mail client. That's my understanding of how the mailto protocol specifier is intended to be used. What's your email client? Cheers, C. ________________________________ From: delphi-boun...@delphi.org.nz [mailto:delphi-boun...@delphi.org.nz] On Behalf Of David O'Brien Sent: Tuesday, 22 June 2010 11:44 a.m. To: NZ Borland Developers Group - Delphi List Subject: Re: [DUG] Default email Same with this one: Thanks, but this actually sends the message. I just want a new mail window to pop up without being sent. From: delphi-boun...@delphi.org.nz [mailto:delphi-boun...@delphi.org.nz] On Behalf Of John Bird Sent: Tuesday, 22 June 2010 11:25 a.m. To: NZ Borland Developers Group - Delphi List Subject: Re: [DUG] Default email 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 <mailto:='mailto:'+email+'?Subject=JBCL'+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 <mailto:d...@iccs.co.nz> Sent: Tuesday, June 22, 2010 10:50 AM To: NZ Borland Developers Group - Delphi List <mailto:delphi@delphi.org.nz> 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
