*viewcode.prg

DEFINE CLASS test_send AS container
	Width =  173 
	Height =  119 
	Name = "test_send"
ENDDEFINE

DEFINE CLASS test_send AS container
	Width =  78 
	Height =  39 
	Name = "test_send"

	ADD OBJECT olemsess AS olecontrol WITH ;
		Top =  0 , ;
		Left =  0 , ;
		Height =  25 , ;
		Width =  25 , ;
		Name = "olemSess"

	ADD OBJECT olemmess AS olecontrol WITH ;
		Top =  0 , ;
		Left =  38 , ;
		Height =  37 , ;
		Width =  37 , ;
		Name = "olemMess"

	PROCEDURE compose
		this.olemSess.signOn
		this.olemMess.sessionID=this.olemSess.sessionID
		this.olemMess.Compose
		this.olemMess.recipAddress=rcpadr
		this.olemMess.msgSubject=mess_subj
		this.olemMess.msgNoteText=mess_text
	ENDPROC
ENDDEFINE