>Hi,
>
>Ive got this code below and I need to fire off an email with the report saved already within R&R Report Writer.
>
>Within R&R Report Writer there is a facility to export (send via MAPI) and a message is sent to an email address added in this way.
>
>I've got the program below to load up the report and print it to the printer but I need to send it by email.
>
>Any ideas appreciated.
>

>IF !Empty(Maintdef.ExportRR) && Holds the path	SELECT 0
>	USE Worprint shared
>	APPEND Blank
>	REPLACE ri_report  with Maintdef.ExportRR,;
>		ri_Printer  with 'H'
>
>	nrec = recno()
>	GOTO nrec
>	cString = alltrim(str(nrec))
>	cData = goapplication.cDataPath && datapath
>	cRRW  = goapplication.cRRWPath   && Report Writer Path
>
>	IF NOT Empty(goapplication.RRWFile)
>		RRWDir = AllTrim(goapplication.RRWFile)
>	ELSE
>	RRWDir = GetIniSt('RRW', 'Defaults', 'ProgDir32', '')
>		IF Empty(RRWDir)
>			RRWDir = GetIniSt('RRW', 'Defaults', 'ProgDir', '')
>			IF Empty(RRWDir)
>				MESSAGEBOX('System cannot find the RRW program', 64, 'Title')
>				RRWDir  = GetDir('c:\', 'Select RRW Dir ')
>			ENDIF
>		ENDIF
>	ENDIF
>
>	IF NOT Empty(RRWDir)
>		WAIT Window "Print Linked R&R report: "+ "...Please wait..." NOWAIT
>		RRWDir = RRWDir + IIF(Right(RRWDir, 1) = '\', '', '\')
>		goapplication.RRWFile = RRWDir
>		cRun = RRWDir + 'RRWRun.EXE '+ cData + '\Worprint '+ cString + ' /R'+cRRW + ' /D'+ cData + 'M/' +' /Oc:\Mystatus /WY'
>
>		RUN /N1 &cRun
>	ENDIF
>ENDIF

>
cString contains a record number not the contents of the record