you can try like
i did not test thisSet msg = ActiveExplorer.Selection(1) If msg.GetInspector.EditorType = olEditorWord Then Set odoc = msg.GetInspector.WordEditor For Each h In odoc.Hyperlinks h.Address = "whatever" Next End If msg.Save
you can try like
i did not test thisSet msg = ActiveExplorer.Selection(1) If msg.GetInspector.EditorType = olEditorWord Then Set odoc = msg.GetInspector.WordEditor For Each h In odoc.Hyperlinks h.Address = "whatever" Next End If msg.Save