Sub Initialize
	Dim s As New NotesSession
	Dim db As NotesDatabase
	Dim dc As NotesDocumentCollection	
	Dim doc As NotesDocument
	Dim object As NotesEmbeddedObject
	Dim taskId As Integer	
	
	Set db = s.CurrentDatabase
	Set dc = db.UnprocessedDocuments
	Set doc = dc.GetFirstDocument
	Set object = doc.GetAttachment( "smime.p7s" )	
	
	TempDir$ = Environ("Temp")
	Call object.ExtractFile (TempDir$ & "\smime.p7s" )
	
	taskId% = Shell ( "rundll32.exe cryptext.dll,CryptExtOpenPKCS7 " + _
	TempDir$ + "\smime.p7s")
End Sub