Replace text with embedded hyperlinks

Question

0.00/5 (No votes)

See more:

I want to search for ASA1234yy in the body of a text and replace it with the hyperlink ASA1234yy

Can you help me to get started. I have tried using Replace function, but it Replaces only text. I want the text to be replaced with a hyperlink.

Code done so far

Sub ConvertToHyperlink(MyMail As MailItem)
Dim strID As String
Dim Body As String
Dim objMail As Outlook.MailItem
Dim temp As String
Dim RegExpReplace As String
Dim RegX As Object
strID = MyMail.EntryID

Set objMail = Application.Session.GetItemFromID(strID)
Body = objMail.Body
Body = Body + "Test"
objMail.Body = Body

Set RegX = CreateObject("VBScript.RegExp")
With RegX
.Pattern = "ASA[0-9][0-9][0-9][0-9][a-z][a-z]"
.Global = True
.IgnoreCase = Not MatchCase
End With
RegExpReplace = RegX.Replace(Body, "http://www.code.com/" + RegX.Pattern + "/ABCD")

Set RegX = Nothing
objMail.Body = RegExpReplace
objMail.Save
Set objMail = Nothing
End Sub

I need to have a output like this

For example :If there is some ASA1234yy in the body of a text we should replace it with their specific embedded hyperlink in ASA1234yy.The hyperlink should have the address http://www.code.com/ASA1234yy/ABCD

Please help me.

Posted 18-Jun-11 10:12am

Member 7746250

Updated 18-Jun-11 22:50pm

Monjurul Habib

v2

Add a Solution

2 solutions

Add a Solution

Add your solution here

Treat my content as plain text, not as HTML

Preview 0

…

Existing Members

Sign in to your account

...or Join us

Download, Vote, Comment, Publish.

Your Email
Password
Forgot your password?

Your Email
This email is in use. Do you need your password?
Optional Password

I have read and agree to the Terms of Service and Privacy Policy
Please subscribe me to the CodeProject newsletters

When answering a question please:

Read the question carefully.
Understand that English isn't everyone's first language so be lenient of bad spelling and grammar.
If a question is poorly phrased then either ask for clarification, ignore it, or edit the question and fix the problem. Insults are not welcome.
Don't tell someone to read the manual. Chances are they have and don't get it. Provide an answer or move on to the next question.

Let's work to help developers, not make them feel stupid.

This content, along with any associated source code and files, is licensed under The Code Project Open License (CPOL)

Arindam Tewary · Answer 1 · 2011-06-18T11:26:00

Hi
Considering that you want to replace text like "ASA1234yy" with a link like "http://www.code.com/ASA1234yy/ABCD", please do the following ,

Set RegX = CreateObject("VBScript.RegExp")
sBody ="gshaai sdijfASA1234yy dds"
msgbox isObject(RegX)
With RegX
.Pattern = "ASA\d{4}\w{2}"
.Global = True
.IgnoreCase = Not MatchCase
End With
RegExpReplace = RegX.Replace(sBody, "http://www.code.com/ASA1234yy/ABCD")
msgbox RegExpReplace

Your code was Ok only thing I changed is the regex pattern.

Now, in case you want to replace each captured value inside your http url, the you need to get all matches using the pattern first then you have to update the url,helper code is here,

Set RegX = CreateObject("VBScript.RegExp")
sBody = "This is ASA4567sa a sampleASA3333df text to show ASA5555sastring replacement in betASA9999ttween"
msgbox isObject(RegX)
With RegX
.Pattern = "ASA\d{4}\w{2}"
.Global = True
.IgnoreCase = Not MatchCase
End With
Set matches = RegX.Execute(sBody)
msgbox matches.Count
If matches.Count > 0 Then    
    For Each match In matches
       RegExpReplace = RegX.Replace(sBody, "http://www.code.com/"+match.value+"/ABCD")      
    Next
Else
    msgbox "No match", 0, "ADT"
End If
msgbox RegExpReplace

Above code:
Input string : "This is ASA4567sa a sampleASA3333df text to show ASA5555sastring replacement in betASA9999ttween"
Output String : "This is http://www.code.com/ASA9999tt/ABCD a samplehttp://www.code.com/ASA9999tt/ABCD text to show http://www.code.com/ASA9999tt/ABCDstring replacement in bethttp://www.code.com/ASA9999tt/ABCDween"
[Replaced 4 matches]

Let me know if that helps.

Arindam Tewary · Answer 2 · 2011-06-18T21:49:00

Solution 2

Hi,

Try

RegExpReplace = RegX.Replace(sBody, "<a href='http://www.code.com/'"+match.value+"'/ABCD'>match.value</a>")

But please make sure that your mail message is of type other that simple "text", it need to be html type mail message.

Let me know if that helps :)

Posted 18-Jun-11 21:49pm

Arindam Tewary

Comments

Member 7746250 19-Jun-11 23:04pm

Nope...This does not work. also your previous code which you helped me to get through has a bug. The bug is that, it replaces all text with the pattern to hyperlinks, but uses the last pattern to replace them all.
For eg:

ASA4567ss
ASA7888hh
ASA5555fd

is replaced as

www.code.com/ASA5555fd/ABCD
www.code.com/ASA5555fd/ABCD
www.code.com/ASA5555fd/ABCD

Can you please help me on solving this.

Also, it would be great if I get just the text displayed, instead of the entire hyperlink.
thanks