Email Priority upon form Submission

I am requiring a bit of help as I wasn’t able to find anything on the forum. I would like to know if it is possible to set the Priority Status of an email message to be sent once an event is triggered. I have the following code that is working correctly, its just the priority that has been impossible. Any help would be appreciated. Thanks in advance.

'Creating the email doc

Set emaildoc = db.CreateDocument

emaildoc.Document = “Memo”

emaildoc.Principal = “eRestriction Request System”

emaildoc.Subject = "eRestriction Request has been Declined "

emaildoc.SendTo = tmEmail

'Array to include mulitiple people that the email is copied to

Redim CopyMailTo(0 To 1) As String

CopyMailTo(0) = agentEmail

CopyMailTo(1) = gmEmail

emaildoc.CopyTo = CopyMailTo

bodytext = "blah blah blah

Dim rtitem As New NotesRichTextItem ( emaildoc, “Body” )

Call rtitem.AppendText ( bodytext)

Call rtitem.AppendDocLink( db, db.Title )

Call emaildoc.Send (False)