Re: How to recognize e-maillinks

Return to index

Author

Message

Sergey Tkachenko

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

I do not know, it must work.

But:

- what if the address is [email protected] or [email protected] ?

- 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.