hi mohammad
use MAPI Control
this send mail Method

With This.Parent.OLEMAPIMsg
.MsgIndex=-1
.RecipDisplayName=ALLTRIM(This.Parent.emailid.Value)
.MsgSubject=ALLTRIM(This.Parent.subject1.Value)
.MsgNoteText=thisform.mesbody.text
*************
if mfile1 !="" then
.ATTACHMENTINDEX=0
.AttachmentPosition = 4
.AttachmentType = 0
.AttachmentName = ""
.AttachmentPathName=mfile1
.AttachmentCount
endif
.SessionID=This.parent.olemapisession.sessionid
.Send
Endwith
regards
Mazahir