HI


=DDESETOPTION("SAFETY",.F.)
gnChanNum = DDEINITIATE("NOTES", "SENDMAIL")
glExecute = DDEEXECUTE(gnChanNum, "NewMessage")
glExecute=.DDEExecute(gnChanNum, "To STEVEN@BOWSKILLS.FREESERVE.CO.UK")
glExecute=.DDEExecute(gnChanNum, "cc james@brown.freeserve.co.uk")
lcComandToRun='DDEEXECUTE(gnChanNum, '+'"'+ "AttachFile c:\mailme.zip" +'")'
lcComandToRun='DDEEXECUTE(gnChanNum, '+'"AttachFile '+THISFORM.lcFileToSend+'")'
glExecute = DDEEXECUTE(gnChanNum, "Send")
DDETERMINATE(gnChanNum)

This can be used on older and new versions of notes

Notes must be open

you can find out if notes is open by usin the windows API FindWindow()

passing it the notes class name, which is "NOTES"

Cheers

Steven