With the new url format my simple smart tags dll just got smarter (after I tweaked the patern)

now works for many entities

here is the code for the recognizer, the rest I got from the samples in the smart tags resource kit

it matches anything with 15 chars starting with 00, simple but i've found it handy when staring at spreadsheets full of account ID's

-----------------------------------------
Public Sub ISmartTagRecognizer_Recognize(ByVal Text As String, _
    ByVal DataType As SmartTagLib.IF_TYPE, ByVal LocaleID As Long, _
    ByVal RecognizerSite As SmartTagLib.ISmartTagRecognizerSite)
   
    Dim regEx, Match, Matches   ' Create variable.
    Set regEx = New RegExp   ' Create a regular expression.
    regEx.Pattern = "00............."   ' Set pattern, this is for accounts and oppo and ?
    regEx.IgnoreCase = False ' case sensitivity.
    regEx.Global = True   ' Set global applicability.
    Set Matches = regEx.Execute(Text)   ' Execute search.
    Dim index As Integer, termlen As Integer
    Dim propbag As SmartTagLib.ISmartTagProperties
    For Each Match In Matches   ' Iterate Matches collection.
        index = InStr(Text, Match)
        termlen = 15
        Set propbag = RecognizerSite.GetNewPropertyBag
        RecognizerSite.CommitSmartTag _
            "schemas-neoforma-com/neofsalesforce#oppo", _
            index, termlen, propbag
   Next
done:
End Sub