How to recognize e-maillinks

Return to index

Author

Message

Pieter E.

Posted: 10/25/2004 14:25:37

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.