To distribute a personal mail stationery, create a memo by using stationery you want to distribute and insert the hotspot button with following code. After the user presses the button, a new stationery will be copied to "Draft" view.
Sub Click(Source As Button)
Dim ws As New NotesUIWorkspace
Dim s As New NotesSession
Dim uidoc As NotesUIDocument
Dim doc As NotesDocument
Dim db As NotesDatabase
Dim StationDoc As NotesDocument
Set db = s.CurrentDatabase
Set uidoc = ws.CurrentDocument
Set doc = uidoc.Document
Set StationDoc = doc.Copytodatabase(db)
Dim rtitem As NotesRichTextItem
Set rtitem = Stationdoc.GetFirstItem("Body")
StationDoc.ISMAILSTATIONERY = 1
StationDoc.MAILSTATIONERYNAME = "Temp Stationery"
StationDoc.SendTo = ""
StationDoc.Subject = ""
Msgbox "Please close the current note and go to draft view to access the new stationery named : Temp Stationery"