DEFINE CLASS mail AS container

	ADD OBJECT olemsess AS olecontrol; 
                          ...
	ADD OBJECT olemmess AS olecontrol; 
                             ...
PROCEDURE compose11
		this.olemSess.signOn
		this.olemMess.sessionID=olemSess.sessionID
		this.olemMess.Compose
		this.olemMess.recipAddress=rcpadr
		this.olemMess.msgSubject=mess_subj
		this.olemMess.msgNoteText=mess_text
	ENDPROC

	PROCEDURE attachfile
		this.olemMess.attachmentIndex=atind
		this.olemMess.attachmentPathName=atpth
	ENDPROC

	PROCEDURE send
		this.olemMess.send
		this.olemsess.signOff
	ENDPROC
...
ENDDEFINE