Put the code below in a new module and then you can run it from the macros menu or create a toolbar button for it.

Sub newmail()
Set myolapp = CreateObject("Outlook.application")
Set myitem = myolapp.CreateItem(olMailItem)
myitem.Subject = "News"
myitem.Body = "I have attached the news item"
myitem.Recipients.Add ("_News")
myitem.Attachments.Add ("c:\news\folder\news.mp3")
myitem.Attachments.Add ("c:\news\folder\news2.mp3")
myitem.Send
End Sub

That should do it. Notice that I included two attachments. You can include multiple attachments if you like.