Microsoft Outlook Macro

[sophist]

Hi All,

Apologies for the basic newbie question but I'm trying to streamline things and have found how to add a button which will spit some text into an email for me.

So far it is this:

Sub test()
Set objDoc = Application.ActiveInspector.WordEditor
Set objSel = objDoc.Windows(1).Selection
objSel.TypeText Text:="Pre written text has been inserted"
End Sub

That works great, but I'm then trying to format the text and having some problems. I'm not trying to highlight anything, change fonts or sizes etc. I just really want to be able to have a space and perhaps some bullet points (which could just be a *). Essentially I'm trying to do something like this;

"Dear XXX,

Thanks for selecting our service, to get the process started we need the following;

* Your full name
* Some other things

Thanks and have a smashing day"

Any help with how to set this up inside a macro would be super. I understand I could pre format something in Word, and have the maco copy it and paste it into an email as long as it's in the correct directory etc. This might even be a better option for me in the long term.

Cheers!

Sophist