hi Mahmood
use this Code.. i am sure it will help u a lot..
use this two ActiveX Control

-- OLEMAPIMSG
-- OLEMAPISession

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

Best regards
Mazahir