Re: How to recognize e-maillinks

Author

Message

Sergey Tkachenko

Posted: 10/25/2004 22:51:51

I do not know, it must work.

But:

- what if the address is www.www@domain.com or name@www.domain.com ?

- what if 'mailto:' is already in aHyperlink ?

> How to recognize e-maillinks? (mailto:)

> I've got the following code:

> void __fastcall TTekstFrame1::rveWriteHyperlink(TCustomRichView *Sender,

> int id, TCustomRVData *RVData, int ItemNo, TRVSaveFormat SaveFormat,

AnsiString

> &Target, AnsiString &Extras)

> {

> AnsiString aHyperlink = (char *)RVData->GetItemTag(ItemNo);

> if(aHyperlink.Pos("www.") == 1) aHyperlink = "http://" + aHyperlink;

> if(aHyperlink.Pos("@") >= 1)

> {

> aHyperlink = "mailto:" + aHyperlink;

> }

> Target = aHyperlink;

> }

> //---------------------------------------------------------------

> The 'mailto:' link doesn't work...

> (The hyperlink method works great!!)

> Any ideas?

> Thanks.

> Pieter E.