mailSession mSes
mailReturnCode mRet
mailMessage mMsg
mailFileDescription PBmailAttachment
string str_email,  ls_default_printer 

str_email = 'mmm@yahoo.com'

// Create a mail session
mSes = CREATE mailSession

// Log on to the session
mRet = mSes.mailLogon(mailNewSession!)

IF mRet <> mailReturnSuccess! THEN
    MessageBox("Mail", 'Logon failed.')
    RETURN
END IF

// Populate the mailMessage structure
mMsg.Subject = 'Subject'
mMsg.NoteText = 'Graphs:'
mMsg.Recipient[ 1 ].name = str_email 
PBmailAttachment.FileType = mailAttach!
PBmailAttachment.PathName = "C:\mmm_all.txt"
PBmailAttachment.FileName = "mmm_all.txt"
PBmailAttachment.Position = - 1 

mMsg.AttachmentFile[ 1 ] = PBmailAttachment 

//mRet = mSes.mailAddress(mMsg)
IF mRet <> mailReturnSuccess! THEN
    MessageBox("Mail", 'Addressing failed.')
    RETURN
END IF

// Send the mail
mRet = mSes.mailSend(mMsg)
IF mRet <> mailReturnSuccess! THEN
    MessageBox("Mail", 'Sending mail failed.')
    RETURN
END IF

mSes.mailLogoff()

DESTROY mSes