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
Mazahir Naya