Calling button with LotusScript

Hello. I am trying to call a button using lotusscript. But I am not sure the code to use. Below is the scipt I already have. Can anyone assist. I have looked in all my resources, but can’t find it. I know it is going to be a simple line of code.

Thanks in advance for your help.

My code:

Sub Click(Source As Button)

    Dim workspace As New NotesUIWorkspace

    Dim uidoc As NotesUIDocument

    Set uidoc = workspace.CurrentDocument

    Set doc = uidoc.Document



    doc.QCApprover = doc.curruser(0)

    doc.QCDate = Today()

    ---I need to call button sendemail right here-----

End Sub

Subject: Calling button with LotusScript

Move the code for the sendmail to a new sub in the Globals seciton. ie.Sub Clickit()

Msgbox “Hello”

End Sub

then in your code, both where you want it and in the sendemail button, put:

Clickit