Button for inserting a signature

Is there (or can we create one) a toolbar-button for inserting a signature in a message (in stead of using the menu Actions / Tools / Insert Signature)?

Subject: Button for inserting a signature

hi

in the memo form add an action:

Sub Click(Source As Button)

Dim sess As notessession

Dim ws As Notesuiworkspace	

Dim uidoc As Notesuidocument

Dim strSignatur As String



strSignatur = "Hi, " & Chr(10) & Chr(13) & "<-  this for example is for the second line.."



Set sess=New notessession

Set ws =New Notesuiworkspace



Set uidoc=ws.Currentdocument

If Not uidoc Is Nothing Then

	Call uidoc.Inserttext(strSignatur)

End If	

End Sub

Hope this will help

(- your request is not very exact)