[DUG] Default email

[David O'Brien]

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-bounces at delphi.org.nz [mailto:delphi-bounces at 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-bounces at delphi.org.nz [mailto:delphi-bounces at 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-bounces at delphi.org.nz [mailto:delphi-bounces at 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:Dave at iccs.co.nz>  

Sent: Tuesday, June 22, 2010 10:50 AM

To: NZ Borland Developers Group - Delphi List
<mailto:delphi at 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 at delphi.org.nz
Admin: http://delphi.org.nz/mailman/listinfo/delphi
Unsubscribe: send an email to delphi-request at delphi.org.nz with Subject:
unsubscribe

-------------- next part --------------
An HTML attachment was scrubbed...
URL: http://listserver.123.net.nz/pipermail/delphi/attachments/20100622/1e4c4942/attachment.html