Same here, it definitely opens an email window, does not send. If it does I am
impressed and wonder how you did that! - its not what mailto: is meant to do.
The only client it seemed to fail regularly with was Vista/Windows Mail - it
just often never opened the compose email window, but it works on Windows
7/Windows Live Mail no problem!
John
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;
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_______________________________________________
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
