Distribute a Personal Mail Stationery

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")
Call rtitem.Remove

Call StationDoc.RemoveItem("DefaultMailServerOptions")
Call StationDoc.RemoveItem("PostedDate")
Call StationDoc.RemoveItem("ExcludeFromView")
Call StationDoc.RemoveItem("Recipients")
Call StationDoc.RemoveItem("$Revisions")
Call StationDoc.RemoveItem("$VERREF")
Call StationDoc.RemoveItem("$VersionOpt")

StationDoc.MAILSTATIONERYNAME = "Temp Stationery"
StationDoc.SendTo = ""
StationDoc.Subject = ""

Call StationDoc.Save(True,True)
Msgbox "Please close the current note and go to draft view to access the new stationery named : Temp Stationery"

End Sub

Dig Deeper on Domino Resources - Part 3



  • Favorite iSeries cheat sheets

    Here you'll find a collection of valuable cheat sheets gathered from across the iSeries/Search400.com community. These cheat ...

  • HTML cheat sheet

    This is a really cool cheat sheet if you're looking to learn more about HTML. You'll find just about everything you every wanted ...

  • Carol Woodbury: Security

    Carol Woodbury