I changed some codes in VFPs mailbutton class in companent gallery. So than it works for me. This is changed click method:

local j, lnMaxLength, i, lcMessageText, lvFieldValue
** j & i are counters

private array paDBFields

*** Localizable Strings
#DEFINE DBF_NOT_FOUND_LOC	"No table is open in the current work area."
#DEFINE GEN_UNSUPPORT_LOC	"General fields are not supported in this example and will be skipped."
#DEFINE _FALSE_LOC			"FALSE"
#DEFINE _TRUE_LOC			"TRUE"
#DEFINE _NULL_LOC			"NULL"
#DEFINE _DOLLARSIGN_LOC		"$"
#DEFINE FLD_NO_PRINT_LOC	"Field could not be printed."
#DEFINE RECORDNUM_LOC		"Record #"

* Verify that a table is open in the current work area
	IF !this.parent.signon()			&& Use the custom method
		RETURN
	ENDIF
	IF this.parent.LogSession	&& Check if the user was able to login
		this.parent.OleMMess.sessionid=this.parent.OleMSess.sessionid
	
		* Start a new mail message and build the text
		this.parent.OleMMess.compose

WITH this.Parent.Parent
*---------------------- notetext ---------------------
		this.parent.OleMMess.msgnotetext="your note is there"
*---------------------- subject ----------------------		
		this.parent.OleMMess.msgsubject="your subject is there"
*---------------------- alici ------------------------
  IF !EMPTY(._alici)
		this.Parent.olemmess.recipAddress="your@receipt.com"
  ENDIF 
*----------------------	alici disp. name -------------
  IF !EMPTY(._mailadresismi)
	    this.Parent.olemmess.recipDisplayName=._mailadresismi 
  ENDIF 
endw 
*---------------------- send -------------------------	
		this.parent.OleMMess.send(1)
		IF this.parent.logsession
			this.parent.OleMSess.signoff
		ENDIF	&& Session Handle test
	ENDIF 		&& Login Test