-
Thanks for all of your help - I had a developer friend look at what you'd posted, and he tweaked it to work for me - in case anyone else looks for this, what works in Outlook 2010 is:Sub HyperLinkChange() Dim objOL As Outlook.Application Dim objNS As Outlook.NameSpace Dim objDoc As Word.Document Dim objSel As Word.Selection On Error Resume Next Set objOL = Application If objOL.ActiveInspector.EditorType = olEditorWord Then ' use WordEditor Set objDoc = objOL.ActiveInspector.WordEditor Set objNS = objOL.Session ' set current selection Set objSel = objDoc.Windows(1).Selection Dim tmpLink As Hyperlink For Each tmpLink In objDoc.Hyperlinks tmpLink.Address = "Hyper Link Removed. Please copy and paste into your browser to view" Next tmpLink End If Set objOL = Nothing Set objNS = NothingEnd SubThis macro will replace all existing hyperlinks in an email with links that say: "Hyper Link Removed. Please copy and paste into your browser to view"
Posting Permissions
- You may not post new threads
- You may not post replies
- You may not post attachments
- You may not edit your posts
-
Forum Rules