Try:
loApplication = NULL
Release loApplication

You can use a Getobject:
We use this approach for creating word:

w_errhand = ON("Error")
ON ERROR DO COMError WITH ERROR( ), MESSAGE( ), MESSAGE(1), PROGRAM( ), LINENO( )

*1st attempt regardless
w_getwp = GETOBJECT(, "Word.Application")
*2nd will always work due to the error handler
w_getwp = GETOBJECT(, "Word.Application")

IF NOT EMPTY(w_errhand)
ON ERROR &w_errhand
ENDIF


RETURN w_getwp
*
*
*
FUNCTION COMError

LPARAMETERS p_error, p_message, p_message1, p_program, p_lineno

PRIVATE w_startwp
w_startwp = CREATEOBJECT("Word.Application")

RETURN

>I am using the Outlook Sendmail program that is from a class I downloaded from this site. It sends mail everytime it is invoked no problem. BUT.....it opens a new instance of Outlook everytime. If I goto Task Manager for every mail sent it creates a process Outlook.exe. How can I quit the instance or reuse the instance everytime I send a mail please?
>
>I have tried loApplication.Quit() in the below but still no joy.
>
>Here is my code:
>
>

>****************Mailer**********************
>PROCEDURE sendmail
>LPARAMETERS lcreciplist,		;	&& recipient list from users table
>			lcSubject, ;			&& Subject at top of message
>			lcBody, ;			&& Body text of message (can be memo field name)
>			lccontrol, ;			&& Body text of message (can be memo field name)
>			lccondition, ;			&& Body text of message (can be memo field name)
>			lcAttachments, ;		&& List of attachment files with , or ; between
>			llReceipt, ;			&& Whether receipt required
>			lcRecipients, ;			&& List of recipients with , or ; between - can have cc: or bcc: before each
>			lcUserName, ;			&& User (Profile) Name - not needed if client already open
>			lcPassword, ;			&& User (Profile) Password
>			llShowOutlook 			&& If .T., will open outlook to send manually
>			
>	
>lcmailsent=.f.
>llShowOutlook=.f.
>lcUserName = 'VWM Workflow'
>lcpassword = 'password'
>
>lcRecipients = lcreciplist
>lcBodyText = lcbody
>
>IF lcattach = .t.
>	lcattachments = ALLTRIM(vwmevents.udf1) + ";" + ALLTRIM(vwmevents.udf2)
>ENDIF
>
>LOCAL lnLoop, ;						&& Temporary loop counter
>	  lnErrors, ;					&& Number of errors to return
>	  lcTemp						&& Temporary string storage
>	
>STORE 0 TO lnErrors, ;
>		   nRecipCount, ;
>		   nCCRecipCount, ;
>		   nBCCRecipCount, ;
>		   nAttachCount
>
>* Check sufficient data
>IF EMPTY(lcRecipients)
>	lnErrors=lnErrors+1
>	MESSAGEBOX("No Recipients Specified",0,"Error")
>ENDIF
>IF EMPTY(lcSubject)
>	lnErrors=lnErrors+1
>	MESSAGEBOX("No Subject Specified",0,"Error")
>ENDIF
>IF EMPTY(lcBodyText)
>	lnErrors=lnErrors+1
>	MESSAGEBOX("No Body Text Specified",0,"Error")
>ENDIF
>IF lnErrors>0
>	RETURN lnErrors
>ENDIF
>IF EMPTY(lcAttachments)
>	lcAttachments=""
>ENDIF
>
>* Default to empty strings
>IF EMPTY(lcUserName)
>	lcUserName=""
>ENDIF
>IF EMPTY(lcPassword)
>	lcPassword=""
>ENDIF
>
>* Convert commas to semi-colons	
>lcRecipients=STRTRAN(lcRecipients,',',';')
>lcAttachments=STRTRAN(lcAttachments,',',';')
>
>* Clear previous recipient arrays
>DIMENSION aRecipients[1]
>aRecipients=""
>DIMENSION aCCRecipients[1]
>aCCRecipients=""
>DIMENSION aBCCRecipients[1]
>aBCCRecipients=""
>
>* Create array of recipients (including cc and bcc)
>IF RIGHT(lcRecipients,1)!=';'
>	lcRecipients=lcRecipients+';'
>ENDIF
>lcRecipients=lcRecipients+' '
>DO WHILE AT(';',lcRecipients)>0 AND LEN(lcRecipients)>1
>	DO CASE
>		CASE LOWER(LEFT(lcRecipients,4))="bcc:"
>			nBCCRecipCount=nBCCRecipCount+1
>			DIMENSION aBCCRecipients[nBCCRecipCount]
>			aBCCRecipients[nBCCRecipCount]=LEFT(lcRecipients,AT(';',lcRecipients)-1)
>			aBCCRecipients[nBCCRecipCount]=LTRIM(SUBSTR(aBCCRecipients[nBCCRecipCount],5))
>		CASE LOWER(LEFT(lcRecipients,3))="cc:"
>			nCCRecipCount=nCCRecipCount+1
>			DIMENSION aCCRecipients[nCCRecipCount]
>			aCCRecipients[nCCRecipCount]=LEFT(lcRecipients,AT(';',lcRecipients)-1)
>			aCCRecipients[nCCRecipCount]=LTRIM(SUBSTR(aCCRecipients[nCCRecipCount],4))
>		OTHERWISE
>			nRecipCount=nRecipCount+1
>			DIMENSION aRecipients[nRecipCount]
>			aRecipients[nRecipCount]=LEFT(lcRecipients,AT(';',lcRecipients)-1)
>	ENDCASE
>	lcRecipients=SUBSTR(lcRecipients,AT(';',lcRecipients)+1)
>ENDDO
>
>* Convert body text field to data (if it is a field)
>IF TYPE(lcBodyText)='M'
>	lcTemp=""
>	FOR lnLoop=1 TO MEMLINES(&lcBodyText.)
>		lcTemp=lcTemp+MLINE(&lcBodyText.,lnLoop)
>		lcTemp=lcTemp+CHR(13)
>	ENDFOR
>	lcBodyText=lcTemp
>ENDIF
>
>* Create array of attachment files
>aAttachmentFiles=""
>IF NOT EMPTY(lcAttachments)
>	IF RIGHT(lcAttachments,1)!=';'		&& 22.Apr.99 Bug Fix (replaced , with ;) will still work ok.
>		lcAttachments=lcAttachments+';'
>	ENDIF
>	DIMENSION aAttachmentFiles[OCCURS(';',lcAttachments)]
>	nAttachCount=0
>	lcAttachments=lcAttachments+' '
>	DO WHILE AT(';',lcAttachments)>0 AND LEN(lcAttachments)>1
>		nAttachCount=nAttachCount+1
>		aAttachmentFiles[nAttachCount]=LEFT(lcAttachments,AT(';',lcAttachments)-1)
>		lcAttachments=SUBSTR(lcAttachments,AT(';',lcAttachments)+1)
>	ENDDO
>ENDIF
>
>* Check that all attachment files exist
>FOR lnLoop=1 TO nAttachCount
>	IF NOT FILE(aAttachmentFiles[lnLoop])
>		MESSAGEBOX("Attachment File is Missing or Invalid:";
>			+CHR(13)+aAttachmentFiles[lnLoop],0,"Error")
>		lnErrors=lnErrors+1
>	ENDIF
>ENDFOR
>
>cSubject=ALLTRIM(lcSubject)
>cBodyText=ALLTRIM(lcbodytext)
>
>* Abort if an error has been found
>IF lnErrors>0
>	RETURN lnErrors
>ENDIF
>
>* Create the necessary objects to get to the message
>loApplication=CREATEOBJECT("Outlook.Application")
>loNameSpace=loApplication.GetNameSpace("MAPI")
>loOutBox=loNameSpace.GetDefaultFolder(4)
>
>* Create message object
>oMessage=loOutBox.Items.Add
>WITH oMessage
>	.Body=cBodyText
>	.Subject=cSubject
>*	.MsgReceiptRequested=llReceipt
>	* Normal recipients
>	FOR lnLoop=1 TO ALEN(aRecipients,1)
>		loRecipient=.Recipients.Add(aRecipients[lnLoop])
>	ENDFOR
>	* Copy recipients
>	IF nCCRecipCount>0
>		FOR lnLoop=1 TO ALEN(aCCRecipients,1)
>			loRecipient=.Recipients.Add(aCCRecipients[lnLoop])
>			loRecipient.Type=2
>		ENDFOR
>	ENDIF
>	* Blind copy recipients
>	IF nBCCRecipCount>0
>		FOR lnLoop=1 TO ALEN(aBCCRecipients,1)
>			loRecipient=.Recipients.Add(aBCCRecipients[lnLoop])
>			loRecipient.Type=3
>		ENDFOR
>	ENDIF
>	* Add any required attachment files
>	IF lcattach = .t.
>		IF NOT EMPTY(aAttachmentFiles[1])
>			* Multiple attachment files
>			FOR lnLoop=1 TO ALEN(aAttachmentFiles,1)
>				.Attachments.Add(aAttachmentFiles[lnLoop])
>			ENDFOR
>		ENDIF
>	ENDIF
>	.Send()
>	lcmailsent=.t.
>	type1=.f.
>	type2=.f.
>ENDWITH
>