Symbols In Emails-Code

[Alan Isaacs]

I created the following code in powerpoint:
Sub Smalla()
'
' Macro recorded 25/11/2003 by Me
'



ActiveWindow.Selection.TextRange.InsertSymbol FontName:="Times New
Roman", CharNumber:=257, Unicode:=msoTrue
ActiveWindow.Selection.ShapeRange.Select
End Sub

1 How do I get it to work in Outlook 2000 and roll it out to my users?
2 Is there a way to make the FontName pick up the default font of the
Document?

There are 9 other Macronised letters we use (unicode 257-363)