Friday, 23 August 2013

Outlook: Convert Plain Text to Hyperlink

Outlook: Convert Plain Text to Hyperlink

I am putting together a POC for my company regarding some monitoring tools
that we use. As part of my project I need to convert portions of a
plaintext email sent to me into a hyperlink (I am not able to send the
emails in HTML from the tool itself).
I have next to no experience with VB but this is what I stitched together
reading various other posts. I realize it is not functional at all but I
thought it might be something of a baseline for others get a better idea
of what I am trying to accomplish and give feedback on. Essentially I am
trying to search the email for a string, and convert it into a more
concise hyperlink that points to that same string as the url.
I need some help cleaning up what I have if you have any pointers. Thanks
for your time!
Option Explicit
Sub InsertHyperLink(MyMail As MailItem)
Dim body As String, re As Object, match As Variant
body = MyMail.body
Set re = CreateObject("vbscript.regexp")
re.Pattern = "^https\..*Operation>$"
For Each match In re.Execute(body)
body = Replace(body, match.Value, "<a href=""" & Right(match.Value) &
""">Open Link</a>", 1, -1, vbTextCompare)
Next
MyMail.body = body
MyMail.Save
End Sub

No comments:

Post a Comment