erich.wanker Posted November 14, 2014 Share Posted November 14, 2014 Hello, i try to create a link like: <a href="mailto:wanker@x.at" style="text-decoration: none; color: #12345"> wanker@x.at </ a> .. but every attempt creates a new Browser Window or closes my Uni-Gui-dll.. i just want to have a UniButton or UniLabel..... user clicks on it ..... and eMailprogramm creates new Mailmessage to the eMailadress ... :-) Any suggestions? ThanX Erich Quote Link to comment Share on other sites More sharing options...
Harry Rogers Posted November 14, 2014 Share Posted November 14, 2014 I rather clumsily get round it like this. I'm sure there is a better way but this works! (100ms seems long enough to get the email client cranked up before the window closes) I use the clientside click event on a Unilabel (drawn with an underline font) function click(sender, eOpts) { myWin=window.open(MainForm.emailurl.text); setTimeout(function(){myWin.close()}, 1000); } Cheers Quote Link to comment Share on other sites More sharing options...
adragan Posted November 19, 2014 Share Posted November 19, 2014 If you want to use the Indy components then the code looks like : I don't know much about how to send it from JavaScript so I have to work with this : On a buttonClick write these : var Msg: TIdMessage; IdSMTP: TIdSMTP; TextPart: TIdText; HtmPart: TIdText; try IdSMTP := TIdSMTP.Create(nil); idSMTP.Username := < mail user name >; idSMTP.Password := < mail account password >; idSMTP.Host :=< outgoing mai server >; idSMTP.Port := < SMTP port of mail server >; Msg := TIdMessage.Create(nil); Msg.From.address := < your mail adress >; Msg.Recipients.EMailAddresses := destEdit.Text; //A TUniEdit from the form Msg.CCList.EMailAddresses := ccEdit.Text; // Same ............... Msg.BccList.EMailAddresses := bccEdit.Text; Msg.Subject := subjEdit.Text; Msg.ContentType := 'Multipart/Alternative'; Msg.ClearBody; TextPart:=TIdText.Create(Msg.MessageParts, nil); TextPart.ContentType:='text/plain'; TextPart.Body.Add(''); HtmPart := TIdText.Create(Msg.MessageParts, bodyHTMLMemo.Lines); HtmPart.ContentType := 'text/html'; try idSMTP.Connect(); idSMTP.Send(Msg); ShowMessage('Message Sent -> ok'); except on e:Exception do ShowMessage('Message Error -> '+e.message); end; finally if idSMTP.Connected then idSMTP.Disconnect(); IdSMTP.Free; TextPart.Free; HtmPart.Free; Msg.Free;end; in the Uses clause of the form you have to have : uses IdMessage, IdBaseComponent, IdComponent, IdTCPConnection, IdTCPClient, IdExplicitTLSClientServerBase, IdMessageClient, IdSMTPBase, IdSMTP, IdText, IdAttachmentFile, IdAttachment That's it ! It works; 1 Quote Link to comment Share on other sites More sharing options...
Recommended Posts
Join the conversation
You can post now and register later. If you have an account, sign in now to post with your account.