Re: How to recognize e-maillinks

Return to index

Author

Message

Pieter E.

Posted: 10/26/2004 17:25:34

Dear Sergey,

The problem is solved. It does work.

Thanks for your support.

Pieter E.

"Sergey Tkachenko" <[email protected]> wrote:

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

>

>